تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"(
#1
السلام عليكم ورحمة الله وبركاته 


كيف الحال 

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




اسم قاعدة البيانات 
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 درجة رجاءا حد يساعدني وشكراا


الملفات المرفقة
.rar   System.rar (الحجم : 218.86 ك ب / التحميلات : 26)
الرد }}}
تم الشكر بواسطة:
#2
الخطاء أنك بعد الجملة ( 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 + "')"
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
استبدل علامة بــ &
علامة + هي المشكلة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة في التايمر assuhimi 3 78 23-03-24, 04:51 PM
آخر رد: Taha Okla
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 600 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  [سؤال] مشكلة اتصال مفتوح dell 2 150 12-03-24, 09:46 PM
آخر رد: dell
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم