Create TABLE in MS ACCESS Database thru script

Hi All,

Here i am providing the way of creating the table in MS Access database.

Script:

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

Output: