Consegui conectar o vb com o interbase, instalei o ActiveX Data Objects 2.8 library e o sibprovider, só que está acontecendo um erro, esse é um exemplo que peguei do Macorati
DB.Open "provider=sibprovider;data source=c:conexão interbase este.gdb", "alvaro", "abr2209"
- Botão Conectar -
rst.Source = "SELECT nome, endereco, pais FROM cliente"
rst.ActiveConnection = DB
rst.Open
exibe_dados
Command1.Enabled = False
Private Sub exibe_dados()
Text1.Text = "" & rst(0) 'nome
Text2.Text = "" & rst(1) 'endereco
Text3.Text = "" & rst(2) 'pais
LblRegistro.Caption = "Reg. : " & rst.AbsolutePosition & " / " & rst.RecordCount
No meu banco eu tenho 3 registros
( quando exibe ele mostra -1 / -1, e não 1 / 3 e quando faço a movimentação dos registros ele não altera os valores )
End Sub
- Botão Próximo -
Move para o próximo ( não da erro )
rst.MoveNext
If Not rst.EOF Then
exibe_dados
Else
Command3.Enabled = False
End If
- Botão Anterior -
Move para o Anterior ( Da erro - Operação não permitida nesse contexto )
rst.MovePrevious
If Not rst.BOF Then
exibe_dados
Else
rst.MoveMin
End If
Será que alguém pode me ajudar, pois eu estou começando com o VB x SQL agora e queria entender o que está acontecendo, para que eu possa estar continuando
Valeu Galera !!!