ارجوا ممن يعرف الخطاء لا يتأخر
اخواني لقد تعبت وانا ابحث في الكتب والمواقع عن الحل فهل من احد يعرف الخطاء
ارجوا ان يبلغني به
لا اطيل عليكم هذا الكود
Imports System.Data
Imports System.Data.OleDb
Public Class user
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
Dim bs As New BindingSource
Dim a As String = "select* from user "
Private Sub user_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=emp.mdb;password=123456"
con.Open()
cmd.Connection = con
da = New OleDbDataAdapter("select* from user ", con)
da.Fill(ds, "user")
bs.DataSource = ds
bs.DataMember = "user"
TextBox1.DataBindings.Add("text", bs, "user_no")
TextBox2.DataBindings.Add("text", bs, "user_name")
TextBox3.DataBindings.Add("text", bs, "password")
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open()
cmd.Connection = con
bs.MoveLast()
cmd.CommandText = "insert into user (user_no,user_name,password) values(" & TextBox1.Text + 1 & ",'" & TextBox2.Text & "','" & TextBox3.Text & "')"
cmd.ExecuteNonQuery()
MessageBox.Show("تم اضافة السجل بنجاح")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MessageBox.Show("هل تريد حذف السجل الحالي ", "رسالة حذف", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = " delete from user where user_no =" & TextBox1.Text & ""
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("لقد تم حذف السجل المذكور")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim w As Integer = TextBox1.Text
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "update user set user_no=" & TextBox1.Text & " , user_name ='" & TextBox2.Text & "', password='" & TextBox3.Text & "' where user_no =" & TextBox1.Text & ""
con.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تم تعديل السجل بنجاح")
con.Close()
End Sub
End Class
في حالة وضع باسورد على قاعدة البيانات فتظهر الرسالة التالية
لا يمكن بدء التطبيق. ملف معلومات مجموعة العمل مفقود أو يتم فتحه فقط من قبل مستخدم آخر.
وفي حالة نزع الباسورد من قاعدة البيانات فتظهر الرسالة التالية
خطاء في جملة الاستعلام في العبارة from
وفي حالة الأظافة تظهر الرسالة
خطاء في بناء جملة insert
واحياناً
خطاء في جملة الاستعلام في العبارة from
اتمنى ان اجد الحل عندكم
والمشروع في المرفقات