有一库db1.mdb 中有一个表abc 有两个字段xingming nianling我想查询 xingming = 张三  的记录并显示出来 已经定义了 Private Sub Form_Load()Set myconn = New ADODB.Connection
myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & IIf(Len(App.Path) = 3, "db1.mdb", "\db1.mdb") & ";Persist Security Info=False"
myconn.Open
Set myrecord = New ADODB.Recordset
myrecord.Open "abc", myconn, adOpenKeyset, adLockReadOnly
Text1.Text = myrecord.Fields("xingming").ValueEnd Sub用这个 查询语句对吗 
Dim SQLStr As String
SQLStr = "select xingming form abc where xingming=88"

解决方案 »

  1.   

    myrecord.Open SQLStr , myconn, adOpenKeyset, adLockReadOnly
      

  2.   

    myrecord.Open "abc", myconn, adOpenKeyset, adLockReadOnly
    调用上面这句会返回返回表里所有数据,之后可以用 myrecord.filter="xingming=88"
    筛选数据, 
    或用楼上的办法
      

  3.   

    "select xingming form abc where xingming=88"用select * from abc where xingming='张三'吧。 
    要不你查出的东西有什么意义。
      

  4.   

    "select xingming form abc where xingming=88"用select * from abc where xingming='张三'吧。 
    要不你查出的东西有什么意义。
    ===========================
    呵呵
      

  5.   

    myrecord.Open "select * from form abc where xingming=88", myconn, adOpenKeyset, adLockReadOnly,-1
    if myrecord.bof=false or myrecord.eof=false
       Text1.Text =Trim(myrecord.Fields("xingming") & "")
       Text2.Text=Trim(myrecord.Fields("nianling") & "")
    endid
    myrecord.close
    set myrecord=nothing