VB程序员博客

我的student.mdb中包含两张表
一张是 基本情况 ：
学号 姓名
1    张三
2    李四
3    王二
4    麻子

一张是 学生成绩表：
学号 语文 数学 英语
1    85  98  68
2    75  62  95
3    56  74  42
4    85  95  41

我在窗体上添加了 Adodc,MsChart,DataGrid 各一个想通过 MsChart,DataGrid 连接Adodc，然后通过代码操作Adodc的RecordSource来控制MsChart,DataGrid的显示：（DataGrid如下，MsChart的格式我不好写出来，就是横轴是姓名，纵轴是每人的最高最低分，直方图 ）

DataGrid：

姓名 平均成绩 最低分数

。。  。。。    。。。

我编写的代码如下：

Private Sub Form_Load()
Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql + " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql + " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
先坦白下，因为我是个菜鸟，所以不知道代码写的对不对？或者是不是在设计窗体时还要设置什么连接？总之的的代码运行总是出错，希望高手能指点下，刚注册的号，不能给你很多分，希望见谅，不过在此真心的对你表示感谢！！！select 学生成绩表.学号, 基本情况.姓名,Avg(成绩)Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql & " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql & " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh<
<

我的student.mdb中包含两张表
一张是 基本情况 ：
学号 姓名
1    张三
2    李四
3    王二
4    麻子

一张是 学生成绩表：
学号 语文 数学 英语
1    85  98  68
2    75  62  95
3    56  74  42
4    85  95  41

我在窗体上添加了 Adodc,MsChart,DataGrid 各一个想通过 MsChart,DataGrid 连接Adodc，然后通过代码操作Adodc的RecordSource来控制MsChart,DataGrid的显示：（DataGrid如下，MsChart的格式我不好写出来，就是横轴是姓名，纵轴是每人的最高最低分，直方图 ）

DataGrid：

姓名 平均成绩 最低分数

。。  。。。    。。。

我编写的代码如下：

Private Sub Form_Load()
Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql + " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql + " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
先坦白下，因为我是个菜鸟，所以不知道代码写的对不对？或者是不是在设计窗体时还要设置什么连接？总之的的代码运行总是出错，希望高手能指点下，刚注册的号，不能给你很多分，希望见谅，不过在此真心的对你表示感谢！！！select 学生成绩表.学号, 基本情况.姓名,Avg(成绩)Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql & " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql & " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh<
<

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

怎样新建一个ACCESS数据库，是通过引用对象吗？
create table tablename(字段 类型(长度))<

新建数据库比较复杂，最常见的做法， 在VB程序直接复制一个事件做好的空的MDB文件。看来是复杂了点，不过程序中只能这么建了，有时候是必须的
感谢3#
感谢cbm666

怎样新建一个ACCESS数据库，是通过引用对象吗？
create table tablename(字段 类型(长度))<

新建数据库比较复杂，最常见的做法， 在VB程序直接复制一个事件做好的空的MDB文件。看来是复杂了点，不过程序中只能这么建了，有时候是必须的
感谢3#
感谢cbm666

我有个小程序，需要从单位的oracle数据库中读取数据，但是不知道该怎么写，请各位高手指点，最好有实例，或源程序。谢谢了http://www.connectionstrings.com/oracle顶起连库
Dim DLYHM, DLMM, DLSLM As String
Dim Grecordset As New ADODB.Recordset
Dim Gconnection_HQ As New ADODB.Connection
DLYHM = "USER ID=" + 用户名
DLMM = "password=" + 登录密码
DLSLM = "Data Source=" + DBCS中的实例名
LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM
LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk
    Set Gconnection_HQ = New ADODB.Connection
    Gconnection_HQ.Open LSsjk

读数据
Set Grecordset = New ADODB.Recordset
Grecordset.Open "select * from 表名 where 字段名='" & 字段值 & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic    ‘索引条件
变量 = Trim(Grecordset.Fields("读取字段名"))
Grecordset.Close
能不能把源程序发给我啊，我的邮箱，如果成功马上给你结分，麻烦了，偶先谢谢了！ustbzhy@163.com，谢谢自己根据代码改一下就可以了，不要什么都要源代码，咱们之间用的各种信息都不一样，给你也得自己改需要安装oracel客户端oracle客户端装上了，但是应该如何配置呢<
用ADO生成个链接字符串不行？？？随便建个工程拖个ADODC控件上去，点ADODC属性，点生成字符串，下一步，下一步。。测试连接成功后，这么下去，把那个字符串考过来不就是你要的连接字符串来么？<
配置好了测试一下即可
也可安装 Toad 等工具，操作Oracle更简单一点。

我有个小程序，需要从单位的oracle数据库中读取数据，但是不知道该怎么写，请各位高手指点，最好有实例，或源程序。谢谢了http://www.connectionstrings.com/oracle顶起连库
Dim DLYHM, DLMM, DLSLM As String
Dim Grecordset As New ADODB.Recordset
Dim Gconnection_HQ As New ADODB.Connection
DLYHM = "USER ID=" + 用户名
DLMM = "password=" + 登录密码
DLSLM = "Data Source=" + DBCS中的实例名
LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM
LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk
    Set Gconnection_HQ = New ADODB.Connection
    Gconnection_HQ.Open LSsjk

