احتــــــــــــــــــــــــــــــــــــــاج الى مساعدتكم

[طيـف]

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

انا طالبة تخرج ومشروعي للتخرج عن الطيران اخر تسليم له يوم

الاربعاء القادم يعني مابقى له الايوم........

واللي دفعني للمشاركه وهو اني متأمله بوجود المساعده عندكم

وهو اني محتاجه لربط الفيجول بالاكسس..بما اني سويتة لكن طلع عندي اخطاء بجملة insert into

اتمنى اجد مساعده منكم .. أكون شاكره لكم ..::smailes88:

[يــس]

وعليكم السلام ورحمة الله وبركاته
أختي الكريمة ضعي الكود الذي طلع لك فيه الخطأ
وإن شاء الله الأعضاء الكرام سيساعدونكــ

بالتوفيق

[طيـف]

مشكور اخوي الله يعطيك الف عافية عل التجاوب السريع وهذا الكود
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection
i.CommandText = "insert into book(من ,الى ,تاريخ المغادرة ،تاريخ الوصول ،بالغ ،طفل، رضيع،درجة الخدمة،رقم المرحلة، تاريخ المرحلة ،للحجز عن طريق الانترنت)values(TextBox1.text & "" & combobox1.text & "" & combobox2.text &"" & DateTimePicker1.Text &"" & DateTimePicker2.Text &"" & RadioButton1.chked &"" & RadioButton2.chked &"" & combobox8.text &"" & combobox9.text &"" & combobox10.text &"" & combobox11.text & "" & ComboBox12.Text & " )"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")
End Sub
End Class

[يــس]

أختي الكريمة
عندي ملاحظة أولية حاولي تصححيها وجربي إن مشى معاكـ الحال أو لا
وهي أننا نستعمل العلامة -,- للفصل بين حقول الجدول وليس العلامة -،-
إنتي استعملتي العلامة الأولى فقط لتفريق الحقلين الأولين أما الباقي لأ
صححي هذا الخطأ وبعدين ردي عليٌ

بالتوفيــــــق

[طيـف]

:smailes113: غيرت الكود بالكامل الى .....
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim inscom As New OleDbCommand
inscom.CommandText = "insert into keep(NUM,FROM,TO,DTD,RD,DO,BACK,RONI,CLASS,FLIGHTD ,ADULT,CHILD,BABY)values('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Text & "','" & DateTimePicker2.Text & "','" & RadioButton1.Checked & "','" & RadioButton2.Checked & "','" & ComboBox8.Text & "','" & ComboBox9.Text & "','" & ComboBox5.Text & "','" & ComboBox10.Text & "','" & ComboBox11.Text & "','" & ComboBox12.Text & "')"
inscom.Connection = OleDbConnection1
Try
inscom.ExecuteNonQuery()
Catch x As OleDbException
MsgBox(x.Message)
End Try
'counter += 1
'OleDbConnection1.Close()
'OleDbConnection1.Open()
MessageBox.Show("Record had been added")
' m_dtcontact.Clear()
'M_dataAdapter.Fill(m_dtcontact)
' Me.showcurrentrecord()
' m_dtcontact.Clear()
' M_dataAdapter.Fill(m_dtcontact)
وبرضوا طلع لي خطاء بجملة insert into

[bassamreg]

الصبر انشاء الله الحل قريب قلوبنا معك

[يــس]

أختي الكريمة
من فضلكــ ضعي الرسالة التي تظهر لكـــ

شكرا

[طيـف]

خلاص اخوي الله يعطيك العافية الحمد بفضل من ربي صلحتة ونفذ عندي ومشكور على التفاعل ........ اشكركم على ضايفتي عندكم بالمنتدى واكرامي بالرد على اسئلتي والسلام..

[يــس]

خلاص اخوي الله يعطيك العافية الحمد بفضل من ربي صلحتة ونفذ عندي ومشكور على التفاعل ........ اشكركم على ضايفتي عندكم بالمنتدى واكرامي بالرد على اسئلتي والسلام..

باركـ الله فيك أختي الكريمة
ومرجبا بيكـــ في أي وقت :smailes21:

موفقة إن شاء الله