Selection dynamique du pilote OBDC, Access 97
Paul
-
rbb10 Messages postés 8 Statut Membre -
rbb10 Messages postés 8 Statut Membre -
Bonjour,
Je dispose d'access 97 sous windows NT4
Je souhaiterais interroger des tables sur différents serveurs, via un programme Access.
Je voudrais donc savoir s'il est possible de selectionner de manière dynamique (à l'éxécution) une table liée dynamiquement à un serveur distant via un pilote OBDC. Ya t-il possibilité de faire cela en VB ?
Merci par avance de votre aide.
-- Paul
Je dispose d'access 97 sous windows NT4
Je souhaiterais interroger des tables sur différents serveurs, via un programme Access.
Je voudrais donc savoir s'il est possible de selectionner de manière dynamique (à l'éxécution) une table liée dynamiquement à un serveur distant via un pilote OBDC. Ya t-il possibilité de faire cela en VB ?
Merci par avance de votre aide.
-- Paul
A voir également:
- Selection dynamique du pilote OBDC, Access 97
- Pilote son windows 10 - Télécharger - Pilotes & Matériel
- Tableau croisé dynamique ou table de pilote - Guide
- Télécharger pilote imprimante hp - Télécharger - Pilotes & Matériel
- Indicatif 97 - Guide
- Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
1 réponse
Ce n'est pas VB mais VBA...
Un exemple tiré de l'aide d'Access 2000
Cet exemple illustre l'utilisation de la propriété Provider en ouvrant trois objets Connection à partir de fournisseurs différents. Il utilise également la propriété DefaultDatabase pour définir la base de données par défaut pour le fournisseur Microsoft ODBC Provider.
Public Sub ProviderX()
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
' Ouvrir une connexion à l'aide du fournisseur Microsoft ODBC.
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=srv;uid=sa;pwd=pwd"
cnn1.Open strCnn
cnn1.DefaultDatabase = "Pubs"
' Afficher le fournisseur.
MsgBox "Cnn1 provider: " & cnn1.Provider
' Ouvrir une connexion à l'aide du fournisseur Microsoft Jet.
Set cnn2 = New ADODB.Connection
cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", ""
' Afficher le fournisseur.
MsgBox "Cnn2 provider: " & cnn2.Provider
' Ouvrir une connexion à l'aide du fournisseur Microsoft SQL Server.
Set cnn3 = New ADODB.Connection
cnn3.Provider = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=Pubs;", "sa", ""
' Afficher le fournisseur.
MsgBox "Cnn3 provider: " & cnn3.Provider
cnn1.Close
cnn2.Close
cnn3.Close
End Sub
Un exemple tiré de l'aide d'Access 2000
Cet exemple illustre l'utilisation de la propriété Provider en ouvrant trois objets Connection à partir de fournisseurs différents. Il utilise également la propriété DefaultDatabase pour définir la base de données par défaut pour le fournisseur Microsoft ODBC Provider.
Public Sub ProviderX()
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
' Ouvrir une connexion à l'aide du fournisseur Microsoft ODBC.
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=srv;uid=sa;pwd=pwd"
cnn1.Open strCnn
cnn1.DefaultDatabase = "Pubs"
' Afficher le fournisseur.
MsgBox "Cnn1 provider: " & cnn1.Provider
' Ouvrir une connexion à l'aide du fournisseur Microsoft Jet.
Set cnn2 = New ADODB.Connection
cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", ""
' Afficher le fournisseur.
MsgBox "Cnn2 provider: " & cnn2.Provider
' Ouvrir une connexion à l'aide du fournisseur Microsoft SQL Server.
Set cnn3 = New ADODB.Connection
cnn3.Provider = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=Pubs;", "sa", ""
' Afficher le fournisseur.
MsgBox "Cnn3 provider: " & cnn3.Provider
cnn1.Close
cnn2.Close
cnn3.Close
End Sub
