15-02-17, 11:22 PM
السلام عليكم
مساء الخير
اخواني ممكن توضحون لي اين الخطا في هذا الكود لان اذا ضغطة على زر اضافة يطلع لي خطا بالبرنامج ويحدد لي الخطا هنا ( conn.Open() )
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Assembly members.accdb"
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "INSERT INTO [N_Data] (Name,Civil,Mobile,Living,Address,Trak,Membership,sdad) VALUES (@Name,@Civil,@Mobile,@Living,@Address,@Trak,@Membership,@sdad)"
cmdinsert.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Civil", m.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Mobile", o.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Living", d.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Address", Box.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Trak", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
cmdinsert.Parameters.AddWithValue("@Membership", TextBox6.Text.Trim)
cmdinsert.Parameters.AddWithValue("@sdad", CheckBox1.Checked)
conn.Open()
cmdinsert.ExecuteNonQuery()
conn.Close()
MsgBox("تمت الاضافة بنجاح")
conn.Close()
End Sub
End Class
مساء الخير
اخواني ممكن توضحون لي اين الخطا في هذا الكود لان اذا ضغطة على زر اضافة يطلع لي خطا بالبرنامج ويحدد لي الخطا هنا ( conn.Open() )
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Assembly members.accdb"
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "INSERT INTO [N_Data] (Name,Civil,Mobile,Living,Address,Trak,Membership,sdad) VALUES (@Name,@Civil,@Mobile,@Living,@Address,@Trak,@Membership,@sdad)"
cmdinsert.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Civil", m.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Mobile", o.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Living", d.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Address", Box.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Trak", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
cmdinsert.Parameters.AddWithValue("@Membership", TextBox6.Text.Trim)
cmdinsert.Parameters.AddWithValue("@sdad", CheckBox1.Checked)
conn.Open()
cmdinsert.ExecuteNonQuery()
conn.Close()
MsgBox("تمت الاضافة بنجاح")
conn.Close()
End Sub
End Class