[VB6] Funzione di apertura database centralizzata per vari Form

[gibra]

Originariamente inviato da tigre2209
in pratica devo aprire lo stesso database in vari form.
per non scrivere la stessa apertura allo stesso dtabase, posso scrivere una funzione di apertura del database e richiamala dai vari form?

Certamente.

Originariamente inviato da tigre2209
esempio:
devo aprire questo database:

Dim conn, STRCONN
Set conn = CreateObject("adodb.connection")
conn.ConnectionString = "Driver={SQL Native Client};Server=server;Database=database;"
conn.Open

e poi sviluppare le query
e prelevare i record che mi servono nei vari form.
e chiudere il database.

Prima di tutto, il codice va racchiuso tra gli appositi tag (forse ti becchi un'altra moderazione... )

Ma perchè dichiari gli oggetti in quel modo?
Non capisco perchè usi CreateObject(), in VB6 non ha proprio alcun senso.

Comunque io faccio così: In un modulo BAS dichiaro

Public gCN as ADODB.Connection

Poi nella SubMain() del modulo, da cui parte la mia applicazione

Set gCN = New ADODB.Connection
gCN.ConnectionString = ......
ecc. ecc. ecc.