【按键精灵】连接MySQL

Set connection = CreateObject("ADODB.Connection")

//connection.Open "DSN=Mysql;UID=root;PWD=123456;PORT=3306;DATABASE=testdb;Data Source=localhost"

connection.Open "Provider=MSDASQL.1;Password=123456;Persist Security Info=True;User ID=root;Data Source=localhost;Initial Catalog=testdb"

Set recordset = CreateObject("ADODB.Recordset")

connection.BeginTrans 

SQL1 = "DELETE FROM items WHERE id = 1"

connection.Execute SQL1, resLength1

TracePrint resLength1

SQL2 = "UPDATE items SET name = '龙纹剑', price = 777 WHERE id = 2"

connection.Execute SQL2, resLength2

TracePrint resLength2

SQL3 = "INSERT INTO items(name, price) VALUES('屠龙刀', '999')"

connection.Execute SQL3, resLength3

TracePrint resLength3

TracePrint connection.Errors.Count

If connection.Errors.Count > 0 Then 

connection.RollbackTrans 

Else 

connection.CommitTrans

End If

SQL = "SELECT * FROM items"

recordset.open SQL, connection, 1

If recordset.bof And recordset.eof Then 

TracePrint "没有记录"

Else 

While not recordset.eof 

TracePrint recordset("id") & " " & recordset("name") & " " & recordset("price")

recordset.movenext

Wend

End If

recordset.close 

connection.close