bonjour a tous
je développe une application de gestion des ventes
pour insérer un nouveau client dans la table j'ai ce code :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Valider.Click
If TextBox1.Text = "" Then
MsgBox("Veuillez Completer Tous les Champs Avant de Valider", MsgBoxStyle.OkCancel, "Ajout Client")
Else
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=E:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\bapharma")
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand1.CommandText = "INSERT INTO bapharma.Client Values('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "', '" & Me.TextBox3.Text & "', '" _
& Me.TextBox2.Text & "', '" & Me.TextBox3.Text & "', '" & Me.TextBox4.Text & "', '" & Me.TextBox5.Text & "', '" & Me.TextBox6.Text & "')"
MsgBox("on va connecter", MsgBoxStyle.OkOnly)
MyConnexion.Open()
Mycommand1.ExecuteNonQuery()
MsgBox("valeur insérer", MsgBoxStyle.OkOnly)
MyConnexion.Close()
End If
a chaque fois que j'exécute un message d'erreur apparaitre : la base est introuvable
merci de m'aider
|