[VB6] Creare un DB Access con connessione ADO senza utilizzare i DSN

[Mike]

Salve,

da premettere che non sono una cima in vb6, infatti sto impazzendo per riuscire a capire come creare un db access con connessione ado senza utilizzare i dns...

ho dato un'occhiata anche sul sito microsoft msdn ma ho trovato soltanto codice per asp

[yyzyyz]

con DAO puoi farlo, aggiungi su progetto > riferimenti microsoft DAO (qualsiasi versione) e poi incolla questo codice sul form:

Private Sub Form_Load()

Dim db As Database
Dim Td As TableDef

' crea il database
Set db = CreateDatabase("C:\tmpDb.mdb", dbLangGeneral & ";pwd=pwd")

' definisce tabella1
Set Td = db.CreateTableDef("Tabella1")
Td.Fields.Append Td.CreateField("Campo1", dbInteger)
Td.Fields.Append Td.CreateField("Campo2", dbText, 50)
Td.Fields.Append Td.CreateField("Campo3", dbBoolean)
Td.Fields.Append Td.CreateField("Campo4", dbDate)

' crea la tabella1
db.TableDefs.Append Td
End Sub

[newbie]

Potresti anche usare ADOX:

• aggiungi un riferimento alla libreria ADOX al progetto (si dovrebbe chiamare "ADO Ext for DDL ans Security" o qualcosa del genere)
• crea un nuovo oggetto di tipo ADOX.Catalog
• crea il database via codice

In codice, supponendo di voler creare il database C:\Nuovo.mdb si fa così:

Dim cat as new ADOX.Catalog
cat.Create("Driver={Microsoft Access Driver (*.mdb)};DBq=C:\Nuovo.mdb")

A questo punto, l'oggetto cat.ActiveConnection è una vera e propria connessione ADO al database appena creato, su cui puoi , ad esempio, eseguire comandi SQL CREATE TABLE per creare le tabelle che ti interessano.

[yyzyyz]

Originariamente inviato da yyzyyz
con DAO puoi farlo, aggiungi su progetto > riferimenti microsoft DAO (qualsiasi versione) e poi incolla questo codice sul form:

Private Sub Form_Load()

Dim db As Database
Dim Td As TableDef

' crea il database
Set db = CreateDatabase("C:\tmpDb.mdb", dbLangGeneral & ";pwd=pwd")

' definisce tabella1
Set Td = db.CreateTableDef("Tabella1")
Td.Fields.Append Td.CreateField("Campo1", dbInteger)
Td.Fields.Append Td.CreateField("Campo2", dbText, 50)
Td.Fields.Append Td.CreateField("Campo3", dbBoolean)
Td.Fields.Append Td.CreateField("Campo4", dbDate)

' crea la tabella1
db.TableDefs.Append Td
End Sub

ciao, volevo specificare ke utilizzando la versione Microsoft DAO Object Library 3.6 potrai ottenere database in formato Access2000.


x newbie : ricevo un errore di runtime ke mi dice interfaccia non supportata -? :master:

[Mike]

Comunque grazie dell'aiuto, anche se con un po di ritardo ma non per colpa mia.....

ho provato con DAO e funziona bene mentre con ADO purtroppo c'è qualche problema...

Di nuovo grazie e alla prossima...