SINTAX DE COMANDO SQL

USUARIO.EXCLUIDOS 31/08/2007 10:39:04
#233550
Tenta assim:

.CommandText = "INSERT INTO Usuarios " & _
                    "(CodUsuario, NomeUsuario, Logradouro, Cidade, " & _
                    "Estado, CEP,rg,cpf,Dat_CAD,DAT_Nasc, " & _
                    "Natur,Nascional,Sexo,est_civil,comp,bairro,tel_res, " & _
                    "ddd_res,tel_cel,ddd_cel,email) VALUES ('" & _
                    TxtCodUsuario.Text & "','" & _
                    TxtNomeUsuario.Text & "','" & _
                    Txt_Logradouro.Text & "','" & _
                    TxtCidade.Text & "','" & _
                    CboEstado.Text & "','" & _
                    TxtCep.Text & "','" & _
                    Txt_RG.Text & "','" & _
                    Txt_CPF.Text & "',#" & _
                    vDataCadastro & "#,#" & _
                    vDataNascimento & "#,'" & _
                    Txt_Natural.Text & "','" & _
                    Txt_Nacional.Text & "','" & _
                    Cbo_Sexo.Text & "','" & _
                    cbo_EstCivil.Text & "','" & _
                    Txt_Complemento.Text & "','" & _
                    Txt_Bairro.Text & "','" & _
                    Txt_NumRes.Text & "','" & _
                    Txt_DDDRes.Text & "','" & _
                    Txt_NumCel.Text & "','" & _
                    Txt_DDDCel.Text & "','" & Txt_Email & "');"



Se não funcionar, posta aqui pra gente um banco de dados vazio somente com essa tabela que vc está tentando realizar o insert, ou então o Create Table da mesma.
USUARIO.EXCLUIDOS 31/08/2007 10:42:01
#233552
ou tenta assim tbm

VALUES ('" & TxtCodUsuario.Text & "','" & TxtNomeUsuario.Text & "','" & Txt_Logradouro.Text & "','" & TxtCidade.Text & "','" & CboEstado.Text & "','" & TxtCep.Text & "','" & Txt_RG.Text & "','" & Txt_CPF.Text & "'," & vDataCadastro & "," & vDataNascimento & ",'" & Txt_Natural.Text & "','" & Txt_Nacional.Text & "','" & Cbo_Sexo.Text & "','" & cbo_EstCivil.Text & "','" & Txt_Complemento.Text & "','" & Txt_Bairro.Text & "','" & Txt_NumRes.Text & "','" & Txt_DDDRes.Text & "','" & Txt_NumCel.Text & "','" & Txt_DDDCel.Text & "','" & Txt_Email & "')"

Essa so a parte de values....
USUARIO.EXCLUIDOS 31/08/2007 10:42:47
#233553
Manda Imprimir o resultado da query
dai vc cola aqui exatamente o resultado, para analisarmos.

Que Banco de Dados está usando?
Pois dependendo, a maneira de gravar os dados pode ser diferente.

Tipo:
Access vc utiliza #...# para datas

Até mais,
USUARIO.EXCLUIDOS 31/08/2007 10:43:05
#233554
.CommandText = "INSERT INTO Usuarios " & _
"(CodUsuario, NomeUsuario, Logradouro, Cidade, " & _
"Estado, CEP,rg,cpf,Dat_CAD,DAT_Nasc, " & _
"Natur,Nascional,Sexo,est_civil,comp,bairro,tel_res, "& _
"ddd_res,tel_cel,ddd_cel,email) & _
" VALUES ( " & _
"'" & TxtCodUsuario.Text & "'," & _
"'" & TxtNomeUsuario.Text & "'," & _
"'" & Txt_Logradouro.Text & "'," & _
"'" & TxtCidade.Text & "'," & _
"'" & CboEstado.Text & "'," & _
"'" & TxtCep.Text & "'," & _
"'" & Txt_RG.Text & "'," & _
"'" & Txt_CPF.Text & "'," & _
"#" & vDataCadastro & "#," & _
"#" & vDataNascimento & "#," & _
"'" & Txt_Natural.Text & "'," & _
"'" & Txt_Nacional.Text & "'," & _
"'" & Cbo_Sexo.Text & "'," & _
"'" & cbo_EstCivil.Text & "'," & _
"'" & Txt_Complemento.Text & "'," & _
"'" & Txt_Bairro.Text & "'," & _
"'" & Txt_NumRes.Text & "'," & _
"'" & Txt_DDDRes.Text & "'," & _
"'" & Txt_NumCel.Text & "'," & _
"'" & Txt_DDDCel.Text & "'," & _
"'" & Txt_Email & "')"

