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