08-06-2006, 19:11
|
|
|
חבר מתאריך: 07.10.04
הודעות: 493
|
|
איך לבצע שימוש חוזר ב RecordSet ?
אני רוצה לבצע שימוש חוזר ב RecordSet ע"פ הקוד הבא
קוד:
Private Sub somsub_Click()
rsGrid.CursorLocation = adUseClient
rsGrid.Open "select .....", Conn, adOpenDynamic, adLockOptimistic
Set grid.DataSource = rsGrid
grid.Refresh
End Sub
הפונקציה מעדכנת את ה DATAGRID שלי בטופס , כאשר האובייקט rsGrid מסוג RecordSet
בפעם הראשונה עובד תקין .
אבל כאשר אני קורא לפונקציה פעם נוספת נכשל עם השגיאה
איך אוכל לעדכן את הגריד, ישנו פתרון עקום שעובד בתחילת הפונציה ליצור אובייקט חדש ולא לסגור אותו אבל זה לא נכון כי אני בכל פעם יוצר אובייקט חדש ויש זלילת זכרון.
איפה אוכל לבצע את rsGrid.Close ברגע אפעיל את הפקודה המידע בגריד ימחק , וגם אי אפשר לבצע את השורה :
קוד:
rsGrid.CursorLocation = adUseClient
כאשר האופייקט סגור .
|