- 帖子
- 3
- 主題
- 0
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 註冊時間
- 2012-2-2
- 最後登錄
- 2020-5-14
|
2#
發表於 2012-2-2 13:24
| 只看該作者
'Microsoft ActiveX Data Objects 2.X Library 設定引用項目
Dim myCon As New ADODB.Connection
Dim myRst As New ADODB.Recordset
'指定要連接的伺服器
myCon.Open ConnectionString:="server=AAA;db=AAA;driver=MySQL ODBC 3.51 Driver;uid=AAA;pwd=AAA"
'執行SQL
mysql = "delete from table_name"
Set myRst = myCon.Execute(mysql)
myCon.Close
Set myRst = Nothing '物件的釋放
Set myCon = Nothing |
|
