[VB6]Creazione e gestione DB via codice (era:Problemi Database per un newbie)

[morpheus81]

Ciao a tutti
mi sono messo a studiar il VB, però ho problemi con i DB, non a crearli ma a farmeli vedere da un programma in VB
ad esempio per creare un db al volo so che devi scrivere:

Dim MyDb As Database, MyWs As Workspace
Set MyWs = DBEngine.Workspaces(0)
Set MyDb = MyWs.CreateDatabase("PercorsoFile", dbLangGeneral)

ma dove cioè nel form_load, o dove altro.

ciao :master:

[RAVALON]

Ti consiglio di studiarti ADO invece che DAO come stai facendo...specie per un newbie è più semplice...

se hai MSDN trovi tutto quello che ti serve li

[scoppato]

Ha ragione RAVALON, usa ADO!
Prova a mettere nel form_load questo:

Instanzi le variabili connessione e rs:

set connessione as New ADODB.Connection
set rs as New ADODB.Recordset

Con questo apri la connessione verso il DB

dim strConn as string
strConn = "data Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\TuaCartella\tuoDB.mdb"
Connessione.Open strConn

Selezioni i/il record che ti interessa:

dim strRS as string
strRS ="SELECT* FROM TuaTabella"
rs.open strRS, connessione, 1, 3

Spero di non aver sbagliato a scrivere, comunque questa potrebbe essere una soluzione. Poi dipende come vuoi far visualizzare i record: puoi inserirli in TExtBox, in FlexGrid, DataGrid, e chi più ne ha più ne metta!
Posta pure se hai problemi

[morpheus81]

Ok grazie stasera quando ho un attimo ci provo e ti faccio sapere.

[morpheus81]

Non funziona.
Ma mi viene un dubbio per far funzionare i DB bisogna istallare MSDN, perchè non melo installa quando mi chiede dove è il Disk 1 io gli do il percorso ma non melo da buono.
Mi potete aiutare.

[morpheus81]

Ok ho capito il MSDN è la guida in linea, ma devo installare qualche componenete particolare per usare i DB
infatti se metto la stringa:

Dim cn As New ADODB.Connection

e quando lancio il programma mi da errore qui e mi dice che il tipo non è definito, qualche idea

[scoppato]

nel td avevo dimenticato che dovevi eseguire tale procedura:

Dal menù Project clicca su References, e spunta la casellina che corrisponde alla voce Microsoft ActiveX Data Object 2.x Library

la x dipende dalla versione che di ADO.

L'installazione delle MSDN non c'entra!

Prova così, dovrebbe andare!

[morpheus81]

Grazie tante, lo sapevo ma lo avevo dimenticato:

mi funziona se al posto dell'as metto =

però qui

Connessione.Open strConn

mi da errore: Nome dati origine non trovato e driver predefinito non specificato.

come mai
grazie ancora per l'aiuto

[scoppato]

ti avevo detto che avrei potuto commettere degli errori di sintassi nel codice, e penso proprio di averli commessi :gren: :gren: :gren:

Forse non è corretto il nome del driver!
Anzichè questo:

strConn = "data Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\TuaCartella\tuoDB.mdb"

prova a scrivere questo:

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\TuaCartella\tuoDB.mdb"

Ma utilizzi un DB di access?

[morpheus81]

Si utilizzo un DB access, ho corretto come mi hai detto tu ma mi da l'errore nel solito punto:
Impossibile trovare l'ISAM instabile.

Madonna, ti sto proprio rompendo le pxxxe.
ciao