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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  instrução sql
luiz
não registrado
Postada em 23/03/2006 09:40 hs   

ola

Tenho em um banco de dados access 2003 a seguinte tabela (tblRelatorio):

 

Cli         P1     |     P2     |    P3    |     P4   |    P5  |   P6   |    P7  |    P8  |    P9  |     P10  |   P11  |   P12

_________________________________________________________________________

joão      01/10 |               |            |            |          |           |          |          |          |              |           |

__________________________________________________________________________

pedro              |               |            |             |         |            |         |           |          |             |           |

_____________01/10___________________________________________________________

paulo              |               |            |             |         |             |         |          |           |            |           |

____________________01/10____________________________________________________

andré              |               |            |             |          |            |          |          |          |             |          |

______________________________________________________________01/10____________

maria              |               |            |             |          |            |          |          |          |             |          |

_________________________________________________   01/10_________________________

 

Este é um exemplo, os dados em branco dos campos “p” estão preenchidos com outras datas

o formato das datas é “dd/mm/yyyy”

 

No Form do Vb6 eu tenho um textbox “text1” e um botão command1

No modulo1 eu tenho as seguintes instruções:

---------------------------------------------------------------------------------------------------------------

Option Explicit

Public con As ADODB.Connection

Public rs As ADODB.Recordset

-----------------------------------------------------------------------------------------------------------------

Sub connect()

Set con = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

con.Open "Provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "dktel.mdb"

rs.CursorLocation = adUseClient

End Sub

 

A questão é a seguinte: Quando eu digitasse no textbox a data da tabela acima, todos estes registros

com esta data fossem salvos em outra tabela “tblpesquisa”.

Existe alguma instrução sql que faça isso? ou será necessário outro método?

agradeço a colaboração

luiz

     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 23/03/2006 11:14 hs         
não seria apenas realizar uma operação sql de inclusão no procedimento textbox_lostfocus ou textbox_click, ou outro de sua preferência ?
 

http://www.vilmarbro.com.br
     
luiz
não registrado
Postada em 23/03/2006 11:49 hs   
Desculpe a minha inexperiencia mas, como seria esta consulta?
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 23/03/2006 12:06 hs            
insert into tabelaDestino (campo1,campo2,campo3,....)  select campo1,campo2,campo3 from tabelaOrigem
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 23/03/2006 12:08 hs            
ficou faltando:
 
insert into tabelaDestino (campo1,campo2,campo3,....)  select campo1,campo2,campo3 from tabelaOrigem where dataTabelaOrigem = me.txtData
     
luiz
não registrado
Postada em 23/03/2006 12:36 hs   
Desculpe, mas não consegui
abaixo eu tenho uma instrução que funciona, mas só pega o valor no campo dtparc1:
rs.Open "insert into tblPesquisa SELECT * FROM tblRelatorio where dtparc1 = '" & Text1.Text & "'", con, adOpenStatic, adLockOptimistic
o que eu gostaria é que esta função pegasse o mesmo  valor nos 12 campos (dtparc1,dtparc2,...) e salvasse na tabela
tblpesquisa
espero ter explicado
     
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