Question

VB查询ACCESS数据库的问题。

VB和ACCESS数据库已经连接上了。 我在vb里面设置一个ComboBox 里面有几个选项如：书名，作者。 有TextBox 。
在数据库的名称是vb 路径是D:\vb.mdb 里面表的名称是table表有5列，其中有两个列的名称是书名，作者。

要求，在ComboBox 里面选择书名的时候，当TextBox里面输入关键词时，在table相对应的列（书名）中进行检索。检索完后在label中输出。
请把程序写的详细 且加上说明。

谢谢！

Answer 1

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb.mdb"
Set cnn = New ADODB.Connection
cnn.Open strcnn

Set rs = New ADODB.Recordset

Combo1.Clear
'=======================================本段给combo1控件赋值
If rs.State <> adStateClosed Then rs.Close
rs.Open "select [书名] from [table]", cnn, adOpenStatic, adLockOptimistic
For i = 1 To rs.RecordCount
Combo1.AddItem Trim(rs(0) & "")
rs.MoveNext
Next
'====================说真的没看懂你的问题，有combobox 为什么还要个textbox
'====================以下是数据库的模糊查找
'简单的模糊查找数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb.mdb"

Dim strquery As String
If Text1.Text <> "" Then
strquery = "select * from [table] where [书名] like '%" & Text1.Text & "%'"
else
.......
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strquery
Adodc1.Refresh

Answer 2

"select * from table where " & combobox.text & "='%" & textbox.text & "'%"
大概是这个意识

Answer 3

自己带价Q644676751

没有免费的午餐

你可以选择QB或者银行付款