תיבת סימון בADO

[יעל51366]

תיבת סימון בADO

יש לי קוד בADO ואני רוצה להוסיף לטופס קוד שישאב את נתוניו מהמסד. זה מה שכתבתי :

Set oCheck.DataSource = adoPrimaryRS​

וזו הודעת השגיאה מספר 91 object variable or block variable not set

 

[יעל51366]

תיבה משולבת בADO

הטבלאות במסד מקושרות זל,ז . אני רוצה ליצר קומבו בוקס שישאב את נתונין מטבלה אחרת . אפשר לקבל את הקוד נטו רק לקומבו ?

 

[מס1]

כי לא הגדרת את

ה WORKSPACE ולכן הוא לא מכיר את האובייקט

 

[יעל51366]

איך מגדירים זאת ? WORKSPACE

 

[מס1]

הנה כך ותתאים לך את זה

Dim WspDefault As Workspace Dim dbs As Database Dim StrSQL As String Dim Str As String Dim Win As Integer Dim rstFromQuery As Recordset 'Set the path to the database Form2.Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\randvoo.mdb;Mode=Read" frmWorkHours1.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\randvoo.mdb;Mode=Read" frmWorkHours1.Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\randvoo.mdb;Mode=Read" Form1.DataGrid1.BackColor = 16777215 Str = App.Path & "\randvoo.mdb" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Str & ";Mode=Read" OldDbName = Str 'Create a default workspace Object Set WspDefault = DBEngine.Workspaces(0) 'Create a Database object Set dbs = WspDefault.OpenDatabase(OldDbName)​