ola
Tenho esta função abaixo num form vb6 com banco de dados access 2003
quando digito no text1.text uma data exemplo: "13/10/2006",ou "25/12/2006" etc
a instrução sql copia normalmente para a tblpesquisa, mas quando insiro uma data exemplo:
"01/12/2006" ou "12/01/2006" ou seja, qualquer dia ou mes que vá de 0 a 9 ele não copia
já formatei o txt1.text como data "dd/mm/yyyy" e "d/m/yyyy" e nenhum dos casos adiantou.
a tabela tambem esta formatada como data "dd/mm/yyyy". O que há de errado?
desde já agradeço a colaboração.
luiz

 

 

 

Option Explicit
Public con As ADODB.Connection
Public rs As ADODB.Recordset
-----------------------------------------------------------------------------------------

Private Sub CmdOk_Click()
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

rs.Open "insert into tblPesquisa SELECT * FROM tblRelatorio WHERE dtparc1 = #" & Text1.Text & "#", con, adOpenStatic, adLockOptimistic
End Sub

tente isso:

rs.Open "insert into tblPesquisa SELECT * FROM tblRelatorio WHERE dtparc1 = '" & Text1.Text & "'", con, adOpenStatic, adLockOptimistic

Toda instrução sql a data deve ser passada no sistema americano ou seja (mm/dd/yyyy), é esse o seu problema, fomata ela nesse padrão que voce não terá problemas

 

valeu Alexandre! caiu como uma luva...agora só mais uma questão: como faço para que quando a instrução copiar para a outra tabela ,ela me dê uma mensagem dizendo quantos registros foram salvos? obrigado

 

luiz