If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How to automate creation of database?
The following code results in "No Such interface supported".
What am I doing wrong? I'm trying to create an Access database. thanks, Siegfried 'ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & sFileName) ADOXcatalog.Create("Driver={Microsoft Access Driver (*.mdb)};Dbq=" & sFileName & ";Uid=Admin;Pwd=; ") errhandler: If Err.Number = -2147217897 Then MsgBox("Database already exists") ElseIf Err.Number 0 Then MsgBox("Err " & Err.Description & "; operation not complete") End If |
#2
|
|||
|
|||
How to automate creation of database?
Try this example:
http://allenbrowne.com/func-ADOX.htm...teDatabaseAdox -- Allen Browne - Microsoft MVP. Perth, Western Australia Tips for Access users - http://allenbrowne.com/tips.html Reply to group, rather than allenbrowne at mvps dot org. "Siegfried Heintze" wrote in message ... The following code results in "No Such interface supported". What am I doing wrong? I'm trying to create an Access database. thanks, Siegfried 'ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & sFileName) ADOXcatalog.Create("Driver={Microsoft Access Driver (*.mdb)};Dbq=" & sFileName & ";Uid=Admin;Pwd=; ") errhandler: If Err.Number = -2147217897 Then MsgBox("Database already exists") ElseIf Err.Number 0 Then MsgBox("Err " & Err.Description & "; operation not complete") End If |
Thread Tools | |
Display Modes | |
|
|