Create a Table in a JET Database
Posted by admin - Apr 1, 2008 ADODB, Articles, Dani Vainstein, QTips 0 0 Views : 244 Receive Updates For This Category
Article Tools
- Print this page
- Add Comment
- Send to Friend
- Last Updated on :
Jul 16, 2011
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
