Discussion :

[Pascal Lob]

Bonjour,
Après des heures de recherche, je fini par me demander si je ne suis pas une bille en recherche Web.
Je développe sous VB2010 en lien avec des bases ACCESS 2000 j'utilise une connexion ADODB et je cherche a retrouver la clé primaire d'une table.
Je n'ai rien trouvé, ou rien compris à ce que j'ai trouvé sur le sujet.

[callo]

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Shared Function getKeyNames(tableName As [String], conn As DbConnection) As List(Of String)
    Dim returnList = New List(Of String)()
 
    Dim mySchema As DataTable = TryCast(conn, OleDbConnection).GetOleDbSchemaTable(OleDbSchemaGuid.Primary_Keys, New [Object]() {Nothing, Nothing, tableName})
 
    ' following is a lengthy form of the number '3' :-)
    Dim columnOrdinalForName As Integer = mySchema.Columns("COLUMN_NAME").Ordinal
 
    For Each r As DataRow In mySchema.Rows
        returnList.Add(r.ItemArray(columnOrdinalForName).ToString())
    Next
 
    Return returnList
End Function

Regarde ceci aussi.

[Pascal Lob]

Merci de cette réponse mais ça ne colle pas, cette fonction utilise une connexion OLE et toute mon appli utilise ADODB.

Sinon je confirme qu'en OLE ton exemple fonctionne très bien mais ça m'embête d'être obligé d'ajouter l'OLE juste pour cette fonction...

[Pol63]

c'est plutôt l'inverse
OleDb est ce qui est inclus au framework et conseillé
ADODB est son ancetre qui nécessite d'ajouter une dll

[Pascal Lob]

Oui je traine mes vielles habitudes de VB6.
Il faudrait surement que je change ça mais a chaque nouvelle application je manque de temps et je reprend comme d'hab.
Ceci dit, il doit bien y avoir un moyen de faire la même chose en ADODB. non ?

[Pol63]

s'il y a bien une chose à faire quand on passe de vb6 à vb.net c'est apprendre à ne rien faire comme en vb6

sinon tu peux peut-être demander chez vb6, ils seront surement plus nombreux là bas à utiliser adodb