creare un Database via codice con ADO in VB6

[Neopolis]

CIao a Tutti,

mi sapete dire come si fa?

In DAO si faceva cosi:

Set db = ws.CreateDatabase("C:\db.mdb", dbLangGeneral)

Ciao

[badmood]

Probabilmente dovrai usare sintassi SQL, del tipo "create schema" o simili. Da qualche parte avevo trovato un quick reference, se mi torna tra le mani ti posto l'indirizzo esatto.

Ciao

[badmood]

Oppure:

Sub CreateAccessDatabase(strDBPath As String)
Dim catNewDB As ADOX.Catalog
Set catNewDB = New ADOX.Catalog

catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath

Set catNewDB = Nothing
End Sub

Per altre informazioni prova su
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odeopg/html/deovrchoosingadoordaoforworkingwithaccessdatabases .asp
e correlati.

Ciao

[beee]

Ma cosa è ADOX.Catalog ??
Ho installato VB6, V. interdev , office xp, ma non ho nessun riferimento a ADOX.

Bye !!

[badmood]

Beh, era un esempio tratto dal sito Microsoft...
Comunque sia, ADOX è un'estensione ad ADO.

Per semplificare:
Dim objCat As New ADOX.Catalog
objCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Pippo\MioDatabase.mdb"

Un esempio più completo ed esteso lo trovi su
http://www.geocities.com/SiliconValley/Lakes/1636/ADOX1.htm

Invece su
http://www.able-consulting.com/ADOX_Faq.htm
ti spiegano anche come creare, in base ai parametri passati, database di tipo Access 97 o 2000

Ciao