alam
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 20/10/2008 11:33 hs
Amigo Ash,
Já tentei mudar de varias forma o código, e não deu certo.
Quando digitei assim:
vSQL = "UPDATE CadDados SET Pront = '" & txtPront.Text & _
"', Processo = '" & txtProcesso.Text & _
"', Sit = '" & txtSit.Text & _
"', Sexo = '" & txtSexo.Text & _
"', EstCi = '" & txtEstCi.Text & _
"', Nome = '" & txtNome.Text & _
"', DTNasc = '" & txtDTNasc.Text & _
"', Classe = '" & txtClasse.Text & _
"', Pai = '" & txtPai.Text & _
"', Mae = '" & txtMae.Text & _
"', Endereco = '" & txtEndereco.Text & _
"', Bairro = '" & txtBairro.Text & _
"', Cidade = '" & txtCidade.Text & _
"', UF = '" & txtUF.Text & _
"', Cep = '" & txtCep.Text & _
"', fone = '" & txtfone.Text & _
"', fone1 = '" & txtFone1.Text & _
"', Depto = '" & txtDepto.Text & _
"', Designa = '" & txtDivisao.Text & _
"', Fixa = '" & txtFixa.Text & _
"', Incar = '" & txtDTIncar.Text & _
"', Alteracao = '" & txtAlteracao.Text & _
"', Pis = '" & txtPis.Text & _
"', CIC = '" & txtCic.Text & _
"', Cnh = '" & txtCnh.Text &
"', Cat = '" & txtCat.Text & (aqui. não permite a inclusão a partir desse ponto de nenhuma outra linha)
"', Ra = '" & txtRa.Text & _
"', Tie = '" & txtTie.Text & _
"', Sec = '" & txtSec.Text & _
"', Zon = '" & txtZon.Text & _
"', ObsProc = '" & txtObsProc.Text & _
"', RG = '" & txtRG.Text & "';
"Deu certo até o 26º campo, não permitiu a inclusão dos demais
|
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 20/10/2008 12:19 hs
Na linha
"', Cnh = '" & txtCnh.Text &
Está faltando o underline. Poderia ser isso?
Ps: o Access tem uma limitação de só se poder dar uptade de no máximo 40 campos ao mesmo tempo, mas esse não é o teu caso.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 20/10/2008 12:49 hs
Não é possível coloca-lo. Dá o erro exatamente ao tentar inseri-lo.
|
|
|
|
|
|
Postada em 20/10/2008 13:24 hs
Cara, descobri o erro. O Vb possui um número máximo de concatenação de strings. Para "burlá-lo", vc pode fazer assim:
[Depois das 26 anteriores...]
vSQL = vSQL & "', Cat = '" & txtCat.Text & _
"', Ra = '" & txtRa.Text & _
"', Tie = '" & txtTie.Text & _
"', Sec = '" & txtSec.Text & _
"', Zon = '" & txtZon.Text & _
"', ObsProc = '" & txtObsProc.Text & _
"', RG = '" & txtRG.Text & "'
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
TÓPICO EDITADO
|
|
|
|
alam
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 20/10/2008 23:15 hs
Desculpe pela demora em responder. Tive de sair.
Valeu, pela ajuda. Assim deu certo. Obrigado.
|
|
|
|
|
|
Postada em 26/06/2010 23:58 hs
Cara eu to com um erro parecido..
usando parametros.. porem em VB 6 na parte do..
Dim Num As Integer
'Num recebeu o campo Código
.CommandText = UPDATE TABELA set Código = ?, Data = ?, Valor = ? Where Num = " & Text1
(até ai tudo bem..depois a criação dos parametros)
.Parameters.Append .CreateParameter("Código"), adInteger, asParamInput, 6)
.Parameters.Append .CreateParameter("Data"), adDate, asParamInput)
.Parameters.Append .CreateParameter("Valor"), adCurrency, asParamInput) <- Acho que o erro ta nesses parametros pq tenho q deixar igual o bd (Access) e em alguns campos eu nao defini maxlength, deixei Automatico.
.Parameters("Código") = Num
.Parameters("Data") = Date
.Parameters("Código") = LTotal.Caption ' O valor consta em um label.
.Execute
Entao, nisso me vem o erro e tenho 1 dia para terminar tudo.
Se alguem ler isso agora e souber... eu agradeço a ajuda.
|
|
|
|
|
