在用VB编写程序向SQLserver数据库中添加新纪录。
1、配置ODBC
下一步点击完成,后面可以点击测试,试一下通不通。
2、编写VB代码
新建一个VB标准exe工程,并在页面上加两个按钮和text控件
双击add按钮进入程序编写界面。
Private Sub Command1_Click()
Dim objConnection
Dim strConnectionString As String
Dim strSQL As String
Dim objCommand
Dim obj
Dim COD
Dim NN
Dim ti
COD = 123
NN = 456
strConnectionString = "Provider=MSDASQL;DSN=ceshi;UID=sa;PWD=******;"
‘DNS应该填写配置ODBC时的名称,我用的是ceshi
ti = Now()
'ti获取当前系统时间
Text1.Text = ti
'显示到页面的text控件中
strSQL = "INSERT INTO ceshiodb (time,COD,NN) values ( '" & ti & "'," & COD & "," & NN & ")"
'看清楚,&跟要写的变量之间是有一个空格的,如果是时间的话,需要用两个单引号包裹住两个双引号,双引号包裹两个&,两个&包裹时间的变量.其他数据类型变量,就不用单引号包裹了.
Set objConnection = CreateObject("ADODB.Connection") '创建连接对象
objConnection.ConnectionString = strConnectionString
objConnection.Open '打开连接
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute '执行sql语句并退出
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub