[VB6]Scrivere connex a db una sola volta e...

[Giulio C.]

Ciao.
Premesso che ti ho spedito il file indicato sopra, provo ad indicarti come io eseguo una connessione ad un database di tipo Access attraverso le librerie DAO. Ripeto, anche per chi legge, che so benissimo che si tratta di cose superate ma, tant'è, prima o poi studierò gli altri metodi...
Allora caro Sh4nK, per connettermi al database io faccio così:

NEL MODULO PUBBLICO:

Public dbsNomeFileMDB As Database
Public rstTuaTabella As Recordset

' Apertura database e recordset

Public Sub ApriDatabase()     
   Set dbsNomeFileMDB = OpenDatabase(App.Path & "\NomeFileMDB.mdb")
   Set rstTuaTabella = dbsNomeFileMDB.OpenRecordset("NomeTabella")
end sub

IN OGNI MODULO (laddove necessario):

Call ApriDatabase   ' Per connettersi ed aprire il database

Nel tuo esempio:

Call ApriDatabase
With rstTuaTabella
   .MoveFirst
   Azienda.text = !Ditta
End With

Fammi sapere, ok?

Cari saluti.