读数据
Set Grecordset = New ADODB.Recordset
Grecordset.Open "select * from 表名 where 字段名='" & 字段值 & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic    ‘索引条件
变量 = Trim(Grecordset.Fields("读取字段名"))
Grecordset.Close
能不能把源程序发给我啊，我的邮箱，如果成功马上给你结分，麻烦了，偶先谢谢了！ustbzhy@163.com，谢谢自己根据代码改一下就可以了，不要什么都要源代码，咱们之间用的各种信息都不一样，给你也得自己改需要安装oracel客户端oracle客户端装上了，但是应该如何配置呢<
用ADO生成个链接字符串不行？？？随便建个工程拖个ADODC控件上去，点ADODC属性，点生成字符串，下一步，下一步。。测试连接成功后，这么下去，把那个字符串考过来不就是你要的连接字符串来么？<
配置好了测试一下即可
也可安装 Toad 等工具，操作Oracle更简单一点。

小弟有一套现成的简体Access数据库程序，有什么简便的方法转成繁体？帮顶~

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

你手里的不会是vb源码吧,如果是，那就一处处改吧。

如果是编译后的程序，我想与汉化是一个道理，下面文章对你有用吗？

第一种方法：
直接修改源二进制的代码，不要紧张，也不要被吓倒，很简单的。这里需要用到一个二进制代码查看器，如果你没有，我推荐你用一个名字为Ultra Edit的编辑器，相信你已经用过这个编辑器，（没有用过？没有用过也不要紧，往下看！）这个软件比Windows自带的记事本的功能强大许多，用法上倒没有什么复杂的地方，至于具体好在哪里，我就不说了，呵呵，可以自己看看专门介绍它的软件。比如说，我们要汉化一个英文软件，就比如汉化Turbo C吧，把菜单中的“File”汉化成中文的“文件”。用此编辑器打开TC的可执行文件tc.exe，当然啦，在做这之前，你要先备份好你要操作的文件，免得到时候没有汉化成功，倒弄坏了文件，回不来了。打开以后，就可以看到它的原二进制代码文件。这时候，你选择查找功能。从二进制中查找到“file”，找倒后，将它修改成“文件”，然后关闭，执行这个文件，看看是不是已经汉化了。当然，这次你找到的不一定就是你要汉化的菜单，不一定会成功。这就需要反复实验了。
这类方法比较累，并且也不一定准确。这种方法现在也基本没有人使用了。

第二种方法：
这种方法是比较简单的一种，但这种方法只能适用于带有语言选择的软件，这样的软件不是很多，只能是偶尔逮着一个，方法很简单，找到它的语言选择文件夹，里面会有各个语言的选择文件，比如FlashGet的language目录下面有三十几个国家的语言版本。这里面已经有中国的了，假如你想新建一个的话，则也可以用记事本按照它的格式建立一个语言版本。提供给大家的一个思路就是将它的原语言版本复制一个后，用记事本打开，然后按照它的格式修改，将它的内容换成你的内容，注意要一行一行地换，如果你把两行弄到一行去了，这就可能会产生错误了。换完后，你也就已经汉化了这个软件了。
这种方法用途不是很大，一般的多语言版本的程序都有中文的语言版本，不需要你的汉化了。

第三种方法：
好的方法当然留在最后讲，这种方法是汉化者们经常用的一种，那就是修改文件的资源文件。我们知道，用VC和DEPHI编译成的软件都有资源文件。高手呢，就是打开VC，直接修改内核，而我们嘛，就不必掌握这些复杂的方法了，这里给大家介绍一个简单的方法，用eXeScope软件修改，特别的简单。（没有听说过？那没有关系，网络学院里面有教程的）像这类的软件还有很多，不过这个历史比较长，使用也非常的简单。就给大家介绍它了。比如我们要汉化OICQ，当然这本来就是中文版了，不需要汉化，没有关系，这里只是给大家演示一下汉化的过程而已。（要详细了解eXeScope，有专门的文章介绍）
启动eXeScope，选择文件菜单，再选择打开，打开QQ的可执行文件。这时候左边的资源栏目里面就会出现该文件的全部资源，包括什么头部文件，导入的动态连接库，以及它所用到的资源文件。而资源文件，就是我们汉化时要终点修改的内容。从资源中间选择菜单（一般汉化就是汉化菜单和对话框）当菜单栏目展开以后，你可以看到右边的栏目里面有该菜单的全部内容了，这时候，只需要你自己改动就可以了，将各个菜单的名字都改成你所要的名字就可以了，比如说要是“File”，你讲它改成“文件”就可以了。注意的是“&”这个符号，编过程序的人应该知道，这个是不能动的，如果你不知道意思，只要记住，这个符号的意义是：这个符号后面紧跟的字母是这个菜单的快捷键，就像记事本的菜单“文件(F)”那么这个F就是快捷键，最好不要删除掉。比如说有个菜单为：“&Edit”，那么你换的时候，就不能把快捷键去掉，把它写成“(&E)编辑”，就可以了。这是一个要注意的地方。
汉化还包括汉化对话框，同样从左边资源树中点开对话框，从右边就可以看到各个具体的标签与空间的名称了，只需要将各控件显示的文字改过来就可以了，按下F8键，就可以可视化地进行修改了。将修改后的文件保存就可以了（在编辑菜单中有“保存修改”项）。你运行一下你刚才修改过的文件，可以看到修改后的效果了。