Slt à tous
Aprés avoir créer un nouveau projet Windows aplication
Il faut pour que ce source fontione
'Ajouter la référence: adodb
Allez dans la menu Projet --> Ajouter un référence
Une bîte de dialogue s'ouvre
Double click sur adodb
Il passe dans composants sélectionnés
Cliquer sur Ok
Attention n'oublier pas de changer le chemin de votre base de données
J'espère que ce code servira la communaauté
@+
Source / Exemple :
'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()
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.