vb6.0查询ACCESS

用Text1做查询输入,这里num属数值字段,用Adodc1控件连接数据库,用

DataGrid1做显示查询结果,在DataGrid1的属性页中选其DataSource为Adodc1如果num字段为文本,则将sql句改为:

sql = "select area from list where num ='" & Val(Text1) & "'"

Private Sub Command1_Click()

sql = "select area from list where num =" & Val(Text1)

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=C:\te1mdb;Persist Security Info=False"

Adodc1RecordSource = sql

Adodc1Refresh'对查询更新

DataGrid1Refresh

End Sub

请参阅:

>

以上就是关于vb6.0查询ACCESS全部的内容，包括:vb6.0查询ACCESS、VB6.0中如何查询数据库以及如何在DBgrid中显示查询结果、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！