مشاهده نسخه کامل
: mostafafree
01-04-2007, 17:36
من يک جدول پارادکس دارم ومي خوام با وي بي به اون وصل بشم.آيا کسي قبلا اين کاروکرده و مي تونه به من کمک کنه(احتمالا پارادکس نسخه چهار به بالا).البته من تونستم با adodc به اون وصل بشم.به اين صورت که يک کنترل adodc ويک کنترل DataGrid به فرم اضافه کردم و کدهاي زير رو در قسمت کد وارد کردم :
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open "Driver={Microsoft Paradox Driver (*.db )};" & _
"DriverID=538;" & _
"Fil=Paradox 5.X;" & _
"DefaultDir=e:\;" & _
"Dbq=e:\;" & _
"CollatingSequence=ASCII"
If cn.State = adStateOpen Then
MsgBox "Welcome!"
End If
Set rs = cn.Execute("SELECT * FROM TableName")
Set DataGrid1.DataSource = rs
'DataGrid1.Refresh
End Sub
که روي خط Set DataGrid1.DataSource = rs خطاي زير را مي گيرد:
Run-time error '7004':
The rowset is not bookmarkable.
خب حالا به نظر شما مشکل چيه.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open "Driver={Microsoft Paradox Driver (*.db )};" & _
"DriverID=538;" & _
"Fil=Paradox 5.X;" & _
"DefaultDir=e:\;" & _
"Dbq=e:\;" & _
"CollatingSequence=ASCII"
If cn.State = adStateOpen Then
MsgBox "Welcome!"
End If
Set rs = cn.Execute("SELECT * FROM TableName")
Set DataGrid1.DataSource = rs
'DataGrid1.Refresh
End Sub
که روي خط Set DataGrid1.DataSource = rs خطاي زير را مي گيرد:
Run-time error '7004':
The rowset is not bookmarkable.
خب حالا به نظر شما مشکل چيه.