3/5 (3 avis)
Snippet vu 17 008 fois - Téléchargée 54 fois
'dimension des variables et tableaux Dim Nbcol, Nbrow As Integer 'pour lre nonbre de colonne et de ligne dans la dataset Dim Nom_x As String 'pour avoir un chaine de carractère Dim MyRs As New ADODB.Recordset() Dim MyCn As New ADODB.Connection() Dim myDA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter() Dim myDS As DataSet = New DataSet() Dim Provider_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Dim Suite_provider_ As String = ";Mode=Read|Write;Persist Security Info=False" 'conection à la base de données nom_x="c:\base\été 2001.mdb" 'chemin de la base de données MyCn.Open(Provider_ & nom_x & Suite_provider_) MyRs = MyCn.OpenSchema(ADODB.SchemaEnum.adSchemaTables) 'Créez et remplissez le DataSet à partir du Recordset. Peuplez la grille du DataSet myDA.Fill(myDS, MyRs, "MyTable") 'Ferme les connections MyRs = Nothing ' libere la mémoire MyCn.Close() ' ferme la connection MyCn = Nothing ' libere la mémoire ' nombre de ligne dans le dataset Nbrow = myDS.Tables(0).Rows.Count ' nombre de colonne dans le dataset Nbcol = myDS.Tables(0).Columns.Count 'fait une boucle sur le nombre de colonne For Nbcol = 0 To myDS.Tables(0).Columns.Count - 1 Nom_x = myDS.Tables(0).Columns.Item(Nbcol).Caption 'si trouver la colonne TABLE_NAME If Nom_x = "TABLE_NAME" Then 'fait une boucle sur les lignes pour trouver les table For Nbrow = 0 To myDS.Tables(0).Rows.Count - 1 'Pointe sur la colonne suivante pour rechercher le type TABLE Nom_x = myDS.Tables(0).Rows(Nbrow).Item(Nbcol + 1) If Nom_x = "TABLE" Then 'ajout dans la liste les tables trouveés List1.Items.Add(myDS.Tables(0).Rows(Nbrow).Item(Nbcol)) End If Next End If Next 'vide le dataset myDS.Clear() 'libere les resources myDS.Dispose()
29 avril 2004 à 12:31
Dim sqlDataConn As New SqlConnection(CONNECTION_DATA)
Dim schemaDA As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM INFORMATION_SCHEMA.TABLES " & _
"WHERE TABLE_TYPE = 'BASE TABLE' " & _
"ORDER BY TABLE_TYPE", _
sqlDataConn)
Dim schemaTable As DataTable = New DataTable()
schemaDA.Fill(schemaTable)
On obtient alors une table décrivant les base (voir MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconobtainingschemainformationfromdatabase.asp)
Guillaume
17 juil. 2003 à 18:21
12 juil. 2002 à 21:34
C'est même mieux qu'une explication bidon !!!!!!!!!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.