路由人生 软件工具 Vba和mssql如何建立数据库连接

Vba和mssql如何建立数据库连接

MyServer = “192.168.1.22,1433” ‘存放数据的SQL Server 服务器
mydata = “CR_YPPF10” ‘存放数据的SQL Server 数据库

‘***********************修改结束*********************************************************

Set conn = CreateObject(“ADODB.Connection”) ‘建立ADODB连接对象
Set rs = CreateObject(“ADODB.recordset”) ‘建立收集器对象

conn.connectionstring = “Driver={sql server};” _
& “server=” & MyServer & “;” _
& “uid=11;pwd=11;” _
& “database=” & mydata _
& “;AutoTranslate=False”
‘服务器是:WISE-THINK
conn.Open ‘打开连接SQL server

将数组 写入数据库中

For i = 1 To UBound(MyArr1) – 1
For j = 1 To UBound(MyArr4) – 1
If Sheets(“Sheet1”).Cells(i + 1, 6).Value = “完成” Then
GoTo down:
End If
mystr = ” Values( ”
‘mystr = mystr & “‘” & MyArr1(i) & “‘,'” & MyArr2(i) & “‘,'” & MyArr3(j) & “‘,'” & MyArr4(i) & “‘,'” & MyArr5(i) & “‘)”
mystr = mystr & “‘000’,'” & MyArr2(i) & “‘,’销售客户’,'” & MyArr4(j) & “‘,’包含’)”
‘添加数据的SQL语句

SQL = “Insert into sp_kz ” & Arr & ” ” & mystr
conn.Execute SQL
Next j
Sheets(“Sheet1”).Cells(i + 1, 6).Value = “完成”
Next i
MsgBox “数据添加成功!”, vbInformation

本文来自路由人生,转载请注明出处。

作者: myweb

发表评论

联系我们

联系我们

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部