[VB6] Connessione database

[TheSpoiler]

Salve a tutti.
potreste illustrarmi,se potete, la sintassi per la creazione e la connessione di oggetti ad un database access?
io prima specificavo sia la connstring che la stringa sql nelle proprieta dell'oggetto...siccome mi serve fare una select un po piu articolata..se la scrivo nelle proprieta dell'oggetto non l'accetta.
ora mi serve specificare sia la path (utilizzando la funzione app.path) del database, la connstring e la stringa sql tutto sotto codice...come posso fare?

Grazie per l'aiuto

[Sonic88]

Per creare una connessione al DB potresti utilizzare questo script:

Dim conn,rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
dim SQL,ConnStr as String
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & app.path & "\nomedb.mdb"
conn.Open connStr
SQL = "" 'Inserisci qui la Query
rs.Open SQL,conn,adOpenDynamic,adLockOptimistic

[TheSpoiler]

ti ringrazio. Dove mi conviene metterla nel Form Activate del form dove risiede la griglia?
:master:

[Sonic88]

Se la connessione al DB ti serve solo per la griglia puoi mettere il codice anche nel form_activate del form della griglia.
PS:
Ricordati di chiudere la connessione quando hai finito di usarla:

rs.close
conn.close
set rs = nothing
set conn = nothing

[TheSpoiler]

Ti ringrazio per la tua disponibilità

[Sonic88]

Originariamente inviato da TheSpoiler
Ti ringrazio per la tua disponibilità

Prego.