怎样用VB调用ACCESS中建立好的数据库中的数据?
数据库中的列包含:国籍,性别,年龄段,百分位,尺寸名称,尺寸大小,尺寸单位。(如图所示)现在想实现如下功能:在VB的相关控件中分别选择或输入“国籍”,性别(男、女),年龄...
数据库中的列包含:国籍,性别,年龄段,百分位,尺寸名称,尺寸大小,尺寸单位。(如图所示)
现在想实现如下功能:在VB的相关控件中分别选择或输入 “国籍”,性别(男、女),年龄段(分为3段),百分位(7个)后, 程序能调出所有n个尺寸名称所对应的n个“尺寸大小”,并将尺寸数值 分别赋值给 VB中的text控件:text1 ——textn 。
急用,万分感激,如果回答正确,将追加50分!~谢谢 展开
现在想实现如下功能:在VB的相关控件中分别选择或输入 “国籍”,性别(男、女),年龄段(分为3段),百分位(7个)后, 程序能调出所有n个尺寸名称所对应的n个“尺寸大小”,并将尺寸数值 分别赋值给 VB中的text控件:text1 ——textn 。
急用,万分感激,如果回答正确,将追加50分!~谢谢 展开
3个回答
展开全部
添加四个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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不需要使用VB来做,
既然选择ACCESS 那就用ACCESS来做啊。
新建查询,新建窗体,一下子就做出来了。
既然选择ACCESS 那就用ACCESS来做啊。
新建查询,新建窗体,一下子就做出来了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询