关于VB连接ACESS数据库 来实现查询功能！

Question

我是个新手！需要大家帮助~在这谢谢大家！
我现在做一个价格查询系统，
在查询窗口上有两个TEXT   一个LIST  以及两个按钮。如何连接数据库实现查询功能
TEXT  分别是型号查询   类型查询
LIST  显示查询到的内容

Answer 1

连接数据库
    connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\您的数据库名称.mdb;"
    conn.Open connStr

Answer 2

连接带有密码的MDB数据库
     connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\您的数据库名称.mdb;Jet OLEDB:database password=您的数据库密码"
    conn.Open connStr

Answer 3

我要的是查询的方法 那个连接的我有 不过还是谢谢szyss 

Answer 4

如何按下按钮实现查询  并在下面的LIST1内显示

Answer 5

把你的两个 TextBox 换成两个下拉列表型的 ComboBox - cboType, cboPartNoPrivate Sub Form_Load()
    Set cn = New ADODB.Connextion
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\您的数据库名称.mdb"
    Set rs = cn.Execute("SELECT DISTINCT type FROM yourtable ORDER BY type")
    Do Until rs.EOF
        cboType.AddItem rs!Type
        rs.MoveNext
    Loop
    If cboType.ListCount Then cboType.ListIndex = 0
    Set rs = Nothing
End SubPrivate Sub cboType_Click()
    Set rs = cn.Execute("SELECT DISTINCT PartNo FROM yourtable WHERE type = '" & cboType.Text & "' ORDER BY PartNo")
    Do Until rs.EOF
        cboPartNo.AddItem rs!PartNo
        rs.MoveNext
    Loop
    If cboPartNo.ListCount Then cboPartNo.ListIndex = 0
    Set rs = Nothing
End SubPrivate Sub cboPartNo_Click()
    Set rs = cn.Execute("SELECT * FROM yourtable WHERE PartNo = '" & cboPartNo.Text & "'")
    Do Until rs.EOF
        List1.AddItem rs.Fields(0) & vbTab & rs.Fields(1) & vbTab & rs!Fields(2) & vbTab & rs.Fields(3)
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

Answer 6

是 Set cn = New ADODB.Connection  ！！！！！！11
5555555555
弄了半天才知道是哪个问题5555

Answer 7

这样的问题建议你去读一下MSDN上关于数据库访问里ADO和ADODC的那一部分。
光这里给你解决意义不大

Answer 8

Dim rst As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sqlstr As String
connstr = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data   Source= "   &   App.Path   &   "\你的数据名称; " 
conn.Open connstr
sqlstr="select   *   from   表名称   where  查找字段   like   ' "   +   Trim(你要查找的内容)   +   " ' "
rst.open sqlstr,conn, adOpenKeyset, adLockPessimistic
Do Until rs.EOF
   List1.AddItem rst.Fields(0) & vbTab & rst.Fields(1) & vbTab & rst!Fields(2) & vbTab & rst.Fields(3)
   rst.MoveNext
Loop
rst.close
set rst=nothing