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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  DataCombo com ADO???
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 03/06/2005 13:45 hs            
Olá, colegas
 
Estou tendo problemas pra vincular o controle DataCombo com um Recordset ADO... quero saber se é possível???
 
Vou ser mais exato, quero usar o DataCombo com ADO e sem um objeto DATA ou ADODC...
Isso é possível???
 
Agradeço a ajuda...


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)

     
Sérgio Jr.
SÃO PAULO
SP - BRASIL
Postada em 06/06/2005 16:26 hs            
Paz e prosperidade amigo !!!
 
Tenta fazer o seguinte:
'//////////////////////////
'/No load do seu form coloque
'/A variavel xCaminho vai armazenar o caminho do meu banco de dados
'/que neste exemplo é o arquivo Dados.mdb que está na mesma pasta
'/do executavel. Você pode substituir pelo caminho fisico do seu banco de dados
'/Exemplo:   xCaminho é igual a :     "C:MinhaPastaMeuBanco.mdb"
'//////////////////////////
Dim xCaminho as String
IF Right(App.Path,1) <> "" Then
     xCaminho = App.Path & "Dados.mdb"
Else
     xCaminho = App.Path & "Dados.mdb"
End if
'///////////////////////////////
'/Define o valor as variaveis Bco e TB
' ///////////////////////////  
Set Bco = OpenDatabase(xCaminho, False)
Set TB = Bco.OpenRecordset("Select * from tbClientes Order By Cod asc")
'///////////////////////////
'/Enquanto não chegar ao o fim do Recordset 
'/vai adicionar o primeiro campo do registro corrente ao datacombo
'/Casp você queira outro campo substitua 0 por outro numero de acordo com a
'/quantidade e ordem dos campos de sua tabela
'/////////////////////////////////////////////  
Do While Not TB.EOF
        DataCombo.AddItem TB(0)
'//////////////
'/Vai para o proximo campo da tabela
'//////////////
        TBCadastro.MoveNext
Loop
'//////////////
'/Se for o fim da tabela sai do loop e termina o código
'/////////////
Tentei...

Sérgio Júnior
Analista de sistemas e Instrutor de informática
 
EMAIL e MSN   sj@softweb.com.br
ICQ                339982437
 
...O cavalo se prepara para a batalha...    
...mas do Senhor Jesus vem a vitória...
 
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 07/06/2005 11:39 hs            
Amigo Sergio,

Nao é exatamente isso q eu quero... pra falar a verdade, é assim q o meu form ta funcionando atualmente, mas eu gostaria de substituir os combos q tenho por DataCombos, que automatizam a operação... mas me parece que o DataCombo nao permite ligacao com ADO diretamente, sem o objeto ADODC...

Bem, mas de qualquer forma eu ja resolvi de outra forma, usando algumas arrays e a propriedade ItemData, usando combos comuns...

Obrigado...


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)

     
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