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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  DataGrid
Fabio
não registrado
ENUNCIADA !
Postada em 18/09/2004 13:16 hs   
Estou usando esse código e não consigo jogar os registros na grid:
 
Dim rst As New ADODB.Recordset
rst.Open "SELECT * fROM tabela", cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rst
   
Fabio
não registrado
ENUNCIADA !
Postada em 18/09/2004 13:27 hs   
Acabei de perceber que usando o .mdb em Access 2000 ou 2000 e acessando pelo OLEDB.4.0 eu não consigo o que queria acima,mas usando o .mdb em Access 97 e usando o OLEDB.3.51 eu consigo.
 
tem algum detalhe para conseguir no OLEDB.4.0 usando Access 2000 ou 2002?
   
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
ENUNCIADA !
Postada em 18/09/2004 13:49 hs            
Tente assim:
 
sSql = "SELECT * FROM tblMovimentos"
rst.Open sSql, cnBd, adOpenKeyset, adLockOptimistic
Set Me.DataGrid1.DataSource = rst
Me.DataGrid1.Refresh
   
Mateus
AMADORA
PT - PORTUGAL
Postada em 20/09/2004 08:24 hs            
Com esta conexão consegue, de certeza, acessar ACCESS 2000:
 

Public Function ConexaoDados() As Connection

 

base = PstrCamDados & "mvdoctab.mdb"

Set dbDados = New ADODB.Connection

With dbDados

    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .Properties("Data Source") = base

    .Properties("Jet OLEDB:Database Password") = "password"

    .Open

End With

 

End Function

 

João Mateus

     
Fabio
não registrado
Postada em 20/09/2004 11:08 hs   
Já tentei usar 4.0 com Access2000 e Access2002 e só funciona mesmo com 3.51 e Access97.
     
Marcos Nogueira
SÃO PAULO
SP - BRASIL
Postada em 21/09/2004 18:03 hs            
véio tenta assim vai ser batata
 
Dim rst As New ADODB.Recordset
rst.cursorlocation = adusecliente
rst.Open "SELECT * fROM tabela", cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rst
 
 
falow truta!

Marcos Nogueira
"Sempre ouvindo um RAP pra alegrar a RAPA!!!"

     
Página(s): 1/1    


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