+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27790)
إدراج بيانات من الجريد إلى أكسس - motazsaad94@gmail.com - 04-12-18
السلام عليكم, كتبت هذا الكود لإدراج بيانات من الحقول إلى الداتا جريد وقد نجح, ولكن عند وضع الكود التالي في زر اخر لإدراج البيانات إلى قاعدة بيانات يظهر لي خطأ (Data type mismatch in criteria expression)
PHP كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim da, num As String
Dim tim As Integer
Dim cost As Double
For i As Integer = 0 To DataGridView1.Rows.Count - 1
da = DataGridView1.Rows(i).Cells(0).Value
num = DataGridView1.Rows(i).Cells(1).Value
tim = DataGridView1.Rows(i).Cells(2).Value
cost = DataGridView1.Rows(i).Cells(3).Value
cmd = New OleDbCommand("insert into work_order(da, num, tim,cost)values (@da,@num,@tim,@cost)", con)
cmd.Parameters.Add("@da", OleDbType.VarChar).Value = da
cmd.Parameters.Add("@num", OleDbType.VarChar).Value = num
cmd.Parameters.Add("@tim", OleDbType.Integer).Value = tim
cmd.Parameters.Add("@cost", OleDbType.Currency).Value = cost
con.Open()
cmd.ExecuteNonQuery()
Next
con.Close()
MsgBox("تم إنهاء الجلسة")
RE: إدراج بيانات من الجريد إلى أكسس - baha - 05-12-18
وعليكم السلامم
قم بالتأكد من نوع البيانات في حقول قاعدة البيانات ومطابقتها مع نوع بيانات متغيرات الادخال.
وأعتقد والله أعلم أن الخطأ في نوع بيانات المتغير cost
RE: إدراج بيانات من الجريد إلى أكسس - حريف برمجة - 05-12-18
اعمل الباراميترات هكذا :
كود :
Cmd.Parameters.AddWithValue("@da", da)RE: إدراج بيانات من الجريد إلى أكسس - motazsaad94@gmail.com - 05-12-18
حلولكم سليمة .. تم حل المشكلة شكراً جزيلاً