salut tout le monde, j'ai besoin d'aide,
j'ai une base de donnée access " gest_incident " et sur un form je veut ajouter des données a partir de 2 textbox dans une table de ma base " agence"
merci de votre aide
Public Class Ajout_Agence
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Gest_agence.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
Private Sub Ajout_Agence_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
merci de votre aide
A voir également:
Ajout de donnée a partir d'un textbox sur une base access
bon je viens de valider et tout fonctionne tres bien
Dim SQL As String
Dim bdataset As New DataSet()
Dim chaineConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Option.mdb;"
SQL = "INSERT INTO agence(Champ1, Champ2)"
SQL &= " VALUES ('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "')"
Dim conexion As New OleDbConnection
conexion.ConnectionString = chaineConn
conexion.Open()
Dim cmd As New OleDbCommand(SQL)
Dim dta As New OleDbDataAdapter(cmd)
cmd.Connection() = conexion
dta.Fill(bdataset)
conexion.Close()
et sourtout oublie pas " conexion.Close()" a la fin car sinon la base reste ouverte
@+
c'est déjà fait j'ai créé la connexion mais je ne sait toujours pas comment utiliser les requettes. si vous pouvez bien me donner un exemple sa serait sympa de votre part
dim bdataset As New DataSet()
dim chaineConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=chemin_base_de_données;"
SQL = "INSERT INTO agence(Champ1, Champ2)"
SQL &= " VALUES ('" & Me.textbox1.Text & "', '" & Me.textbox2.Text & "')"
dim conexion as New OleDbConnection
conexion.ConnectionString=chaineConn
conexion.open()
dim cmd as New OleDbCommand(SQL)
dim dta as New OleDbDataAdapter(cmd)
cmd.connection()=connexion
dta.fill(bdataset)
Private Sub Ajout_Agence_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim chaineConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\Napster Achèm\Desktop\Stage\gest_incident.mdb;"
Dim conexion As New OleDbConnection
conexion.ConnectionString = chaineConn
conexion.Open()
Dim SQL As String
SQL = "INSERT INTO agence(Champ1, Champ2)"
SQL &= " VALUES ('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "')"
Dim cmd As New OleDbCommand(SQL)
Dim dta As New OleDbDataAdapter(cmd)
cmd.Connection() = connexion
End Sub
ile me sortent une erreur " connexion is not declared
( j'ai dejà declaré une connection appelé connection1 j'en aurai besoin ici)
merci de votre aide précieuse