Cara Onde voce atribui os campos do banco depois Insert into Tabela, veja se estao todos iguais a coluna do banco, quando voce define no banco que o comando é data nao usa aspa simples e sim #, veja se funfa ai cara
abraços
USUARIO.EXCLUIDOS 31/08/2007 10:46:28
#233555
.CommandText = "INSERT INTO Usuarios " & _
"(CodUsuario, NomeUsuario, Logradouro, Cidade, " & _
"Estado, CEP,rg,cpf,Dat_CAD,DAT_Nasc, " & _
"Natur,Nascional,Sexo,est_civil,comp,bairro,tel_res, " & _
"ddd_res,tel_cel,ddd_cel,email) VALUES ('" & _
TxtCodUsuario.Text & "','" & _
TxtNomeUsuario.Text & "','" & _
Txt_Logradouro.Text & "','" & _
TxtCidade.Text & "','" & _
CboEstado.Text & "','" & _
TxtCep.Text & "','" & _
Txt_RG.Text & "','" & _
Txt_CPF.Text & "',#" & _
vDataCadastro & "#,#" & _
vDataNascimento & "#,'" & _
Txt_Natural.Text & "','" & _
Txt_Nacional.Text & "','" & _
Cbo_Sexo.Text & "','" & _
cbo_EstCivil.Text & "','" & _
Txt_Complemento.Text & "','" & _
Txt_Bairro.Text & "','" & _
Txt_NumRes.Text & "','" & _
Txt_DDDRes.Text & "','" & _
Txt_NumCel.Text & "','" & _
Txt_DDDCel.Text & "','" & Txt_Email & "');"
Else
'Alteração:
.CommandText = "UPDATE Usuarios SET " & _
"NomeUsuario = '" & TxtNomeUsuario.Text & "'," & _
"Endereco = '" & TxtEndereco.Text & "'," & _
"Cidade = '" & TxtCidade.Text & "'," & _
"Estado = '" & CboEstado.Text & "'," & _
"CEP = '" & TxtCep.Text & "'," & _
"RG = '" & Txt_RG.Text & "'," & _
"CPF = '" & Txt_CPF.Text & "'," & _
"dat_cad = #" & vDataCadastro & "#, dat_nasc = #" & vDataNascimento & "#," & _
"natur = '" & Txt_Nacional & "', sexo = '" & Cbo_Sexo.Text & "', est_civil = '" & cbo_EstCivil.Text & "'," & _
"comp = '" & Txt_Complemento.Text & "', bairro = '" & Txt_Bairro.Text & "', tel_res = '" & Txt_NumRes.Text & "'," & _
"ddd_res = '" & Txt_DDDRes.Text & "', tel_cel = '" & Txt_NumCel.Text & "', ddd_cel = '" & Txt_DDDCel.Text & "'," & _
"email = '" & Txt_Email & "' WHERE CodUsuario = " & TxtCodUsuario.Text & ";"




esse é o comando todo que eu tenho que dar ele ele nao da insert e nem update alguem pode me ajudar!!!!
USUARIO.EXCLUIDOS 31/08/2007 10:48:48
#233557
eu to usando acess!
grande abraço
USUARIO.EXCLUIDOS 31/08/2007 10:52:41
#233560
Usa esse aki par ao insert
VALUES ('" & TxtCodUsuario.Text & "','" & TxtNomeUsuario.Text & "','" & Txt_Logradouro.Text & "','" & TxtCidade.Text & "','" & CboEstado.Text & "','" & TxtCep.Text & "','" & Txt_RG.Text & "','" & Txt_CPF.Text & "'," & vDataCadastro & "," & vDataNascimento & ",'" & Txt_Natural.Text & "','" & Txt_Nacional.Text & "','" & Cbo_Sexo.Text & "','" & cbo_EstCivil.Text & "','" & Txt_Complemento.Text & "','" & Txt_Bairro.Text & "','" & Txt_NumRes.Text & "','" & Txt_DDDRes.Text & "','" & Txt_NumCel.Text & "','" & Txt_DDDCel.Text & "','" & Txt_Email & "')"

Manda pra gente essa string com os dados que esle está trazendo manda printar a sql com os dados
USUARIO.EXCLUIDOS 31/08/2007 10:55:21
#233561
nao entendi sobre o print
grande abraços!
USUARIO.EXCLUIDOS 31/08/2007 10:57:20
#233563
FAz assim, acrescenta isso ele vai dar o msgbox...printa ele e coloca aki para ver oq ele esta trazendo

msgbox("INSERT INTO Usuarios " & _
"(CodUsuario, NomeUsuario, Logradouro, Cidade, " & _
"Estado, CEP,rg,cpf,Dat_CAD,DAT_Nasc, " & _
"Natur,Nascional,Sexo,est_civil,comp,bairro,tel_res, " & _
"ddd_res,tel_cel,ddd_cel,email) VALUES ('" & TxtCodUsuario.Text & "','" & TxtNomeUsuario.Text & "','" & Txt_Logradouro.Text & "','" & TxtCidade.Text & "','" & CboEstado.Text & "','" & TxtCep.Text & "','" & Txt_RG.Text & "','" & Txt_CPF.Text & "'," & vDataCadastro & "," & vDataNascimento & ",'" & Txt_Natural.Text & "','" & Txt_Nacional.Text & "','" & Cbo_Sexo.Text & "','" & cbo_EstCivil.Text & "','" & Txt_Complemento.Text & "','" & Txt_Bairro.Text & "','" & Txt_NumRes.Text & "','" & Txt_DDDRes.Text & "','" & Txt_NumCel.Text & "','" & Txt_DDDCel.Text & "','" & Txt_Email & "')")
USUARIO.EXCLUIDOS 31/08/2007 11:01:24
#233564
ta ai tela abs!
Página 2 de 4 [33 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar