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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Dim da As New OleDbDataAdapter()
Dim ds As New DataSet()
Dim dt As DataTable
Dim S_Conn_BDD As String
Dim Nom_bdd As String = "U:\bdd\job.mdb"
Dim result1 As String
Dim enfant As String
Dim connexionOle As OleDbConnection = New OleDbConnection
S_Conn_BDD = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nom_bdd & ";User Id=admin;Password=;"
connexionOle = New OleDbConnection(S_Conn_BDD)
connexionOle.Open()
da = New OleDbDataAdapter("SELECT * FROM Pere_fils WHERE Pere_fils.Fils = '" & CHOIX & "'", connexionOle)
da.Fill(ds, "Pere_fils")
For i = 0 To ds.Tables(0).Rows.Count - 1
dt = ds.Tables("Pere_fils")
Dim row As DataRow
row = dt.Rows(i)
enfant = row("FILS")
result1 = result1 & ", " & row("PERE")
Next
connexionOle.Close()
connexionOle.Dispose()
da.Dispose()
connexionOle = Nothing
ds = Nothing
da = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
'... |
Partager