用vb连接access，用代码连接，然后怎样查询表中的数据，在线等待

Question

用vb连接access，用代码连接，然后怎样查询表中的数据，用ado，请给个例子，谢谢

Answer 1

Dim myconn As New ADODB.Connection
Dim myrs As ADODB.Recordset
Dim connstring As String
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;persist security info=false;data source=mydb.mdb"
querystring = "select T_DAH from DB_file where T_CM='" & Trim(txtname.Text) & "'"
myconn.Open connstring
Set myrs = myconn.Execute(querystring)

Answer 2

Dim myconn As New ADODB.Connection
Dim myrs As ADODB.Recordset
Dim connstring As String
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;persist security info=false;data source=" & app.path  & "\mydb.mdb"
querystring = "select T_DAH from DB_file where T_CM='" & Trim(txtname.Text) & "'"
myconn.Open connstring
Set myrs = myconn.Execute(querystring)

Answer 3

记得给分给我
我公司的代码都给你
‘打开数据库连接
gConnectionString = "DBQ=D:\ServerData\Yyglxt.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=250;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
    dbdev.gConn.ConnectionString = gConnectionString
    dbdev.gConn.Open用strSQL定义要查询的语句Adodc1.ConnectionString = dbdev.gConn.ConnectionString
     strSql = "SELECT Lxb.生产总单号, Lxb.生产分单号, Lxb.客户, Lxb.型号, Lxb.规格, Lxb.要货数量, Lxb.开单日期, Lxb.配件期, Lxb.烧焊期, Lxb.半成品期, Lxb.匙, Lxb.鼻梁, Lxb.鼻头, Lxb.装头, Lxb.横梁, Lxb.眉,开单日期 FROM Lxb where 开单日期 like '%" & Trim(txtDate.Text) & "%'"
    'strSql = "SELECT Bcpdate.ネ玻羆虫腹, Bcpdate.ネ玻だ虫腹,  Bcpdate.皌ン戳,Bcpdate.め, Bcpdate.腹, Bcpdate.砏, Bcpdate.璶砯计秖, Bcpdate.秨虫ら戳, Bcpdate.縉瞜戳, Bcpdate.Θ珇戳 FROM Bcpdate where 皌ン戳 like '%" & Trim(txtDate.Text) & "%' order by 皌ン戳 "
    Adodc1.RecordSource = strSql
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
        

Answer 4

'定义一个ado的数据库连接
Public cN As New ADODB.Connection
'定义一个ado的数据库记录集
Public rS As New ADODB.Recordset
'声明一个SQL语句字符串
Public strSQL As StringSub main()
    cN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
    cN.CursorLocation = adUseClient
    Form1.Show
End SubPrivate Sub Form_Load()
    strSQL = "select * from stock where ID=" & """" & Trim(txtID) & """"
    '执行strSQL中定义的查询语句
    Set MSHFG.DataSource = cN.Execute(strSQL)
End Sub