ajout de donnée a partir d'un textbox sur une base accessRésolu

Question

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

scromania · Accepted Answer

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
@+

scromania · Answer

tu dois creer une connexion a la base access ensuite tu dois utiliser cette connexion en lui ajoutant la requete "insert" .

napsterachem · Answer

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

scromania · Answer

Dim SQL As String

 SQL = "INSERT INTO agence(Champ1, Champ2)"
 SQL &= " VALUES ('" & Me.textbox1.Text & "', '" & Me.textbox2.Text & "')"

voila une requete d'ajout 
pour plus d'info http://sql.1keydata.com/fr/sql-insert-into.php

@+

NSUADI · Answer

ICONIC FIGURE

tu peux t'inspirer de ceci:

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)

napsterachem · Answer

mais ma base de donnée est access :s

NSUADI · Answer

ICONIC FIGURE

et c'est quoi le problème dans le fait que ce soit Access?

scromania · Answer

je suis d'accord avec NSUADI en faite il
de donne la connexion :

dim chaineConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:	emp\Mabase.mdb;"

ici il te permet de te connecté a la base :
dim conexion as New OleDbConnection
conexion.ConnectionString=chaineConn
conexion.open()


la tu as la requete: dim SQL as string
SQL = "INSERT INTO agence(Champ1, Champ2)"
SQL &= " VALUES ('" & Me.textbox1.Text & "', '" & Me.textbox2.Text & "')"


et la tu execute : dim cmd as New OleDbCommand(SQL)
dim dta as New OleDbDataAdapter(cmd)
cmd.connection()=connexion

tu as tout pour ouvrir , ecrire, et tu la ferme apres.

napsterachem · Answer

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

napsterachem · Answer

c'est bon j'ai réglé le problème de l'erreur mais toujours rien rien ne s'ajoute sur la base :s aidez moi :s

scromania · Answer

a tu renommer (Champ1, Champ2) par le nom de tes champs?

napsterachem · Answer

oui c'est fait
mais le problèmes c'est que je ne sais vraiment pas ou placer les codes :s

napsterachem · Answer

c'est bon sa a marché merci énormement

scromania · Answer

valide ta reponse merci.

Ajout de donnée a partir d'un textbox sur une base access

14 réponses

Votre réponse