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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ADO
Bicicchi
SOROCABA
SP - BRASIL
Postada em 22/11/2004 09:05 hs            
Olá pessoal
 
Utilizo o ADO para me conectar a um BD tudo em código, não uso o ADO Data Contol (Adodc). Acontece que preiso montar um formulário onde os campos (txt box) estejam ligados diretamente ao Banco de Dados (sem usar o Adodc).
 
Tem como.... Já tentei usar a propriedade datasource e datafield mas não consegui.
 
Se alguem puder me ajudar eu agradeço.... Segue abaixo o código de conexão que uso.
 
Public Cn1 As ADODB.Connection
Public Rs1 As ADODB.Recordset
Set Cn1 = New ADODB.Connection
Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Controle.mdb;Jet " & "OLEDB:Database Password=sr4530;"
Set Rs1 = New ADODB.Recordset
Rs1.CursorType = adOpenKeyset
Rs1.LockType = adLockOptimistic
Rs1.ActiveConnection = Cn1
Rs1.Source = "Select * from Internet Where Lançou = False Order by Máquina"
Rs1.Open
 
 
Sergio
     
Snake
Pontos: 2843
ITAJUBÁ
MG - BRASIL
Postada em 22/11/2004 09:30 hs         
após a execução do codigo insira !!!
 
text1.text = rs1![NomeDoCampo]
 
veja se é isso que precisa !!! qualquer coisa post
     
Bicicchi
SOROCABA
SP - BRASIL
Postada em 22/11/2004 09:42 hs            
Snake
 
Obrigado pela ajuda... Mas eu gostaria que o text1.text estivesse ligado ao banco de dados sempre, ou seja, sempre que eu digitar um valor nesse campo ele atualize automaticamente sem eu precisar fazer:
 
text1.text = rs1.fiels(2)
rs1.update
 
Entendeu ?
Tem como eu usar o adodc ? não sei configurar o controle usando o que está no código que mostrei na mensagem anterior ...
     
Bicicchi
SOROCABA
SP - BRASIL
Postada em 22/11/2004 09:43 hs            
Snake
 
Obrigado pela ajuda... Mas eu gostaria que o text1.text estivesse ligado ao banco de dados sempre, ou seja, sempre que eu digitar um valor nesse campo ele atualize automaticamente sem eu precisar fazer:
 
text1.text = rs1.fiels(2)
rs1.update
 
Entendeu ?
Tem como eu usar o adodc ? não sei configurar o controle usando o que está no código que mostrei na mensagem anterior ...
 
Sergio
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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