Dim cat As ADOX.Catalog Dim tbl As ADOX.Table On Error GoTo 0 ' Create the new database. Set cat = New ADOX.Catalog cat.Create _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & DatabaseName & ";" ' Create a new table. Set tbl = New ADOX.Table tbl.Name = "test" tbl.Columns.Append "strTableName", adVarWChar, 40 tbl.Columns.Append "strWord", adBinary tbl.Columns.Append "strImage1", adBinary tbl.Columns.Append "strImage2", adBinary
在Access还是Sqlserver中?
sqlserver可以用image
Dim tbl As ADOX.Table On Error GoTo 0 ' Create the new database.
Set cat = New ADOX.Catalog
cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DatabaseName & ";" ' Create a new table.
Set tbl = New ADOX.Table
tbl.Name = "test"
tbl.Columns.Append "strTableName", adVarWChar, 40
tbl.Columns.Append "strWord", adBinary
tbl.Columns.Append "strImage1", adBinary
tbl.Columns.Append "strImage2", adBinary
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
End Function
不信你试试。
用adBinary后,生成255的二进制数,但不是OLE。