akram_raeespour
سه شنبه 10 مهر 1386, 13:17 عصر
با سلام
من یک پروژه اکسس با پسوند adp دارم که اون رو از طریق dsn به یک دیتا بیس sqlserver لینک کردم. من از طریق کد برنامه می توانم با دیتا بیس وصل شده و یک reecordset تولید کرده و آن را بخوانم و یا ویرایش کنم. اما این ado recordset رو نمی تونم به یک فرم bind کنم که اطلاعات رکوردست روی فرم نمایش یابد. کد من به این صورت است.
Private Sub Form_Open(Cancel As Integer)
dim cnxn as adodb.connection
Dim rs As ADODB.recordset
Set Cnxn = New ADODB.connection
conn_str = "ODBC;DSN=automasion;UID=sa;PWD=;DATABASE=automasio ndata"
With Cnxn
.Provider = "MSDASQL"
.Properties("Data Source").value = conn_str
.Open
End With
Set rs = New ADODB.recordset
With rs
Set .ActiveConnection = Cnxn
.CursorLocation = adUseClient
.Source = "SELECT * FROM imp_notes INNER JOIN users ON imp_notes.user_id = users.userid WHERE (((Users.userid) = " & userid & ") and ((imp_notes.done)=0))ORDER BY imp_notes.priority DESC, imp_notes.note_date DESC , imp_notes.note_time DESC "
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
Set Me.recordset = rs
Set rs = Nothing
Set cn = Nothing
exit sub
هنگام اتصال رکورد ست به فرم error زیر میاد.
method recordset of object "form name " failed
اگه کسی می دونه لطفا راهنمایی کنه. ممنون
من یک پروژه اکسس با پسوند adp دارم که اون رو از طریق dsn به یک دیتا بیس sqlserver لینک کردم. من از طریق کد برنامه می توانم با دیتا بیس وصل شده و یک reecordset تولید کرده و آن را بخوانم و یا ویرایش کنم. اما این ado recordset رو نمی تونم به یک فرم bind کنم که اطلاعات رکوردست روی فرم نمایش یابد. کد من به این صورت است.
Private Sub Form_Open(Cancel As Integer)
dim cnxn as adodb.connection
Dim rs As ADODB.recordset
Set Cnxn = New ADODB.connection
conn_str = "ODBC;DSN=automasion;UID=sa;PWD=;DATABASE=automasio ndata"
With Cnxn
.Provider = "MSDASQL"
.Properties("Data Source").value = conn_str
.Open
End With
Set rs = New ADODB.recordset
With rs
Set .ActiveConnection = Cnxn
.CursorLocation = adUseClient
.Source = "SELECT * FROM imp_notes INNER JOIN users ON imp_notes.user_id = users.userid WHERE (((Users.userid) = " & userid & ") and ((imp_notes.done)=0))ORDER BY imp_notes.priority DESC, imp_notes.note_date DESC , imp_notes.note_time DESC "
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
Set Me.recordset = rs
Set rs = Nothing
Set cn = Nothing
exit sub
هنگام اتصال رکورد ست به فرم error زیر میاد.
method recordset of object "form name " failed
اگه کسی می دونه لطفا راهنمایی کنه. ممنون