怎样用VB调用ACCESS中建立好的数据库中的数据？
数据库中的列包含：国籍，性别，年龄段，百分位，尺寸名称，尺寸大小，尺寸单位。（如图所示）
现在想实现如下功能：在VB的相关控件中分别选择或输入 “国籍”，性别（男、女），年龄段（分为3段），百分位（7个）后， 程序能调出所有n个尺寸名称所对应的n个“尺寸大小”，并将尺寸数值 分别赋值给 VB中的text控件：text1 ——textn 。
急用，万分感激，如果回答正确，将追加50分！~谢谢
最好利用ADO控件，查找数据比较方便点，网上可以再查查有关ADO的查询语法，照着格式对应你的数据库抄上去就可以了，然后再作相关的text1.text=adodc1.recordset.filds(i)……什么的就可以了，先查找，后赋值，具体代码得你自己敲了，呵呵~~
温馨提示：内容为网友见解，仅供参考
第1个回答 推荐于2016-10-13
添加四个comol，一个Adodc，一个DataGrid控件
Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ss where 国籍 like '" & Combo1.Text & "' and 性别 like '" & Combo2.Text & "'and 年龄段 like '" & Combo3.Text & "'and 百分比 like '" & Combo4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "无数据"
Else
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=aa.mdb"
End Sub本回答被提问者采纳
Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ss where 国籍 like '" & Combo1.Text & "' and 性别 like '" & Combo2.Text & "'and 年龄段 like '" & Combo3.Text & "'and 百分比 like '" & Combo4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "无数据"
Else
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=aa.mdb"
End Sub本回答被提问者采纳
第2个回答 2010-10-22
不需要使用VB来做，
既然选择ACCESS 那就用ACCESS来做啊。
新建查询，新建窗体，一下子就做出来了。
既然选择ACCESS 那就用ACCESS来做啊。
新建查询，新建窗体，一下子就做出来了。
相似回答
