+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس (/showthread.php?tid=23763)
عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس - Nedaa - 10-02-18
لو سمحتم ياريت تساعدوني ... عندما ابحث عن التاريخ واكتب هذا الكود لا يعمل ولا تظهر نتائج وعندي مشكلة في السطر هذا :
da .fill = (dt)
وهذا هو الكود ياريت حد يفيدني وين المشكلة ...
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim dtp As Date = DateTimePicker1.Value
dt.Clear()
da = New OleDbDataAdapter("select * from T1 where DateBirth= #" & dtp.Day & "/" & dtp.Month & "/" & dtp.Year & "#", conn)
da.Fill = (dt) =====المشكلة هنا لا ينفذ هذا السطر لماذا
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("Not Found")
da = New OleDbDataAdapter(" SELECT * from T1", conn)
da.Fill(dt)
DataGridView1.DataSource = dt
End If
End Sub
RE: عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس - Nedaa - 10-02-18
يطلع لي دائماً المسج هذا:
Error 1 Overload resolution failed because no accessible 'Fill' accepts this number of arguments.-
RE: عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس - Nedaa - 10-02-18
الحمد لله تم حل المشكلة كانت المشكلة فقط في وجود علامة = بعد كلمة fill
RE: عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس - محمود صالح - 10-02-18
الكود بعد التعديل
PHP كود :
Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
Dim dt As New DataTable
dt.Clear()
Dim da As New OleDbDataAdapter("select * from T1 where DateBirth= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'", conn)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("Not Found")
da = New OleDbDataAdapter(" SELECT * from T1", conn)
da.Fill(dt)
DataGridView1.DataSource = dt
End If
RE: عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس - Nedaa - 10-02-18
(10-02-18, 03:26 AM)محمود صالح كتب : الكود بعد التعديل
PHP كود :
Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
Dim dt As New DataTable
dt.Clear()
Dim da As New OleDbDataAdapter("select * from T1 where DateBirth= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'", conn)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("Not Found")
da = New OleDbDataAdapter(" SELECT * from T1", conn)
da.Fill(dt)
DataGridView1.DataSource = dt
End If
بارك الله فيك أخي الكريم
