cs_MagDix
Messages postés531Date d'inscriptionlundi 5 juin 2006StatutMembreDernière intervention 6 octobre 20121 4 sept. 2008 à 16:00
'Requête SQL
RequeteSQL = "INSERT INTO Nom de la Table (Nom des Colonnes séparé par des virugule) VALUES ('" & _
Replace(txtBox1.Text, "'", "''") & "','" & Me.txtBox2.Text & "')"
'Connexion à la BD
Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Recettes.mdb"
SourceOle = New OleDbConnection(SourceConnect)
Select Case SourceOle.State
Case ConnectionState.Closed
SourceOle.Open()
End Select
'*************************************************
DataA = New OleDbDataAdapter(RequeteSQL, SourceOle)
Dim DataS As New DataSet
DataA.Fill(DataS, table) 'c'est donc ici qu'on recupere les données
Dtt = DataS.Tables(table)
'*************************************************
'Déconnexion
Select Case SourceOle.State
Case ConnectionState.Open
SourceOle.Close()
SourceOle.Dispose()
SourceOle = Nothing
End Select