VB数据库搜索问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 23:06:06
datagrid adodc
combo控件 获取当前数据库的字段!
text1.text为要查询的内容. 按钮搜索时,搜索combo控件里的字段内容.
搜索到内容时, 要把datagrid光标定位到那, 因为我要在其他地方显示出数据.

有的话给上代码,感谢.. 急用~!~~ 直接贴别人代码的就免了!

数据库我是随便新建了一个有三个字段的数据库
有问题可以再问我，只是不一定能及时回答
Private Sub Command1_Click()
Dim i, sql As Integer
i = -1
Do
i = i + 1
Loop Until Combo1.Text = Adodc1.Recordset.Fields(i).Name
sql = i
Adodc1.Recordset.MoveFirst
Do
If Text1.Text = Adodc1.Recordset.Fields(sql) Then Exit Sub
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
End Sub

Private Sub Form_Load()
Dim i, Count As Integer
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=True;"
Adodc1.RecordSource = "表1"
Adodc1.CommandType = adCmdTable
Adodc1.Refresh
Adodc1.Visible = False
Count = Adodc1.Recordset.Fields.Count
i = 0
Do
Combo1.AddItem Adodc1.Recordset.Fields(i).Name
i = i + 1
Loop Until i = Count
End Sub

用find不就可以了啊