تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة مع زر اضافة سجل
#1
هذا هو السورس كود لحفظ سجل عندى والادوات الموجوده على الفورم
3 تيكست بوكس وريتش بوكس

إقتباس :If TextBox1.Text = vbNullString Then
MessageBox.Show("أنت لم تدخــــل الأســــــم", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

PhoneFrm_Load(Nothing, Nothing)
Exit Sub
End If

Dim GetHim As New OleDbDataAdapter("Select * from tabel2 Where Nam='" & TextBox1.Text & "'", Cn)
Dim DS1 As New DataSet
DS1.Clear()
GetHim.Fill(DS1, "tabel2")
If DS1.Tables("tabel2").Rows.Count <> 0 Then
MessageBox.Show("موجـــــــود ســــــابقا", "تنبيـــــــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
PhoneFrm_Load(Nothing, Nothing)
Exit Sub
End If

'======================================
Try
NewBtn.Enabled = False

BS.EndEdit()

DP.Update(DS, "tabel2")

DS.Clear()

DP.Fill(DS, "tabel2")

BS.MoveLast()

ShowRe()
MessageBox.Show("تمــــــت عمليـــــة الحـــــــفظ بنجـــــــاح", "حــــــفظ a.sh", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
PhoneFrm_Load(Nothing, Nothing)

Catch ex As Exception
MessageBox.Show("العمليـــــة فشــــــــلت", "خـــــــطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
SaveBtn.Enabled = False
NewBtn.Enabled = True

End Try
ولكن تظهرلى مشكلة عند الاضافة
تظهرلى رسالة العملية فشلت فماهو الحل
الرد }}}
تم الشكر بواسطة:
#2
فيه طريقة اسهل للحفظ
كود :
dim insertinto as new oledbcommand("insert into tb (name,age) values(@name,@age)",con)
insertinto.parameters.addwithvalue("@name",oledbtype.varchar).value=name.text
insertinto.parameters.addwithvalue("@age",oledbtype.int).value=age.text

كود :
con.open

try


insert into executenonquery

هنا رسالة تم الحفظ



Catch ex As Exception

هنا رسالة الخطا

end try
الرد }}}
تم الشكر بواسطة:
#3
سعود كتب :فيه طريقة اسهل للحفظ
كود :
dim insertinto as new oledbcommand("insert into tb (name,age) values(@name,@age)",con)
insertinto.parameters.addwithvalue("@name",oledbtype.varchar).value=name.text
insertinto.parameters.addwithvalue("@age",oledbtype.int).value=age.text

كود :
con.open

try


insert into executenonquery

هنا رسالة تم الحفظ



Catch ex As Exception

هنا رسالة الخطا

end try

طب ممكن تعدلى الكود على ما موجود بالكود تبعى
الرد }}}
تم الشكر بواسطة:
#4
إقتباس :
طب ممكن تعدلى الكود على ما موجود بالكود تبعى
احذفه بشكل كامل وحط هذا بمكانهSmileSmile
او ارفع مثال صغير بنفس الفكرة اعدل عليه.
الرد }}}
تم الشكر بواسطة:
#5
سعود كتب :فيه طريقة اسهل للحفظ
كود :
dim insertinto as new oledbcommand("insert into tb (name,age) values(@name,@age)",con)
insertinto.parameters.addwithvalue("@name",oledbtype.varchar).value=name.text
insertinto.parameters.addwithvalue("@age",oledbtype.int).value=age.text

كود :
con.open

try


insert into executenonquery

هنا رسالة تم الحفظ



Catch ex As Exception

هنا رسالة الخطا

end try

استخدمت الكود وعدلت فيه لحد ماقدرت لكن بيأتى تعليم خطأ على الجملة الاتيه
insert into executenonquery
الرد }}}
تم الشكر بواسطة:
#6
خطا معلش شوف انا كتبت تعريفه كذا
كود :
dim insertinto
وطلبت تنفيذه كذا
كود :
insert into executenonquery
اجعله كذا
كود :
insertinto.executenonquery
الرد }}}
تم الشكر بواسطة:
#7
سعود كتب :خطا معلش شوف انا كتبت تعريفه كذا
كود :
dim insertinto
وطلبت تنفيذه كذا
كود :
insert into executenonquery
اجعله كذا
كود :
insertinto.executenonquery

اخى الحبيب هذا هو الكود الذى استخدمته ولم يظهر به اى اخطاء ولكنه عند التجربة تظهرلى رسالة عدم الحفظ
إقتباس : Dim insertinto As New OleDbCommand("insert into tabel2 (nam,price of buy,price of sell,notes) values(@name,@price of buy,@price of sell,@notes)", Cn)
insertinto.Parameters.AddWithValue("@nam", OleDbType.Integer).Value = TextBox1.Text
insertinto.Parameters.AddWithValue("@price of buy", OleDbType.Integer).Value = TextBox2.Text
insertinto.Parameters.AddWithValue("@price of sell", OleDbType.Integer).Value = TextBox3.Text
insertinto.Parameters.AddWithValue("@notes", OleDbType.Integer).Value = RichTextBox1.Text
Cn.Open()
Try


insertinto.ExecuteNonQuery()

MsgBox("تمت عملية الحفظ بنجاح,حفظ")



Catch ex As Exception

MsgBox("لم يتم الحفظ")

End Try
الرد }}}
تم الشكر بواسطة:
#8
لا تكتب لم يتم الحفظ وانما اسند دالة الخطا
كود :
Msgbox (Err.Description)
الرد }}}
تم الشكر بواسطة:
#9
سعود كتب :لا تكتب لم يتم الحفظ وانما اسند دالة الخطا
كود :
Msgbox (Err.Description)

قالى خطأ فى بناء جملة insert into
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم

ما جملة الخطأ اخي العزيز؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى الجريد فيو salah525 10 538 05-11-23, 08:15 PM
آخر رد: justforit
Big Grin مشكلة لسه ماحدش جاوبني عليها cmd.excutenunquery Medo84 1 1,304 27-08-23, 12:47 PM
آخر رد: رضوان الجماعي
  مشكلة عند الاتصال ب sql server 2014 bassant 1 1,004 27-08-23, 12:26 PM
آخر رد: رضوان الجماعي
  *[- تم الحل -]* ما هو كود اضافة ميزة المفتاح الاساسي لعمود ترقيم تلقائي موجود سعود 2 498 27-05-23, 01:44 AM
آخر رد: سعود
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  مشكلة عند الاتصال ب sql server 2014 bassant 4 1,415 16-09-21, 02:52 PM
آخر رد: asemshahen5
  [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW atef_020 9 28,324 31-08-21, 04:59 AM
آخر رد: a7med saba
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,335 25-01-21, 02:45 AM
آخر رد: alims
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 5 6,555 12-11-20, 12:13 PM
آخر رد: bahaa.elkomy@yahoo.com

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


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