VBScript执行插入记录--用Connection

?

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 "操作结束"