22-06-13, 12:58 AM
السلام عليكم
هناك اسباب لعدم تشغيل زر الاضافة احد هذه الاسباب
اولا: استخدام اسم للعمود كلمة محجوزة
الحل معرفة ماهذا العمود
هذا الرابط يساعدك لتتأكد من كل الاعمدة في الجداول المستخدمة في برنامج بحيث انك تفتح هذا الرابط وتستخدم خاصية البحث فان وجدت اسم العمود محجوز غيره بطريقة ما
هذا هو الرابط http://support.microsoft.com/kb/248738
ثانيا: جملة الاضافة فيها خطأ
1- يجب ان تربط قاعدة البيانات اولا
2- وضع جملتي الكود في بداية شاشة الكود
Imports System.Data
Imports System.Data.OleDb
3- وضع جملة الاتصال عادة تكون هكذا
Dim Conect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataB.mdb;Persist Security Info=True"
Dim newConect As New OleDbConnection(Conect)
Dim Dataset1 As New DataSet
Dim cmd As New OleDbCommand
Dim SQLstr As String = "Select * From tab"
علما بانه يجب ان يجب تغيير كلمة tab اسم الجدول واسم قاعدة البيانات
4- في حدث التحميل نضع الجمل التالية
newConect.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConect)
DataAdapter1.Fill(dataset1, "tab")
newConect.Close()
TextBox1.DataBindings.Add("text", Dataset1, "tab.id")
TextBox2.DataBindings.Add("text", Dataset1, "tab.Name")
علما بانid و Name و tab يتم تغييرهم حيث ان tab اسم الجدول و idوName هم احد الاعمدة
5- في زر الاضافة يجب تجهيز النص بحيث يكون فارغا لذا وبعد ذلك يجب حفظ الاضافة لذا هذا هو الكود
If Button1.Text = "اضافة" Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Button1.Text = "حفظ"
Else
newConect.Open()
cmd.Connection = newConect
cmd.CommandText = "INSERT INTO Tab (name,Id) Values('" + TextBox2.Text + "'," + TextBox3.Text + ")"
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
newConect.Close()
Button1.Text = "اضافة"
End If
'علما بان اسم الزر "اضافة"
هناك اسباب لعدم تشغيل زر الاضافة احد هذه الاسباب
اولا: استخدام اسم للعمود كلمة محجوزة
الحل معرفة ماهذا العمود
هذا الرابط يساعدك لتتأكد من كل الاعمدة في الجداول المستخدمة في برنامج بحيث انك تفتح هذا الرابط وتستخدم خاصية البحث فان وجدت اسم العمود محجوز غيره بطريقة ما
هذا هو الرابط http://support.microsoft.com/kb/248738
ثانيا: جملة الاضافة فيها خطأ
1- يجب ان تربط قاعدة البيانات اولا
2- وضع جملتي الكود في بداية شاشة الكود
Imports System.Data
Imports System.Data.OleDb
3- وضع جملة الاتصال عادة تكون هكذا
Dim Conect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataB.mdb;Persist Security Info=True"
Dim newConect As New OleDbConnection(Conect)
Dim Dataset1 As New DataSet
Dim cmd As New OleDbCommand
Dim SQLstr As String = "Select * From tab"
علما بانه يجب ان يجب تغيير كلمة tab اسم الجدول واسم قاعدة البيانات
4- في حدث التحميل نضع الجمل التالية
newConect.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConect)
DataAdapter1.Fill(dataset1, "tab")
newConect.Close()
TextBox1.DataBindings.Add("text", Dataset1, "tab.id")
TextBox2.DataBindings.Add("text", Dataset1, "tab.Name")
علما بانid و Name و tab يتم تغييرهم حيث ان tab اسم الجدول و idوName هم احد الاعمدة
5- في زر الاضافة يجب تجهيز النص بحيث يكون فارغا لذا وبعد ذلك يجب حفظ الاضافة لذا هذا هو الكود
If Button1.Text = "اضافة" Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Button1.Text = "حفظ"
Else
newConect.Open()
cmd.Connection = newConect
cmd.CommandText = "INSERT INTO Tab (name,Id) Values('" + TextBox2.Text + "'," + TextBox3.Text + ")"
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
newConect.Close()
Button1.Text = "اضافة"
End If
'علما بان اسم الزر "اضافة"
