s823342

'Microsoft ActiveX Data Objects 2.X Library ³]©w¤Þ¥Î¶µ¥Ø
    Dim myCon As New ADODB.Connection
    Dim myRst As New ADODB.Recordset
            
    '«ü©w­n³s±µªº¦øªA¾¹
    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