给出SQL-SERVER语句,请帮忙写出按钮事件里面包含的语句。
insert orders (cOrder,vNumber,vTab) values(?,?,?)
要求:
1、问号处要获得文本框text1,text2,text3的文本信息。
2、要求从点击“命令按钮”开始,即从数据库的连接,定义变量,SQL语句,执行SQL语句,到数据库的关闭,语句一条不缺的写。(但也不要写的太多太复杂,能达到插入目的即可)。

解决方案 »

  1.   

    Private Sub button_click()
    dim  cnDB As New ADODB.Connection
    dim StrSQL as String
       
        cnDB.ConnectionString = strCnn = "Provider=sqloledb;" & _
          "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
     
        cnDB.CommandTimeout = 15
        cnDB.Open
        StrSQL="insert orders (cOrder,vNumber,vTab) values('" & text1 & "','" &  text2 & "','" & text3 & "')"    
        cnDB.Execute StrSQL
        cnDB.close
    End Sub