A voir également:
- Treeview vb6,oracle
- Vb6 - Télécharger - Divers Utilitaires
- Oracle america inc virus ✓ - Forum Virus
- Violation de contrainte unique oracle - Forum Programmation
- Arborescence excel treeview ✓ - Forum VB / VBA
- Vb6 download ✓ - Forum VB / VBA
4 réponses
comme vous travaillez sur vb6 et oracle 8,j'aimerais te poser une question?
Comment connecter ma base de donnees oracle a vb6?
notez les marches a suivre merci.
Comment connecter ma base de donnees oracle a vb6?
notez les marches a suivre merci.
'exemple obtenu de l'aide vb
Public Sub ProviderX()
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
' Open a connection using the Microsoft ODBC provider.
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=MSDAORA;Data Source=serverName;User ID=userName; Password=userPassword;"
cnn1.Open strCnn
cnn1.DefaultDatabase = "pubs"
' Display the provider.
MsgBox "Cnn1 provider: " & cnn1.Provider
' Open a connection using the Microsoft Jet provider.
Set cnn2 = New ADODB.Connection
cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", ""
' Display the provider.
MsgBox "Cnn2 provider: " & cnn2.Provider
' Open a connection using the Microsoft SQL Server provider.
Set cnn3 = New ADODB.Connection
cnn3.Provider = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", ""
' Display the provider.
MsgBox "Cnn3 provider: " & cnn3.Provider
cnn1.Close
cnn2.Close
cnn3.Close
End Sub
Public Sub ProviderX()
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
' Open a connection using the Microsoft ODBC provider.
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=MSDAORA;Data Source=serverName;User ID=userName; Password=userPassword;"
cnn1.Open strCnn
cnn1.DefaultDatabase = "pubs"
' Display the provider.
MsgBox "Cnn1 provider: " & cnn1.Provider
' Open a connection using the Microsoft Jet provider.
Set cnn2 = New ADODB.Connection
cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", ""
' Display the provider.
MsgBox "Cnn2 provider: " & cnn2.Provider
' Open a connection using the Microsoft SQL Server provider.
Set cnn3 = New ADODB.Connection
cnn3.Provider = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", ""
' Display the provider.
MsgBox "Cnn3 provider: " & cnn3.Provider
cnn1.Close
cnn2.Close
cnn3.Close
End Sub
