VB查询ACCESS小程序

来源：百度知道 编辑：UC知道 时间：2024/05/26 02:22:24
要做一个VB小程序,实现查询ACCESS表,一个文本框,一个查询键,一个ADODC控件,一个DATDGRID控件.现在面临的问题是:1.ADODC控件连接数据库,几个关键属性如何设.2.查询是通过在TEXT框中输入条件按查询键实现的,ADODC的RecordSource怎么办,空着?3.查询键的代码我是这样写的,行不行?
Private Sub ok_Click()
Dim JiluString As String
JiluString = "Select * From 表1 Where 电话号码= '&Text1.text&'"
Adodc1.RecordSource = JiluString
End Sub

另:WHERE后面的语句对不对,格式问题出在哪,

现在就是不能用,各个环节都看了,就是不能用.郁闷啊.

顺便再问一下,如果再设一个按键为删除,可以删除当前显示的记录吗,删除键代码怎么写?
DataGrid1.DataSource = Adodc1
未找到方法或数据成员.为何,
查询键的代码更新如下,可是仍然无法使用.
Private Sub ok_Click()
Adodc1.RecordSource = "Select * From 表1 Where 电话号码= '" & Text1.Text & "'"
Adodc1.Refresh
DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

查询语句应该写成
JiluString = "Select * From 表1 Where 电话号码= '" & Text1.text & "'"

删除用
"delete 表1 where 电话号码 = '" & Text1.Text & "'"

对问题补充：
不存在RecordSource属性啊，当然报错了，而且对象赋值必须用set语句
过程应修改如下
adocon是ADODB.Connection对象的实例

Private Sub ok_Click()
Adodc1.open "Select * From 表1 Where 电话号码= '" & Text1.Text & "'",adocon,adOpenKeyset, adLockOptimistic

set DataGrid1.DataSource = Adodc1
End Sub

删除记录使用以下语句，
adodc1.open "delete 表1 where 电话号码 = '" & Text1.Text & "'"

1、ADODC的RecordSource空着,不用填写；
Adodc1.RecordSource = "Select * From 表1 Where 电话号码= '"& Text1.text &"'"
2、 在查询时：
DataGrid1.DataSource = Adodc1
3、在删除时：
Adodc1.Recordset.Delete '注意：删除的是查询出的记录