פקד datagrid

[danielthewhite]

פקד datagrid

אני מנסה לחבר פקד datagrid לטבלה בלי שימוש בפקד adodc אלא באמצעות קוד, כלומר חיבור לrecordst. ניסיתי את הקוד הבא:

Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set rs = New ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/workers.mdb;" rs.Open "select workers.* from workers", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs DataGrid1.Refresh End Sub​

אני לא מקבל שום הודעת שגיאה, אבל הפקד בכל זאת נשאר ריק. מה יכולה להיות הבעייה? תודה לכולם

 

[ivg]

פיתרון אפשרי

את השורות הבאות:

Dim cn As ADODB.Connection Dim rs As ADODB.Recordset​

תמחק מה- Sub ותרשום בהצהרות שלפני ה- Subים.

 

[danielthewhite]

לא...

תיסתכל טוב. הם לפני הsub פשוט אין רווח...

 

[ivg]

תנסה ככה:

Dim rs As New ADODB.Recordset Private Sub Form_Load() rs.Open "select workers.* from workers", "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/workers.mdb;", 3, 3 Set DataGrid1.DataSource = rs DataGrid1.Refresh End Sub​

 

[danielthewhite]

מה ההבדל?

טוב..בכל אופן, ניסיתי, אבל זה לא שינה כלום...

 

[ivg]

תנסה למחוק את פקד ה- datagrid

תנסה למחוק את פקד ה- datagrid הנוכחי וליצור אותו מחדש ואז תנסה להריץ את הקוד בלי לשנות בו כלום.

 

[danielthewhite]

לא עזר....