منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Imports System.Data, System.Data.OleDb

----------------------------------------------------------
Public Class Form1
    Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DataBase.mdb"
    Dim Con As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
--------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\hhhhh\Desktop\salmon.accdb"
    End Sub

--------------------------------------------------------------------------------------------------------------------------------------------------------

ذزر الاضافة هل الكود صيح لانه لا يستجيب معي  من خلال رسالة تفيد error in Insert into statement  l ;l كما موضح بل الكتابة باللون الاحمر  

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Con.Open()

        'Try

        Dim cmdinser As New OleDbCommand

      ححح  cmdinser.Connection = Con

        cmdinser.CommandText = "INSERT INTO person (txt_id,txt_name,txt_nanb,com_tp,txt_ph,com_cou,txt_fa,txt_are,com_fa,com_fs,txt_po,com_pty,txt_su,txt_fee,txt_fom,txt_ado1,txt_ado2,DateTimePicker1.).values('" + txt_id.Text + "','" + txt_name.Text + "','" + txt_nanb.Text + "','" + com_tp.Text + "','" + txt_ph.Text + "','" + com_cou.Text + "','" + txt_fa.Text + "','" + com_fs.Text + "','" + txt_po.Text + "','" + com_pty.Text + "','" + txt_su.Text + "','" + txt_fom.Text + "','" + txt_ado2.Text + "'," + txt_ado2.Text + "','" + txt_date.Text + ")"

         cmdinser.ExecuteNonQuery()

        MsgBox("تمت الاضافة بنجاح")

        'Catch ex As Exception

        '    MessageBox(ex.Message.ToString)

        'End Try

        Con.Close()

    End Sub