The following code demonstrates how to create a new table in the Flight32.mdb
Set oConn = CreateObject( "ADODB.Connection" )
oConn.Open "QT_Flight32"
oConn.Execute "CREATE TABLE EventTable(" & _
"EventKey COUNTER ," & _
"Category TEXT(50) ," & _
"ComputerName TEXT(50) ," & _
"EventCode INTEGER ," & _
"RecordNumber INTEGER ," & _
"SourceName TEXT(50) ," & _
"TimeWritten DATETIME ," & _
"UserName TEXT(50) ," & _
"EventType TEXT(50) ," & _
"Logfile TEXT(50) ," & _
"Message MEMO)"
oConn.Close
Posted in ADODB

daniva




Recent Comments