Код:
Option Explicit
With WScript.CreateObject("ADODB.Connection")
.Open _
"Driver={MySQL ODBC 5.3 UNICODE Driver};" & _
"Server=localhost;" & _
"User=root;" & _
"Password=MyPassword;"
.Execute "DROP DATABASE IF EXISTS abc"
.Execute "CREATE DATABASE abc"
.Execute "USE abc"
.Execute "DROP TABLE IF EXISTS table2"
.Execute "CREATE TABLE table2 (Id INT PRIMARY KEY AUTO_INCREMENT, txt VARCHAR(100) NOT NULL DEFAULT 'abc', txt2 VARCHAR(100) COMMENT 'abc')"
ShowTable .Execute("SHOW TABLES")
ShowTable .Execute("DESC table2")
.Close
End With
WScript.Quit 0
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
Sub ShowTable(objRecordset)
Dim i
With objRecordset
.MoveFirst
For i = 0 To .Fields.Count - 2
WScript.StdOut.Write .Fields.Item(i).Name & "," & vbTab
Next
WScript.StdOut.WriteLine .Fields.Item(.Fields.Count - 1).Name
WScript.StdOut.WriteLine "-----------------------------"
Do Until .EOF
For i = 0 To .Fields.Count - 2
WScript.StdOut.Write .Fields.Item(i).Value & "," & vbTab
Next
WScript.StdOut.WriteLine .Fields.Item(.Fields.Count - 1).Value
.MoveNext
Loop
WScript.StdOut.WriteLine "-----------------------------"
WScript.StdOut.WriteLine
.Close
End With
End Sub
'-----------------------------------------------------------------------------
