منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( (/showthread.php?tid=24236)

مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( - cayo12300 - 19-03-18

السلام عليكم ورحمة الله وبركاته 


كيف الحال 

مشكلتي في ربط قاعدة بيانات اكسيس بالفيجوال بيسك 
قمت بأكثر من طريقة ومازلت المششكلة موجودة ..عندما اقوم بتيل مفروض المعلومات الي سجلتها تنحفظ في داتابيس ! "قاعدة البيانات"
بس مشكلة ما تحفظ مع اني ربطها ...يقول لي انه خطأ في انسيرت بس مدري شو غلط بضبط 




اسم قاعدة البيانات 
user
 الداتا الي داخلها 
Id نوعه= اوتو نمبر 
Name=تيكت
Password=تيكست
Email=تيكست
Gender=تيكست
Age =نمبر 


وهذا هو الكود ...











كود :
Imports System.Data.OleDb
Public Class registration
   Dim conn As New OleDbConnection

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

   End Sub

   Private Sub Regastration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\user.mdb"

   End Sub
   Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint



   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.Close()
       Form1.Show()
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
           MsgBox("you should complete your details")
       Else
           conn.Open()
           Dim cominsert As New OleDbCommand
           cominsert.Connection = conn
           cominsert.CommandText = "insert into user values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"
           cominsert.ExecuteNonQuery()
           MsgBox("registration is complete")
           conn.Close()

       End If

   End Sub
End Class

هذا الملف كامل مع قاعدة البيانات ...و البرنامج نفسه الي قدر يشيك عليه ويخبرني الحل اكون شاكرة 
التقيم يوم الخميس تاريخ 22 ولازم نراوي المس النظام قبل الخميس عليه 40 درجة رجاءا حد يساعدني وشكراا

RE: مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( - عبدالله الدوسري - 19-03-18

الخطاء أنك بعد الجملة ( insert into user ) لم تذكر أسماء الحقول 
والواجب هو ذكر اسماء الحقول بأي بترتيب (Id, Name, Password, Email, Gender, Age) , ويلحق بجملة ( values ) بعدها تضع قيم الحقول بنفس ترتيب الحقول السابق


الكود القديم :
كود :
           cominsert.CommandText = "insert into user values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"




الكود بعد التعديل :
كود :
           cominsert.CommandText = "insert into user (Id, Name, Password, Email, Gender, Age) values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"


RE: مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( - cayo12300 - 19-03-18

(19-03-18, 02:36 PM)عبدالله الدوسري كتب : الخطاء أنك بعد الجملة ( insert into user ) لم تذكر أسماء الحقول 
والواجب هو ذكر اسماء الحقول بأي بترتيب (Id, Name, Password, Email, Gender, Age) , ويلحق بجملة ( values ) بعدها تضع قيم الحقول بنفس ترتيب الحقول السابق


الكود القديم :
كود :
           cominsert.CommandText = "insert into user values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"




الكود بعد التعديل :
كود :
           cominsert.CommandText = "insert into user (Id, Name, Password, Email, Gender, Age) values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"


لا مو ضروري شفت ناس ما يحطوها ...
المهم جربتها وللاسف نفس المشكلة ...
انا احس الخطأ في وجود الفواصل و "" يمكن لانه بعضهم عبارة عن قم فمرض ما يكون في رقم ...بس ما عارفة كيف ... Sad Sad Sad

RE: مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( - عبدالله الدوسري - 19-03-18

استبدل علامة + بــ &
علامة + هي المشكلة