Hvordan kan man oprette en forbindelse til en mySQL database som alle forms i ens program kan udnytte? Jeg kan finde ud af at forbinde mine forms med databasen, men jeg skal oprette en ny forbindelse for hver form. Kan man ikke lave noget smart med hvor ens program opretter forbindelsen til databasen en gang også kan alle former bruge den forbindelse?
Sådan her forbinder jeg mine form med mmin mySQL database:
Option Explicit
Private objConn As Object Private objRs As Object
Private Sub MDIForm_Load()
Set objConn = CreateObject("ADODB.Connection") Set objRs = CreateObject("ADODB.Recordset") objConn.Open = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=XXX;DATABASE=XXX;UID=XXX;PWD=XXX"
Hvis du ligger koden der laver forbindelsen til databasen ned i et modul fx. Private objConn As ADODB.Connection Private objRecordset As ADODB.Recordset
Public Sub openDB() Set objConn = New ADODB.Connection objConn.ConnectionString = strConnect objConn.Open End Sub
Public Sub closeDB() objConn.Close Set objConn = Nothing End Sub
Public Function AffyrSQL(sql As String) As ADODB.Recordset Set objRecordset = New ADODB.Recordset objRecordset.Open sql, objConn
Set AffyrSQL = objRecordset End Function
Så kan du når du starter dig program åbne database, hvor efter den er tilgængelig fra alle dine forms.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
