Vb et postgres
fafa
-
:trollface: -
:trollface: -
Bonjour à tous,
je veux établir une connection à une base POStgresql via visual basic (driver odbc).
Private Sub Form_Load()
'Déclaration de la variable de connexion
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim q As String
'Définition de la chaîne de connexion
cn.Connect = "uid=Idp;pwd=GestionIDP;DSN=Idp;"
cn.CursorDriver = rdUseOdbc
cn.EstablishConnection
If Connection = True Then
MsgBox "Connection est bonne"
Else
MsgBox "erreur"
End If
q = "select*from ASSURANCE"
Set rs = cn.OpenResultset(q, rdopenforwardOly, rdConcurReadOnly)
Do Until rs.EOF
rs.MoveNext
Loop
End Sub
Merci à tous
je veux établir une connection à une base POStgresql via visual basic (driver odbc).
Private Sub Form_Load()
'Déclaration de la variable de connexion
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim q As String
'Définition de la chaîne de connexion
cn.Connect = "uid=Idp;pwd=GestionIDP;DSN=Idp;"
cn.CursorDriver = rdUseOdbc
cn.EstablishConnection
If Connection = True Then
MsgBox "Connection est bonne"
Else
MsgBox "erreur"
End If
q = "select*from ASSURANCE"
Set rs = cn.OpenResultset(q, rdopenforwardOly, rdConcurReadOnly)
Do Until rs.EOF
rs.MoveNext
Loop
End Sub
Merci à tous
2 réponses
-
-
Bonjour à tous,
je veux établir une connection à une base POStgresql via visual basic (driver odbc). ça ne marche pas j'ai un message "activex ne gere pas l'ojet et se met sur la chaine de connection. autre chose sur le document que j'ai il faut selectionner dans les composants microsoft remotedata control 6.0. comment je peux faire.
Private Sub Form_Load()
'Déclaration de la variable de connexion
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim q As String
'Définition de la chaîne de connexion
cn.Connect = "uid=Idp;pwd=GestionIDP;DSN=Idp;"
cn.CursorDriver = rdUseOdbc
cn.EstablishConnection
If Connection = True Then
MsgBox "Connection est bonne"
Else
MsgBox "erreur"
End If
q = "select*from ASSURANCE"
Set rs = cn.OpenResultset(q, rdopenforwardOly, rdConcurReadOnly)
Do Until rs.EOF
rs.MoveNext
Loop
End Sub
Merci à tous
