23-08-14, 01:56 PM
[align=left][align=left][align=right][align=right][align=center][align=left]ما هو حل رسالة data type mismatch in criteria expression اثناء البحث بين تاريخين
جملة الادخال هي
Dim i As Integer
For i = 0 To DataGridView1.Rows.Count - 2
Dim id As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(0)
Dim item As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(1)
Dim itmnam As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(2)
Dim value1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(3)
Dim price As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(4)
Dim sum1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(5)
Dim disc As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(6)
Dim total1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(7)
Dim bdate As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(8)
Dim iNo As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(9)
Dim bbb As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(10)
'MsgBox(bbb.Value)
Dim g As Integer = 0
g = (bbb.Value) - (value1.Value)
cn.open
Dim Cmd14 As New OleDbCommand("Insert into selltab values(" & id.Value & "," & item.Value & "," & bdate.Value & "," & value1.Value & "," & price.Value & "," & disc.Value & "," & sum1.Value & "," & total1.Value & "," & iNo.Value & ")", Cn)
الادخال عن طريق datagridview
و جملة البحث
dt.Clear()
Dim da As New OleDbDataAdapter("select * from selltab where Sell_date between '" & Format(DateTimePicker1.Value.Date, "MM/dd/yyyy") & "' AND '" & Format(DateTimePicker2.Value.Date, "MM/dd/yyyy") & "'", Cn)
da.Fill(dt)
If dt.Rows.Count > 0 Then
Me.DataGridView1.DataSource = dt
و عند da.Fill(dt) تظهر الرسالة data type mismatch in criteria expression
و لكم مني جزيل الشكر
جملة الادخال هي
Dim i As Integer
For i = 0 To DataGridView1.Rows.Count - 2
Dim id As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(0)
Dim item As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(1)
Dim itmnam As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(2)
Dim value1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(3)
Dim price As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(4)
Dim sum1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(5)
Dim disc As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(6)
Dim total1 As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(7)
Dim bdate As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(8)
Dim iNo As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(9)
Dim bbb As DataGridViewTextBoxCell = DataGridView1.Rows(i).Cells(10)
'MsgBox(bbb.Value)
Dim g As Integer = 0
g = (bbb.Value) - (value1.Value)
cn.open
Dim Cmd14 As New OleDbCommand("Insert into selltab values(" & id.Value & "," & item.Value & "," & bdate.Value & "," & value1.Value & "," & price.Value & "," & disc.Value & "," & sum1.Value & "," & total1.Value & "," & iNo.Value & ")", Cn)
الادخال عن طريق datagridview
و جملة البحث
dt.Clear()
Dim da As New OleDbDataAdapter("select * from selltab where Sell_date between '" & Format(DateTimePicker1.Value.Date, "MM/dd/yyyy") & "' AND '" & Format(DateTimePicker2.Value.Date, "MM/dd/yyyy") & "'", Cn)
da.Fill(dt)
If dt.Rows.Count > 0 Then
Me.DataGridView1.DataSource = dt
و عند da.Fill(dt) تظهر الرسالة data type mismatch in criteria expression
و لكم مني جزيل الشكر