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
 

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值