USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dúvidas com o VB com Interbase
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
Postada em 26/11/2005 12:17 hs            
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 !!!
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 26/11/2005 13:45 hs            
rst.Source = "SELECT nome, endereco, pais FROM cliente"
rst.ActiveConnection = DB
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open
 
Se vc nao alterar o CursorType e o LockType, nao pode usar o RecordCount e o AbsolutePosition...
 
Espero q isso ajude...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
Postada em 26/11/2005 22:09 hs            
Eliezer valeu mais uma vez pela dica, coloquei as duas linhas que você adicionou e realmente não deu mais os erros que estavam dando, consegui movimentar os dados next e previous, o recordcount reconheceu os 3 registros que eu tenho no banco, más ainda ficou um porém, na minha exibição dos registros pelo comando -  LblRegistro.Caption = "Reg. : " & rst.AbsolutePosition & " / " & rst.RecordCount - ele está exibindo -1 / 3 e quando faço a movimentação dos registros, ele não muda esses valores, pois deveria aparecer 1 / 3 e conforme ir passando 2 / 3 e 3 / 3, depois voltar 2 / 3 e 1 / 3, será que você sabe o porque que isso não está acontecendo?
     
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 27/11/2005 08:16 hs            
coloca mais essa linha antes de abrir a tabela
ConexaoADO.CursorLocation = adUseClient
 
talvez ajude.....
TÓPICO EDITADO
   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
Postada em 27/11/2005 09:03 hs            
Valeu Alfterra, funcionou legal !!!!
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página