Treeview vb6,oracle
pauline
-
pauline -
pauline -
je souhaite créer un treeview pour consultation d'une liste de clients (liste parent) et des articles associés (liste enfant) ,je souhaite utiliser un module de classe pour fournir les données;
NB: environnements VB6 et Oracle 8
veuillez m'aidez svp
Merci
pauline
NB: environnements VB6 et Oracle 8
veuillez m'aidez svp
Merci
pauline
A voir également:
- Treeview vb6,oracle
- Vb6 - Télécharger - Divers Utilitaires
- Telecharger oracle virtualbox - Télécharger - Émulation & Virtualisation
- Compatibilité VB6 et Windows 10 - Forum VB / VBA
- Vb6 portable - Forum VB / VBA
- Find oracle sid ✓ - Forum Bases de données
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
