Postada em 20/10/2008 10:40 hs
Por favor amigo, já tentei e não consegui resolver o problema.
VB6 – o código não funciona, já fiz de outra forma dá o erro "too many line continuations" apenas inclui 23 campos.
'Inclusao:
vSQL = "INSERT INTO CadDados (Pront, Processo, Sit, Sexo, EstCi, Nome, DTNasc, Classe, Pai, " & _
"Mae, Endereco, Bairro, Cidade, UF, Cep, fone, Fone1, Depto, Divisao, " & _
"Fixa, Incar, Alteracao, Pis, Cic, Cnh, Cat, Ra, Tie, Sec, Zon, ObsProc, RG) VALUES ('"
vSQL = vSQL & Trim(txtPront.Text) & "','"
vSQL = vSQL & Trim(txtProcesso.Text) & "','"
vSQL = vSQL & Trim(txtSit.Text) & "','"
vSQL = vSQL & Trim(txtSexo.Text) & "','"
vSQL = vSQL & Trim(txtEstCi.Text) & "','"
vSQL = vSQL & Trim(txtNome.Text) & "','"
vSQL = vSQL & Trim(txtDTNasc.Text) & "','"
vSQL = vSQL & Trim(txtClasse.Text) & "','"
vSQL = vSQL & Trim(txtPai.Text) & "','"
vSQL = vSQL & Trim(txtMae.Text) & "','"
vSQL = vSQL & Trim(txtEndereco.Text) & "','"
vSQL = vSQL & Trim(txtBairro.Text) & "','"
vSQL = vSQL & Trim(txtCidade.Text) & "','"
vSQL = vSQL & Trim(txtUF.Text) & "','"
vSQL = vSQL & Trim(txtCep.Text) & "','"
vSQL = vSQL & Trim(txtfone.Text) & "','"
vSQL = vSQL & Trim(txtFone1.Text) & "','"
vSQL = vSQL & Trim(txtDepto.Text) & "','"
vSQL = vSQL & Trim(txtDivisao.Text) & "','"
vSQL = vSQL & Trim(txtFixa.Text) & "','"
vSQL = vSQL & Trim(txtDTIncar.Text) & "','"
vSQL = vSQL & Trim(txtAlteracao.Text) & "','"
vSQL = vSQL & Trim(txtPis.Text) & "','"
vSQL = vSQL & Trim(txtCic.Text) & "','"
vSQL = vSQL & Trim(txtCnh.Text) & "','"
vSQL = vSQL & Trim(txtCat.Text) & "','"
vSQL = vSQL & Trim(txtRa.Text) & "','"
vSQL = vSQL & Trim(txtTie.Text) & "','"
vSQL = vSQL & Trim(txtSec.Text) & "','"
vSQL = vSQL & Trim(txtZon.Text) & "','"
vSQL = vSQL & Trim(txtObsProc.Text) & "','"
vSQL = vSQL & Trim(txtRG.Text) & "')"
Else
'Alteração:
vSQL = "UPDATE CadDados (Pront, Processo, Sit, Sexo, EstCi, Nome, DTNasc, Classe, Pai, " & _
"Mae, Endereco, Bairro, Cidade, UF, Cep, fone, Fone1, Depto, Divisao, " & _
"Fixa, Incar, Alteracao, Pis, Cic, Cnh, Cat, Ra, Tie, Sec, Zon, ObsProc, RG) VALUES ('"
vSQL = vSQL & Trim(txtPront.Text) & "','"
vSQL = vSQL & Trim(txtProcesso.Text) & "','"
vSQL = vSQL & Trim(txtSit.Text) & "','"
vSQL = vSQL & Trim(txtSexo.Text) & "','"
vSQL = vSQL & Trim(txtEstCi.Text) & "','"
vSQL = vSQL & Trim(txtNome.Text) & "','"
vSQL = vSQL & Trim(txtDTNasc.Text) & "','"
vSQL = vSQL & Trim(txtClasse.Text) & "','"
vSQL = vSQL & Trim(txtPai.Text) & "','"
vSQL = vSQL & Trim(txtMae.Text) & "','"
vSQL = vSQL & Trim(txtEndereco.Text) & "','"
vSQL = vSQL & Trim(txtBairro.Text) & "','"
vSQL = vSQL & Trim(txtCidade.Text) & "','"
vSQL = vSQL & Trim(txtUF.Text) & "','"
vSQL = vSQL & Trim(txtCep.Text) & "','"
vSQL = vSQL & Trim(txtfone.Text) & "','"
vSQL = vSQL & Trim(txtFone1.Text) & "','"
vSQL = vSQL & Trim(txtDepto.Text) & "','"
vSQL = vSQL & Trim(txtDivisao.Text) & "','"
vSQL = vSQL & Trim(txtFixa.Text) & "','"
vSQL = vSQL & Trim(txtDTIncar.Text) & "','"
vSQL = vSQL & Trim(txtAlteracao.Text) & "','"
vSQL = vSQL & Trim(txtPis.Text) & "','"
vSQL = vSQL & Trim(txtCic.Text) & "','"
vSQL = vSQL & Trim(txtCnh.Text) & "','"
vSQL = vSQL & Trim(txtCat.Text) & "','"
vSQL = vSQL & Trim(txtRa.Text) & "','"
vSQL = vSQL & Trim(txtTie.Text) & "','"
vSQL = vSQL & Trim(txtSec.Text) & "','"
vSQL = vSQL & Trim(txtZon.Text) & "','"
vSQL = vSQL & Trim(txtObsProc.Text) & "','"
vSQL = vSQL & Trim(txtRG.Text) & "')"
End If
With cnnComando
.ActiveConnection = cnnCadPol
.CommandType = adCmdText
.CommandText = vSQL
.Execute
End With
|
