第1个回答 2009-09-03
String,
ADOX的数据类型是adVarWChar
给一个例程给你
Sub Create_Table()
Dim cat As ADOX.Catalog
Dim myTable As ADOX.Table
On Error GoTo ErrorHandler
Set cat = New Catalog
cat.ActiveConnection = CurrentProject.Connection
Set myTable = New Table
With myTable
.Name = "java2sTable"
With .Columns
.Append "Id", adVarWChar, 10
.Append "Description", adVarWChar, 255
.Append "Type", adInteger
End With
End With
cat.Tables.Append myTable
Set cat = Nothing
MsgBox "The new table 'java2sTable' was created."
Exit Sub
ErrorHandler:
If Err.Number = -2147217857 Then
cat.Tables.Delete "java2sTable"
Resume
End If
MsgBox Err.Number & ": " & Err.Description
End Sub