getschema et auto increment

Version imprimable

09/11/2010, 11h53
ighost

getschema et auto increment

Bonjour à tous,

J'aimerais savoir si il est possible de récupérer l'info sur l'autoincrement d'une colonne par le getschema et si oui dans quel table je dois taper?

Pour information je parle du getschema du connection.getschema de l'assembly System.Data.SqlClient.

si je ne peux pas passer par le getschema quel requête directement dans sql me donnera l'info dont j'ai besoin (sql server)?

Merci d'avance pour vos réponses.
09/11/2010, 14h31
sebnantes

Salut,

Tu parles du numéro de ligne de l'interface SQL ou d'une colonne qui est de type autoincrement ?

Si c'est le cas 2, c'est comme pour récupérer les infos des autres colonnes contenus dans le schéma :

Code:

leSchema.Rows(i).Item(NomDuChamps)
21/11/2010, 23h14
ighost

je te remercie mais ce n'est pas de ça que je parle, en fait je voulais savoir comment je pouvais faire en vb pour savoir si une colonne d'une table SQL est auto incrément ou non.

Mais c'est bon j'ai trouvé ma réponse avec une requête directement en base j'envois la requête demain pour ceux que ça pourraient intéresser car la j'ai pas mon code sous les yeux :).

Je sais pas si c'est pareil avec tous les SGBD, mais par exemple pour SQLite tu peux faire un truc comme ça :

Code:

1
2
3
4
5
6
Dim columns As DataTable = connection.GetSchema("Columns")
Dim rows As DataRow() = columns.Select("TABLE_NAME = 'la_table' AND COLUMN_NAME = 'la_colonne'")
If rows.Length > 0 Then
    Dim la_colonne As DataRow = rows(0)
    Dim autoincrement As Boolean = CBool(la_colonne("AUTOINCREMENT"))
End If

nan, justement pour une raison que j'ignore il n'y a pas la colonne "autoincrement" sur le schema des colonnes en sql server.

Donc pour infos voila ce qui m'a permis d'avoir toutes les infos nécessaires à la récupération des infos de colonnes pour "copier" une table sql:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim sqlRequete As String
            'Requete de lecture des champs de la table avec leurs attributs
            sqlRequete = "SELECT INFORMATION_SCHEMA.COLUMNS.TABLE_NAME, INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME," _
            & " INFORMATION_SCHEMA.COLUMNS.ORDINAL_POSITION, INFORMATION_SCHEMA.COLUMNS.COLUMN_DEFAULT" _
            & ", INFORMATION_SCHEMA.COLUMNS.IS_NULLABLE, INFORMATION_SCHEMA.COLUMNS.DATA_TYPE, " _
            & " INFORMATION_SCHEMA.COLUMNS.CHARACTER_MAXIMUM_LENGTH, RQ1.id, COALESCE (RQ3.cle, 0) AS cle" _
            & ", INFORMATION_SCHEMA.COLUMNS.NUMERIC_PRECISION," _
            & " INFORMATION_SCHEMA.COLUMNS.NUMERIC_SCALE, RQ2.is_identity FROM" _
            & " INFORMATION_SCHEMA.COLUMNS LEFT OUTER JOIN (SELECT COLUMN_NAME, TABLE_NAME, '1' AS" _
            & " is_identity FROM INFORMATION_SCHEMA.COLUMNS AS COLUMNS_1 WHERE (TABLE_SCHEMA = 'dbo')" _
            & " AND (COLUMNPROPERTY(OBJECT_ID(TABLE_NAME), COLUMN_NAME, 'IsIdentity') = 1)) AS RQ2 ON " _
            & " INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME = RQ2.COLUMN_NAME AND " _
            & " INFORMATION_SCHEMA.COLUMNS.TABLE_NAME = RQ2.TABLE_NAME LEFT OUTER JOIN (SELECT TOP (1)" _
            & " id, name FROM sys.sysobjects WHERE (xtype = 'U')) AS RQ1 ON RQ1.name =" _
            & " INFORMATION_SCHEMA.COLUMNS.TABLE_NAME LEFT OUTER JOIN (SELECT '1' AS cle, COLUMN_NAME," _
            & " TABLE_NAME FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE" _
            & " (OBJECTPROPERTY(OBJECT_ID(CONSTRAINT_NAME), 'IsPrimaryKey') = 1)) AS RQ3 ON " _
            & " RQ3.TABLE_NAME = INFORMATION_SCHEMA.COLUMNS.TABLE_NAME AND RQ3.COLUMN_NAME =" _
            & " INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME WHERE (INFORMATION_SCHEMA.COLUMNS.TABLE_NAME ='" _
            & Replace(NomTable, "'", "''") & "') ORDER BY INFORMATION_SCHEMA.COLUMNS.ORDINAL_POSITION"
            Dim dttable As New DataTable
            dttable = sql_reader.EnvoieRequete(sqlRequete)

remplacer le nom de la table par celui que vous chercher :).
pour ceux à qui ça peux servir ;)