J'ai cr=E9e un DSN vers des fichiers de base de donn=E9es et=20
je souhaiterais avoir acc=E8s =E0 la liste des tables et des=20
champs de cette base avec la m=E9thode ADODB
Je sais le faire avec les propri=E9t=E9s TableDef et Fields du=20
type Database mais comment faire avec ADODB ?
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:0dc901c38e5f$f5130e90$ Bonjour,
J'ai crée un DSN vers des fichiers de base de données et je souhaiterais avoir accès à la liste des tables et des champs de cette base avec la méthode ADODB
Je sais le faire avec les propriétés TableDef et Fields du type Database mais comment faire avec ADODB ?
Merci d'avance
Nicolas
Salut Nicolas! :O)
Tu peux y parvenir facilement avec ADOX.
http://groups.google.com/groups?threadm=uvNKVgWFDHA.2464%40TK2MSFTNGP09.phx.gbl
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Nicolas" <nicolasheurtevin@wanadoo.fr> wrote in message
news:0dc901c38e5f$f5130e90$a101280a@phx.gbl...
Bonjour,
J'ai crée un DSN vers des fichiers de base de données et
je souhaiterais avoir accès à la liste des tables et des
champs de cette base avec la méthode ADODB
Je sais le faire avec les propriétés TableDef et Fields du
type Database mais comment faire avec ADODB ?
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:0dc901c38e5f$f5130e90$ Bonjour,
J'ai crée un DSN vers des fichiers de base de données et je souhaiterais avoir accès à la liste des tables et des champs de cette base avec la méthode ADODB
Je sais le faire avec les propriétés TableDef et Fields du type Database mais comment faire avec ADODB ?
qui traite de la commande OpenSchema(adSchemaTables)
Malheureusement cette commande plante dans mon code et m'affiche :
Run-time error : '-2147217887 (80040e21)': Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez que chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.
qui traite de la commande OpenSchema(adSchemaTables)
Malheureusement cette commande plante dans mon code et
m'affiche :
Run-time error : '-2147217887 (80040e21)':
Une opération OLE-DB en plusieurs étapes a généré des
erreurs. Vérifiez que chaque valeur d'état OLE-DB
disponible. Aucun travail n'a été effectué.
qui traite de la commande OpenSchema(adSchemaTables)
Malheureusement cette commande plante dans mon code et m'affiche :
Run-time error : '-2147217887 (80040e21)': Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez que chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.
Moi pas savoir quoi faire ...
Nicolas
Nicolas
J'ai trouvé !!! Il suffisait de mettre "TABLE_NAME" comme restiction !!! Merci à moi ;-)
Dim Cnx As ADODB.Connection Dim Rs As ADODB.Recordset Dim strCnx As String Set Cnx = New ADODB.Connection strCnx = "DSN=GestcomG_Bijou;" Cnx.Open strCnx Set Rs = Cnx.OpenSchema(adSchemaTables, "TABLE_NAME") Do Until Rs.EOF Me.List1.AddItem Rs.Fields(2).Value Rs.MoveNext Loop
J'ai trouvé !!!
Il suffisait de mettre "TABLE_NAME" comme restiction !!!
Merci à moi ;-)
Dim Cnx As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim strCnx As String
Set Cnx = New ADODB.Connection
strCnx = "DSN=GestcomG_Bijou;"
Cnx.Open strCnx
Set Rs = Cnx.OpenSchema(adSchemaTables, "TABLE_NAME")
Do Until Rs.EOF
Me.List1.AddItem Rs.Fields(2).Value
Rs.MoveNext
Loop
J'ai trouvé !!! Il suffisait de mettre "TABLE_NAME" comme restiction !!! Merci à moi ;-)
Dim Cnx As ADODB.Connection Dim Rs As ADODB.Recordset Dim strCnx As String Set Cnx = New ADODB.Connection strCnx = "DSN=GestcomG_Bijou;" Cnx.Open strCnx Set Rs = Cnx.OpenSchema(adSchemaTables, "TABLE_NAME") Do Until Rs.EOF Me.List1.AddItem Rs.Fields(2).Value Rs.MoveNext Loop
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:2647001c38e6f$68161ea0$ Et ça fonctionne comment avec un DSN ton ADOX ???
Nico
yep. Il faut utiliser un object ADODB.Connection pour la connection.
Voici un petit exemple
<non testé>
'***
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Call cn.Open("dsn=mon_dsn;")
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Nicolas" <nicolasheurtevin@wanadoo.fr> wrote in message
news:2647001c38e6f$68161ea0$a601280a@phx.gbl...
Et ça fonctionne comment avec un DSN ton ADOX ???
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:2647001c38e6f$68161ea0$ Et ça fonctionne comment avec un DSN ton ADOX ???
Nico
Zoury
nb : je ne sais pas si c'est préciser quelque part, mais tu dois ajouté la référence suivante : Microsoft ADO Ext. 2.7 for DDL and Security.
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:2647001c38e6f$68161ea0$ Et ça fonctionne comment avec un DSN ton ADOX ???
Nico
nb : je ne sais pas si c'est préciser quelque part, mais tu dois ajouté la
référence suivante : Microsoft ADO Ext. 2.7 for DDL and Security.
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Nicolas" <nicolasheurtevin@wanadoo.fr> wrote in message
news:2647001c38e6f$68161ea0$a601280a@phx.gbl...
Et ça fonctionne comment avec un DSN ton ADOX ???
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Nicolas" wrote in message news:2647001c38e6f$68161ea0$ Et ça fonctionne comment avec un DSN ton ADOX ???
