Обсуждение: HELP

Поиск
Список
Период
Сортировка

HELP

От
"Sol M. Ferrer"
Дата:
 
I'm using VB 6 with the database postgreSQL, my problem is when i used movelast or moveprevious .. error popup and say's "The row set does not support fetching backwards". I attach my sample code.
 
Option Explicit
Dim WithEvents dbInvAct As ADODB.Connection
Dim rsChart As ADODB.Recordset
 
Private Sub Form_Load()
    Set dbInvAct = New ADODB.Connection
    dbInvAct.ConnectionString = "provider=msdasql.1; " & "data source=PostgreSQL; initial catalog=accounting;"
    dbInvAct.Properties("User Id").Value = "user"
    dbInvAct.Properties("Password").Value = "password"
    dbInvAct.Open
   
    Set rsChart = dbInvAct.Execute("Select * from Chart")
End Sub
 
Function Next()
    If rschart.EOF Or rschart.BOF Then
            MsgBox "Database Empty!", vbCritical
        Else
            rschart.MoveNext
            If rschart.EOF Then
                MsgBox "End of File Encountered!", vbExclamation
                rschart.MoveLast 
           End If
    End If
End Sub