Thanks in advance
Bill
Add the Microsoft ActiveX Data Objects Extensions for Data Definition
Language and Security (short ADOX) Object to your Project.
The following code then creates a new jet-database:
Sub CreateDatabase()
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
End Sub
Matthias
"Bill" <entrep...@sohu.com> schrieb im Newsbeitrag
news:05a201c2b51c$44adfc80$89f82ecf@TK2MSFTNGXA01...
Q252908 HOWTO: Create a Table with Primary Key Through ADOX
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q252908
Hope this helps.
Ramesh Thyagarajan, MCSD,MCDBA
Microsoft Developer support
This posting is provided "AS IS" with no warranties, and confers no rights.
Are you secure? For information about the Microsoft Strategic Technology
Protection Program and to order your FREE Security Tool Kit, please visit
http://www.microsoft.com/security.