Access Clé Primaire

Version imprimable

16/01/2014, 12h25
Pascal Lob

Access Clé Primaire

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.

Code:

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.

16/01/2014, 14h03
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...
16/01/2014, 15h03
Pol63

8O
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
16/01/2014, 15h10
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 ?
16/01/2014, 15h21
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

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

Citation:

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:

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

16/01/2014, 17h28
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"

Alors, ceci devrait marcher:

Code:

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

17/01/2014, 10h50
Pascal Lob

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

Code:

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

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

Code:

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

fonctionne très bien.:calim2:
17/01/2014, 11h04
callo

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

Code:

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

Peux-tu poster ton code?

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

Code:

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()

17/01/2014, 13h20
callo

Quelle est la version de MDAC installé sur ta machine?
17/01/2014, 14h17
Pascal Lob

Dans mon regedit : 6.3.9600.16384
17/01/2014, 14h27
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.
17/01/2014, 14h50
Pascal Lob

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

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

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 :aie:.

Cependant, en faisant:
Code:

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:

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.

18/01/2014, 12h10
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.
18/01/2014, 12h37
Pascal Lob

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