Public connexion As ADODB.Connection
Sub cnx_ora()
Set connexion = New ADODB.Connection
connexion.Provider = "MSDAORA.1"
connexion.Properties("Data Source").Value = "ta base de données"
connexion.Properties("User Id").Value = "ton identifiant"
connexion.Properties("Password").Value = "ton mot de passe"
connexion.Open
End Sub
Private Sub Form_Load()
'se connecter à la base de données Oracle
Call cnx_ora
Dim Rs_Oracle As New ADODB.Recordset
Dim req As String
req = " ta requête expl: select nom, prénom from ma_table;'"
Rs_Oracle.Open req, connexion
Do While Not Rs_Oracle.EOF
text1.text=text1.text + Rs_Oracle!nom & vbCrLf 'vbCrLf pour retourner à la ligne
text2.text=text2.text + Rs_Oracle!prénom & vbCrLf
Loop
.....
.....
End Sub
Bonne chance