VB向SQLserver数据库中添加新纪录爬过的坑

在用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