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

[callo]

Une piste à creuser tout de même. Essayes avec la méthode OpenSchema

The OpenSchema method returns a Recordset object with schema information from the provider about the data source. For example, schema information can include the names of the tables, names of the columns in the tables, and the data type of each column. The Recordset will be opened as a read-only recordset.

Tu peux donc essayer un truc du genre:

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
15
Const strConn As String = "..."
 
        Dim dbConnection As New ADODB.Connection
        dbConnection.ConnectionString = strConn
 
        dbConnection.Open()
 
        Dim rs As New ADODB.Recordset()
        rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
 
         rs = dbConnection.OpenSchema(ADODB.SchemaEnum.adSchemaPrimaryKeys, New Object() {Nothing, Nothing, Nothing, "NomDeTaTable"})
        While Not rs.EOF
            MsgBox(rs.Fields("COLUMN_NAME"))
            rs.MoveNext()
        End While

[Pascal Lob]

Ben non, j'ai fait 40 manip et le OpenSchema envoie une erreur "le fournisseur ou l'objet ne prend pas en charge cette opération"

[callo]

Alors, ceci devrait marcher:

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
15
16
17
18
19
20
21
22
23
24
25
 
'tableName est le nom de la tabe dont tu veux retourner le(s) clé(s) primaire(s)
Private Sub GetPrimaryKeys(tableName As String) 
   Const strConn As String = "..."
   Dim dbConnection As New ADODB.Connection()
   dbConnection.ConnectionString = strConn
 
   dbConnection.Open()
 
   Dim rs As New ADODB.Recordset()
 
   rs = dbConnection.OpenSchema(ADODB.SchemaEnum.adSchemaPrimaryKeys)
 
   While Not rs.EOF
      If (rs.Fields("TABLE_NAME").Value) = tableName Then
         MsgBox("Clé primaire de la table " & tableName & ": " & rs.Fields("COLUMN_NAME").Value, MsgBoxStyle.Information, "Primary keys")
      End If
 
      rs.MoveNext()
   End While
 
  rs = Nothing
  dbConnection.Close()
 
End Sub

[Pascal Lob]

Bonjour Callo,
J'ai fait 40 tests avec ou sans les param facultatifs dans tous les cas le

Code :

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

rs = Serveur_cnx.OpenSchema(ADODB.SchemaEnum.adSchemaPrimaryKeys)

Provoque la même erreur alors que dans le même contexte un

Code :

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

rs= Serveur_cnx.OpenSchema(ADODB.SchemaEnum.adSchemaTables)

fonctionne très bien.

[callo]

C'est un peu bizarre quand même. Je viens de tester à mon niveau et c'est nickel avec

Code :

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

 rs = dbConnection.OpenSchema(ADODB.SchemaEnum.adSchemaPrimaryKeys)

Peux-tu poster ton code?

[Pascal Lob]

mon code c'est la copie du tiens en remplaçant ta connexion par la mienne.

Code :

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

1
2
3
4
            Serveur_cnx = New ADODB.Connection
            Serveur_cnx.Provider = "Microsoft.Jet.Oledb.4.0"
            Serveur_cnx.ConnectionString = "Data Source=" & My.Settings.CheminBaseServeur & "; Jet OLEDB:Database Password = ''"
            Serveur_cnx.Open()

[callo]

Quelle est la version de MDAC installé sur ta machine?

[Pascal Lob]

Dans mon regedit : 6.3.9600.16384

[callo]

Non, ça ne doit pas être la version. En ma connaissance la dernière version devrait être 2.8 sp1. Fait un tour sur le site de MS ou cherche "last version MDAC" dans google. Fais ensuite un upgrade vers la dernière version de MDAC et dis nous ce que ça donne comme résultat.

[Pascal Lob]

Je n'ai pas trouvé la version mais j'ai chargé et installé la 2.8 ça n'a rien changé.

[callo]

Là, j'ai épuisé presque toutes mes cartourches .

On devrait commencer par là, mais j'avais oublié de te demander ta configuration. Moi je suis sous Win 7 + sp1 et j'ai aucun soucis avec le code.

Je pense que tu devrais commencer sérieusement par réfléchir à aller de l'avant et laisser tomber ADODB comme suggéré par Pol63 .

Cependant, en faisant:

Code vb.net :

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

1
2
3
4
5
6
7
8
'.....
Dim rs As New ADODB.RecordSet()
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
'......
rs.Open("select * from UneTable", dbConnection)
'...
rs.ActiveConnection = Nothing
dbConnection.Close()

tu obtiens en fait un recordset déconnecté. Tu as la possibilité de rendre ce recordset parfaitement utilisable en dotnet en le convertissant en un ADO.NET DataSet à l'aide de OleDbDataAdapter. ça donnerait ceci:

Code vb.net :

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

1
2
3
Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "UneTable")

Tu pourrais donc avoir pleins de possibilité...

Quel qu'en soit le cas, if faut sérieusement songer à migrer vers ado.net ou du moins passer à OleDb. J'ai entre-temps lu un comparatif en terme de performance entre ADO et ADO.NET. Si j'arrive à retrouver le lien, je le posterai.

[Pascal Lob]

Je travaille sur une machine W8.1 sur mon autre machine de travail W8 c'est pareil
J'ai installé VB 2010 sur l'ordi de mon fils W7 et c'est encore pareil.
Je vais tester le recordset déconnecté et après j'abandonne.

[Pascal Lob]

Merci callo pour ton aide
Bon j'ai abandonné l'idée d'utiliser ADODB. Je ne comprend pas pourquoi ça ne fonctionne pas chez moi
J'ai repris le code OLE de ton premier poste.
Je vais sérieusement penser a basculer en OLE.