execute "update ..... "

解决方案 »

  1.   

    比如 table1 里有name,age 我如何执行 select age from table1 where name=*** 然后把查到的数据(假如是男) 输入到 一个text1里!!!
    最好有详细的代码
      

  2.   

    在VB中可以充分使用结构化查询(SQL)语句,如select age from table where name=*** 或select age from table1 where cgrade like,如果复杂查询还可以使用嵌套。updata是错误的,应该为update它有数据更新的功能,在vb中建立的数据库中,当对某一表格中的某条记录修改、删除或插入后,update可以对其进行更新,以保持数据的统一性!
      

  3.   

    楼上的看来没有弄明白我的意思 我是说如何执行select age from table1 where name=***  最后的结果如果是把查询的age(唯一的))传送到text1.text
      

  4.   

    dim rs as new adodb.recordset
    dim cn as new ADODB.Connection
    cn.open....
    rs.open "select age from table1 where name='" & ***   & "'",cn
    text1.text=rs.fields("name").value
      

  5.   


    模块
    Public con As New ADODB.Connection
    Public rs As New ADODB.Recordset
    Sub main()
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\diy软件成品\收入表\mmm_01.mdb;Persist Security Info=False"  ··连接字符串
    Form1.Show
    End Sub
    窗体
    Private Sub Form_Load()
    If rs.State = 1 Then rs.Close
    rs.Open "select * from b_1", con, adOpenKeyset, adLockOptimistic
    getdate函数
    Private Function getdate()
    Text1.Text = rs.Fields(1)
    Text2.Text = rs.Fields(2)
    Text3.Text = rs.Fields(3)
    Combo1.Text = rs.Fields(0)
    End Function
      

  6.   

    Private Sub cmdOK_Click()
    Dim con As New ADODB.Connection
    con.CursorLocation = adUseClient
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database\main.mdb"
    Dim rs As New ADODB.Recordset
    Dim mysql As String
    Dim str As String
    mysql = "select * from 用户表 where 用户名='" & text.text & "'"
    rs.Open mysql, con, adOpenStatic, adLockOptimistic
    Text1.text = rs.Fields("age").Value
    End Sub
    系统提示出错:语法错误(操作符丢失)在查询表达式'用户名=‘1’'中
    那个1是我输入的