Sub OnClick(ByVal Item)
Dim database, server, uid, pwd
Dim strcn, cn
Dim is_SQL

database = "CC_TEST_08_05_21_15_03_52R"
server = "."
uid = "SMARTFOX\Adminitrator"
pwd = ""
strcn = "Provider = SQLOLEDB.1; DRIVER = SQL SERVER; SERVER =" &_
server & ";DATABASE =" & database & ";UID =" & uid & ";PWD =" &_
pwd
Set cn = CreateObject("ADODB.Connection")
cn.Connectiongstring = strcn
cn.Open
is_SQL = "insert into dbo.table1 (学号, 课程号, 成绩) values (001,001,90)"
cn.Execute is_SQL
cn.close
End Sub
我只想做个简单的实验，可是不知道为什么不能用，有经验的朋友能帮忙分析一下么？谢谢！