12-05-17, 03:42 AM
12-05-17, 03:58 AM
الرسالة تقول عدم تطابق نوع البيانات
حسب الصورة يوجد الحقل [Sex] والحقل[Birthday]
لكن الافضل وضع الحقل [Sex] بالبارامتر مثل البقية بحيث تكون
ملاحظة OleDbDataAdapter لا تحتاج Con.Open وCon.Close
حسب الصورة يوجد الحقل [Sex] والحقل[Birthday]
لكن الافضل وضع الحقل [Sex] بالبارامتر مثل البقية بحيث تكون
PHP كود :
WHERE [Sex]=@sex
PHP كود :
cmd.Paramiters.AddWithValue("@sex", cboText.Text)
ملاحظة OleDbDataAdapter لا تحتاج Con.Open وCon.Close
12-05-17, 04:17 AM
شكرا جزيلا Mansoor
ارجو المساعدة بتعديل الكود
ارجو المساعدة بتعديل الكود
PHP كود :
Dim dt As New DataTable
Dim parameters As New List(Of OleDbParameter)
Dim sql = "SELECT * FROM [Table1] WHERE [Sex]='" & cboSex.Text & _
"' AND [Birthday] BETWEEN @StartDate AND @EndpDate "
Dim cmd = New OleDbCommand(sql, Con)
cmd.Parameters.AddWithValue("@StartDate", DateTimePicker1.Value)
cmd.Parameters.AddWithValue("@EndpDate", DateTimePicker2.Value)
Dim da = New OleDbDataAdapter(cmd)
da.Fill(dt)
dgvList.DataSource = dt
12-05-17, 04:21 AM
PHP كود :
Dim sql = "SELECT * FROM [Table1] WHERE [Sex]=@sex AND [Birthday] BETWEEN @StartDate AND @EndpDate "
Dim da As New OleDbDataAdapter(sql, Con)
da.SelectCommand.Parameters.AddWithValue("@sex", cboSex.Text)
da.SelectCommand.Parameters.AddWithValue("@StartDate", DateTimePicker1.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@EndpDate", DateTimePicker2.Value.Date)
Dim dt As New DataTable
da.Fill(dt)
dgvList.DataSource = dt
12-05-17, 04:28 AM
شكرا جزيلا الكود اشتغل تمام