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