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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Erro ao listar dados da tabela em ADO
Paula
BRASÍLIA
DF - BRASIL
Postada em 19/04/2006 08:52 hs            
Bom dia pessoal,
Estou criando um programa para acessar uma base de dados na web usando um BD do SQL Server 2000, ele chega a conectar normalmente no BD, mas quando vou listar os dados da tabela "tab1" aparece:
"Could not find stored procedure 'tab1'".
O código que estou usando é esse:
MSFlexGrid1.Rows = 1
Set rst = New ADODB.Recordset
    rst.ActiveConnection = Con
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Source = "tab1"
    rst.Open
While Not rst.EOF() ' checking end of file
    MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
   
    rst.MoveNext
Wend
Set rst = Nothing
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 19/04/2006 09:04 hs            
Tenta assim:
  
...
    rst.ActiveConnection = Con
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Source = "tab1"
    rst.Open , , , , adCmdTable
 
t+
     
Paula
não registrado
Postada em 19/04/2006 09:34 hs   
ghost_jlp, tentei colocar e deu essa mensagem agora:
 
"Invalid object name 'tab1'".
 
Você sabe porque deu esse erro? Essa tabela é única dentro do Banco de dados não tem nenhuma outra nem com outro nome.
     
Clau
ARARAQUARA
SP - BRASIL
ENUNCIADA !
Postada em 19/04/2006 15:28 hs            
Tenta dessa forma(lembre-se de declarar rst): Public rst As New ADODB.Recordset
 
MSFlexGrid1.Rows = 1
rst.CursorLocation = adUseClient
rst.Open "tab1", con, adOpenKeyset, adLockOptimistic, adCmdTablest.Open
 
While Not rst.EOF() ' checking end of file
    MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
   
    rst.MoveNext
Wend
rst.close
   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 19/04/2006 16:01 hs            
rst.Open "select * from tab1", con, adOpenKeyset, adLockOptimistic
   
Clau
ARARAQUARA
SP - BRASIL
Postada em 20/04/2006 09:12 hs            
O código que enviei tinha um erro, me desculpe, o correto é:

MSFlexGrid1.Rows = 1
rst.CursorLocation = adUseClient
rst.Open "tab1", con, adOpenKeyset, adLockOptimistic, adCmdTable  
'ou
rst.Open "Select * from tab1", con, adOpenKeyset, adLockOptimistic, adCmdText

While Not rst.EOF() ' checking end of file
    MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
  
    rst.MoveNext
Wend
rst.close

Claudene Gonçalves                                                                                            msn: claudeneg@hotmail.com

     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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