VBScript执行插入记录--用Connection

最新推荐文章于 2025-08-22 11:10:38 发布

转载最新推荐文章于 2025-08-22 11:10:38 发布 · 121 阅读

文章标签：

#数据库

本文提供了一个使用VBA连接SQLServer并执行数据插入操作的示例，展示了如何设置连接字符串、创建连接对象及执行SQL插入语句。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

On error resume Next

Dim mu_ConnString, mu_InsertSql

mu_ConnString = "driver={SQL Server};Server=192.xx.xx.xx;database=TestFax;Uid=sa;pwd=zzz;"    '连接SQL Server2005
'mu_ConnString = "Provider=MSDAORA.1;Data Source=GSxxx;User ID=xx;Password=xxx"          '连接Oracle数据库
mu_InsertSql = "Insert into T_UserInfo(UName,UAge,UMoney) values('陈天',20, 3000)"

Dim objConnection

set objConnection = CreateObject("ADODB.Connection")
objConnection.Open mu_ConnString                      '打开数据库

if(objConnection.State = 0) Then
    MsgBox "连接数据库失败"
else
    objConnection.Execute mu_InsertSql
    if err.number = 0 Then
        MsgBox "执行插入成功"
    else
        MsgBox "执行插入失败"
    end if

    objConnection.Close
    set objConnection = Nothing
end if
MsgBox "操作结束"

关注博主即可阅读全文