UC知道vb中如何将连个表来年在一起
来源：百度知道 编辑：UC知道 时间：2024/07/07 11:51:39
我想做个非常简单的学生成绩查询 现在已经建立了两个表 一个是学生基本情况（ 姓名 学号 专业 性别 ） 另一个是学生成绩（学号 成绩 ）我想把两个表通过 学号这个主键联系起来 合成一个 在窗体中我用了data 控件和MSFlexgrid 网格 现在用语句只能在MSFlexgrid中出现一个表格
是不是我的DATA属性设置有问题 不知道我的意思你能明白吗 不是创建表格 是把已有的两个表格连在一起 出现在窗体的MSFlexgrid里 另外有人回答是这样的 ： 在vb里，一般不这么做（把控件与数据库的表绑定），而是通过查询。
查询字符串为：
select A.姓名，A.学号，A.性别，A.专业，B.成绩
from 学生基本情况 A，学生成绩 B
where A.学号=B.学号
查询可得一个记录集，就这个记录集放入数据网格，即可。但是我还是不明白他的意思是不用添加DATA控件了吗 谁能给我详细说说 从最基本的开始说 我创建一个窗体之后 该怎么做 需要添加什么控件 最后怎样在窗体的网格内显示出结果
是不是我的DATA属性设置有问题 不知道我的意思你能明白吗 不是创建表格 是把已有的两个表格连在一起 出现在窗体的MSFlexgrid里 另外有人回答是这样的 ： 在vb里，一般不这么做（把控件与数据库的表绑定），而是通过查询。
查询字符串为：
select A.姓名，A.学号，A.性别，A.专业，B.成绩
from 学生基本情况 A，学生成绩 B
where A.学号=B.学号
查询可得一个记录集，就这个记录集放入数据网格，即可。但是我还是不明白他的意思是不用添加DATA控件了吗 谁能给我详细说说 从最基本的开始说 我创建一个窗体之后 该怎么做 需要添加什么控件 最后怎样在窗体的网格内显示出结果
曾经写过这样一个例子，连接的数据文件就是一个自己写的excel文件DataSource.xls
首先在“工程”菜单中的“引用”选“microsoft activeX data objects 2.5 library”
Dim pathname As String
Dim conn As New ADODB.Connection
Private Sub Command1_Click()
On Error GoTo ErHandle
pathname = App.Path & "\DataSource.xls"
If Dir(pathname, vbDirectory) = "" Then
MsgBox "データソース（DataSource.xls）が见つかりません！"
Exit Sub
End If
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & pathname_ & ";Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
'注意，上面的格式
MsgBox "OK!"
Exit Sub
ErHandle:
MsgBox "Error!"
End Sub
你在这里面设置两个表（Sheet），就可以用SQL来查询了，比如我有个表（Sheet）叫 ”全ての装置“，
strsql = "select distinct 场所 from [" & FirstSheetName & "$]"
'