ERRO AO SALVAR NO ARQUIV SQL

ELMO01 22/02/2010 15:52:47
#335043
Boa tarede pessoal,

No meu aplicativo, está dando o seguinte erro:

Run Time erro: -2147217900

Bem este erro apareçe quando tento gravar uma campo data no meu arquivo. A instrução para gravar é assim:

Private Sub Cmd_Grava_Click()
Dim CCampos, CValores, aSQL As String

CCampos = [Ô]CODMAT_ASS,NOMASS_ASS,NUMCAR_ASS,CATASS_ASS,DATADM_ASS,[Ô]
CCampos = CCampos & [Ô]USER_NAME,USER_DATE,USER_TIME,USER_WORK,USER_NODE,USER_TRAV[Ô]

CValores = CValores & [Ô][ô][Ô] & Txt_CodAss.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_Associ.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_NumCar.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Trim(Txt_CatAss.Text) & [Ô][ô],[Ô]
CValores = CValores & [Ô]#[Ô] & Format(Msk_DtAdm.Text, [Ô]dd/mm/yyyy[Ô]) & [Ô]#,[Ô] -> o começa se nesta linha
CValores = CValores & [Ô][ô][Ô] & Usuario & [Ô][ô],[Ô]
CValores = CValores & [Ô]#[Ô] & Format(Date, [Ô]dd/mm/yyyy[Ô]) & [Ô]#,[Ô]
CValores = CValores & [Ô]#[Ô] & Format(Time, [Ô]hh:mm:ss[Ô]) & [Ô]#,[Ô]
CValores = CValores & [Ô][ô][Ô] & [Ô]INCLUSÃO[Ô] & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & NewUser & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Usuario & [Ô][ô][Ô]

aSQL = [Ô]INSERT INTO AQ_ASS01([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]

Debug.Print CValores

Conexao01.Execute aSQL
End Sub
No Degub fica assim:

[ô]001743-00A[ô],[ô]ELMO[ô],[ô]1067339003[ô],[ô]CONTRIBUINTE - TITULAR[ô],#22/02/2010#,[ô]Elmo[ô],#22/02/2010#,#14:29:11#,[ô]INCLUSÃO[ô],[ô]Elmo[ô],[ô]Elmo[ô]

O que estou fazendo de errado nestes comandos para dar este erro, ou estou fazendo tudo erado.

Obrigado,
MARCELO.TREZE 22/02/2010 16:29:08
#335048
qual é o banco de dados

se for ACCESS é assim

CValores = CValores & [Ô]#[Ô] & Format(Msk_DtAdm.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#,[Ô] 
CValores = CValores & [Ô][ô][Ô] & Usuario & [Ô][ô],[Ô]
CValores = CValores & [Ô]#[Ô] & Format(Date, [Ô]mm/dd/yyyy[Ô]) & [Ô]#,[Ô]
CValores = CValores & [Ô]#[Ô] & Format(Time, [Ô]hh:nn:ss[Ô]) & [Ô]#,[Ô]


se for MYSQL ou SQLServer

CValores = CValores & [Ô][ô][Ô] & Format(Msk_DtAdm.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Usuario & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Format(Date, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Format(Time, [Ô]hh:nn:ss[Ô]) & [Ô][ô],[Ô]


boa sorte
ELMO01 22/02/2010 18:00:49
#335067
MARCELO VALEU - DEU CERTO

OBRIGADO
ELMO01 22/02/2010 18:03:37
#335068
Agora como faço para salvar neste arquivo uma vairável data em branco??
RCMRO 22/02/2010 18:29:32
#335073 Resposta escolhida
Ex.:
[ô]001743-00A[ô],[ô]ELMO[ô],[ô]1067339003[ô],[ô]CONTRIBUINTE - TITULAR[ô],#22/02/2010#,[ô]Elmo[ô],NULL,#14:29:11#,[ô]INCLUSÃO[ô],[ô]Elmo[ô],[ô]Elmo[ô]
Tópico encerrado , respostas não são mais permitidas
Voltar