Uso questo codice per aprire i db e per aprire i recordset.
Volevo sapere se ci sono errori, e come modificare questo codice per fare in modo che sia possibile aprire due connessioni a due db diversi contemporaneamente visto che cosi' mi da errore grazie
Ciao
Questo codice si trova all'interno di un modulo
Public connConnection As New ADODB.Connection
Dim rsRecordset As ADODB.Recordset
Sub OpenDB(NameDB As String, Optional User As String, Optional Password As String)
Value = connConnection.State
If Value = 0 Then
connConnection.Open NameDB, User, Password
End If
End Sub
Sub CloseDB()
Value = connConnection.State
If Value > 0 Then connConnection.Close
Set connConnection = Nothing
End Sub
Function LoadRecordSet(Campo As String, Tavola As String, Optional Condiz As String, Optional OrdBy As String, Optional GroupBY As String) As Recordset
'On Error GoTo err:
'*
'************************************************* ************
'* Parametri di Input Obbligatori : Campo, Tavola
'* Parametri di Input Facoltativi : Condiz, OrdBY, GroupBy
'************************************************* ************
'*
Dim strSELECT As String
Dim rstat As Integer
Set rsRecordset = New ADODB.Recordset
rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic
strSELECT = "SELECT " + Campo + " FROM " + Tavola
If (Trim(Condiz) <> "") Then
strSELECT = strSELECT + " WHERE " + Condiz
End If
If (Trim(GroupBY <> "")) Then
strSELECT = strSELECT + " GROUP BY " + GroupBY
End If
If (Trim(OrdBy <> "")) Then
strSELECT = strSELECT + " ORDER BY " + OrdBy
End If
'*
'* State = 0 RecordSet Closed
'* State = 1 RecordSet Opened
'*
rstat = rsRecordset.State
If (rstat <> 0) Then rsRecordset.Close
rsRecordset.Source = strSELECT
rsRecordset.ActiveConnection = connConnection
rsRecordset.Open
Set LoadRecordSet = rsRecordset
Set rsRecordset = Nothing
'err:
' If err <> 0 Then
' If rsRecordset.State <> 0 Then rsRecordset.Close
' Set rsRecordset = Nothing
' End If
End Function
Function Ap(Value As String) As String
Ap = "'" & Value & "'"
End Function
Rispondi quotando
