ERRO EM SQL

JPAULO101 20/10/2011 13:02:31
#387176
Olá pessoal, estou tentanto incluir os registro com as sequinte estrutura sql, mais está dando o seguinte erro. Alguém poderia mim ajudar.

Agradeço


Private Sub cmdGravar_Click()

Dim sSQL As String
On Error GoTo erro

If Trim(atxtNome) = [Ô][Ô] Or Trim(atxtPlaca) = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos para inclusão do equipamento.[Ô], vbExclamation, [Ô]Campo vazio[Ô]
atxtNome.SetFocus
Exit Sub
End If

sSQL = [Ô]INSERT INTO TBLFROTA VALUES([Ô]
sSQL = sSQL & atxtId.Text & [Ô],[ô][Ô]
sSQL = sSQL & atxtNome.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtNumero.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCidade.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtPlaca.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCpf.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCnh.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtMod.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAno.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAnoFab.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & IIf(atxtCont.Text = [Ô][Ô], [Ô]Null)[Ô], [Ô]#[Ô] & Format(atxtCont.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô])

con.BeginTrans
con.Execute sSQL
con.CommitTrans

MsgBox [Ô]Registro incluso com sucesso![Ô], vbInformation, [Ô]Cadastro de Motocicletas[Ô]

Exit Sub
erro:
con.RollbackTrans
MsgBox [Ô]Ocorreu um erro ao gravar o cadastro[Ô] & vbCrLf & Err.Description, vbExclamation, [Ô]Erro[Ô]

End Sub
ALVAROVB2009 20/10/2011 14:35:04
#387188
No lugar do # coloca aspas simples [ô] e troca a / por - ex:

[ô][Ô] & Format(atxtCont.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô]
MARCELO.TREZE 20/10/2011 14:50:18
#387192 Resposta escolhida
seu banco é access
MARCELO.TREZE 20/10/2011 14:56:36
#387195
olha ta faltando o nome dos campos, coloque-os com a alteração abaixo

sSQL = [Ô]INSERT INTO TBLFROTA([txt-color=#e80000]campo1,campo2,campo3[/txt-color]...) VALUES ([Ô]
sSQL = sSQL & atxtId.Text & [Ô],[ô][Ô]
sSQL = sSQL & atxtNome.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtNumero.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCidade.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtPlaca.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCpf.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCnh.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtMod.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAno.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAnoFab.Text & [Ô][ô],[Ô]
sSQL = sSQL & IIf(atxtCont.Text = [Ô][Ô], [Ô]Null[Ô], [Ô]#[Ô] & Format(atxtCont.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]) & [Ô])[Ô]
JPAULO101 20/10/2011 15:40:08
#387206
o banco e Access, com a seguinte estrutura.
JPAULO101 20/10/2011 16:05:42
#387214
Fiz as alterações do Marrcelo, mais agora mostra esse erro.

Outra coisa, como faço para acrescentar os campo do tipo Objeto Ole, na sql.
MARCELO.TREZE 20/10/2011 16:26:34
#387223
posta o código com a alteração, para analizarmos
JPAULO101 20/10/2011 17:36:30
#387243
[txt-size=5][txt-size=2]Marcelo, ficou assim.[/txt-size][/txt-size] sSQL = [Ô]INSERT INTO TBLFROTA(Id,Nome,Endereco,Numero,Cidade,Placa,Cpf,Cnh,Modelo,AnoMod,DataContrato) VALUES([Ô]
sSQL = sSQL & atxtId.Text & [Ô],[ô][Ô]
sSQL = sSQL & atxtNome.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtNumero.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCidade.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtPlaca.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCpf.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCnh.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtMod.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAno.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAnoFab.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & IIf(atxtCont.Text = [Ô][Ô], [Ô]Null)[Ô], [Ô]#[Ô] & Format(atxtCont.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô])

con.BeginTrans
con.Execute sSQL
con.CommitTrans
MARCELO.TREZE 20/10/2011 18:49:44
#387257
colega vc deve presta muita atenção quando escrever codigos longos

veja o erro

sSQL = [Ô]INSERT INTO TBLFROTA(Id,Nome,Endereco,Numero,Cidade,Placa,Cpf,Cnh,Modelo,AnoMod,DataContrato) VALUES([Ô]
sSQL = sSQL & atxtId.Text & [Ô],[ô][Ô]
sSQL = sSQL & atxtNome.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtNumero.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCidade.Text & [Ô][ô],[ô][Ô]
[txt-color=#e80000]sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô][/txt-color] [txt-color=#007100][ô] ta sobrando aqui[/txt-color]
sSQL = sSQL & atxtPlaca.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCpf.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtCnh.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtMod.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAno.Text & [Ô][ô],[ô][Ô]
sSQL = sSQL & atxtAnoFab.Text & [Ô][ô],[txt-color=#e80000] [ô] [/txt-color][ô][Ô] [txt-color=#007100][ô] esta aspa simples não é para ficar ai[/txt-color]
sSQL = sSQL & IIf(atxtCont.Text = [Ô][Ô], [Ô]Null)[Ô], [Ô]#[Ô] & Format(atxtCont.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô][txt-color=#e80000])[/txt-color]

con.BeginTrans
con.Execute sSQL
con.CommitTrans

vamos a correção veja

sSQL = [Ô]INSERT INTO TBLFROTA(Id,Nome,Endereco,Numero,Cidade,Placa,Cpf,Cnh,Modelo,AnoMod,DataContrato) VALUES([Ô]
    sSQL = sSQL & atxtId.Text & [Ô],[ô][Ô]
    sSQL = sSQL & atxtNome.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtEnd.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtNumero.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtCidade.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtPlaca.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtCpf.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtCnh.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtMod.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtAno.Text & [Ô][ô],[ô][Ô]
    sSQL = sSQL & atxtAnoFab.Text & [Ô][ô],[Ô]
    sSQL = sSQL & IIf(atxtCont.Text = [Ô][Ô], [Ô]Null[Ô], [Ô]#[Ô] & Format(atxtCont.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]) & [Ô])[Ô]


      
    con.BeginTrans
    con.Execute sSQL
    con.CommitTrans
JPAULO101 20/10/2011 19:51:03
#387265
Grande Marcelo, Obrigado deu certinho, mais uma pequeno ajuda, tenho dois campos do tipo Objeto OLE Foto1 e Foto2, onde fai ser gravadas duas imagem da moto. Como Poderia acrescentar na estrução sql acima.

Fico Grato.
MARCELO.TREZE 20/10/2011 20:22:21
#387268
vc quer uma opinião não salve as imgens no banco de dados crie uma pasta para as mesmas e salve apenas o caminho

exemplo:
crie um compo do tipo texto de nome foto

nele salve o caminho em que a imagem se encontra c:\arquivo de programas\seu programa\imagem1.jpg

para carrega na picture seria assim

Picture1.Picture = LoadPicture(RS!foto1)
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar