اردت عمل استعلام بال sql
عن طريق مكتبة ado وفتحت نموذج ووضعت عليه data grid وحملت مكتبة ado من Reference وكتبت الكود التالى :
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=one.mdb"
cn.Open
sq = "select * from manger"
rs.Open sq, cn, adOpenKeyset
Set DataGrid1.DataSource = rs
End Sub
ارجوكم اريد معرفة الخطا فى هذا الكود :(
الخطا هو انه لا تظهر اى بيانات فى ال data grid
السلام عليكم
انا كان بيحصل معايا نفس المشكلة فى الداتا جريد لحد ما تخنقت من الداتا جريد :(
ولكن وجد انها شغاله كويس مع الادو كنترول
واليك الكود باستخدام الادو كنترول
Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Tracking.mdb;Persist Security Info=False" Ado.RecordSource = "select aId ,ttype,BasicData,Issues,SecurityOptions from user_tbl" Ado.Refresh grdSecCtrl.ReBind Set grdSecCtrl.DataSource = Ado grdSecCtrl.Refresh
أما الكود اللى انت كتبته فى موضوعك فانا استخدمه فى الفلكس جريد والــ MSHFLIXGRID وهـــو
اقتباسPrivate Sub Command1_Click()Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=one.mdb"
cn.Open
sq = "select * from manger"
rs.Open sq, cn, adOpenKeyset
Set DataGrid1.DataSource = rs
End Sub
استغفر الله العظيم من كل ذنب وأتوب إليه
هذا الموضوع مغلق.