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