vbs添加mysql记录_VBScript执行插入记录--用Command

On error resume Next

Dim mu_ConnString, mu_InsertSql

mu_ConnString = "driver={SQL Server};Server=192.xx.xx.xx;database=TestFax;Uid=sa;pwd=xxx;" '连接SQL Server2005

'mu_ConnString = "Provider=MSDAORA.1;Data Source=GSxx;User ID=GSxxx;Password=GSxxx" '连接Oracle数据库

mu_InsertSql = "Insert into T_UserInfo(UName,UAge,UMoney) values('陈天',20, 3000)"

Dim objConnection, objCommand

set objConnection = CreateObject("ADODB.Connection")

set objCommand = CreateObject("ADODB.Command")

objCommand.CommandType = 1

objCommand.CommandText = mu_InsertSql

objConnection.Open mu_ConnString '打开数据库

if(objConnection.State = 0) Then

MsgBox "连接数据库失败"

else

objCommand.ActiveConnection = objConnection '此句必须放在数据库打开之后

objCommand.Execute

if err.number = 0 Then

MsgBox "执行插入成功"

else

MsgBox "执行插入失败"

end if

objConnection.Close

set objCommand = Nothing

set objConnection = Nothing

end if

MsgBox "操作结束"