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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ##ENVIAR RESPOSTA P/ UMA CONSULTA DO ACCESS VIA VB
Dário Cardoso
não registrado
Postada em 13/09/2006 12:32 hs   
Daniel.....
Tem um exemplo disso ai  cara! estou usando DAO
Meu BD tem o nome: Cadastro
E a TAB tem o nome: Membros
SAIBA MELHOR: Primeiramente tenho um FORM cadastro de membros (o soft é de igreja) onde se cadastra os dados dos membros, no campo Data de nascimento coloquei 2 textbox e 1 combo para o usuario especificar qual mes no combo e digitar o dia e o ano nos texts, dai apartir disso eu tenho o mes no campo C3_mes da tabela Membros que é onde gravo o tal mes.....
Com a consulta access nesse campo C3_mes eu coloco [Qual mes?] dai o access pergunta..... o resto vc ja sabe....... QUERO RESPONDER A CONSULTA SEM NECESSIDADE DE DIGITAR O MES!
 
SE CASO VC TEM UMA OUTRA IDEIA ME DE UMA LUZ!!!!
 
MUITO GRATOEmoções
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/09/2006 13:22 hs            
No Access:
1) crie a Tabela Temp - com o Campo1 (deverá ser do mesmo tipo do "mes" da Tabela Cadastro)
2) Abra a consulta que voce já tem e adcione a tabela Temp
3) Cilck no campo1 da tabela Temp e arraste até o campo mes da Tabela Cadastro

No VB:
Nas Declarações Gerais do Formulário:
    Dim Wk As Workspace
    Dim Base as Database
    Set Wk = DBEngine.Workspaces(0)
    Set Base = Wk.OpenDatabase("Cadastro")
   
No evento do Visualizar Relatório
    Base.Execute"DELETE Temp.* FROM Temp;
    Dim Temp as Recorset
    Set Temp=Base.OpenRecordset("Temp")
    Temp.AddNew
    Temp("Campo1")=Text1.text (Campo que irá receber o mes noseu formulário)
    Temp.Update
Daqui pra frente é igual ao que voce faz
qq coisa é só postar

dsmn
   
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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