ERRO EM INSTRUCAO INSERT

ADRIANOM 03/01/2011 17:10:28
#360978
Alguém por gentileza, pode me dizer onde está o erro?
O VB, assinala como erro onde a seta está mostrando...
  
With ConConexao
        .ActiveConnection = CONEXAO
        .CommandType = adCmdText
        .CommandText = [Ô]INSERT INTO FUNCIONARIOS(CODIGO,INCLUSAO,ALTERACAO,USUARIO,NOME,SEXO,NASCIMENTO,RG,CPF,ENDERECO,NUMERO,BAIRRO,CIDADE,CEP,UF,TEL,CEL,FUNCAO,SALARIO,COMISSIONADO,CARTRAB,ADIMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)VALUE([ô][Ô] & Format(txtInclusao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[ô][Ô] & txtUsuario.Text & [Ô][ô],[ô][Ô] & txtNome.Text & [Ô][ô],[ô][Ô] & txtSexo.Text & [Ô][ô],[ô][Ô] & Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[ô][Ô] & TXTrg.Text & [Ô][ô],[ô][Ô] & txtCPF.Text & [Ô][ô],[ô][Ô] & cmbEndereco.Text & [Ô][ô],[ô][Ô] & txtNumero.Text & [Ô][ô],[ô][Ô] & cmbBairro.Text & [Ô][ô],[ô][Ô] & cmbCidade.Text & [Ô][ô],[ô][Ô] & txtCEP.Text & [Ô][ô],[ô][Ô] & txtUF.Text & [Ô][ô],[ô][Ô] & txtTel.Text & [Ô][ô],[ô][Ô] & txtCel.Text & [Ô][ô],[ô][Ô] & cmbFuncao.Text & [Ô][ô],[ô][Ô] & CCur(txtSalario.Text) & [Ô][ô],[ô][Ô] & txtCom.Text & [Ô][ô],[ô][Ô] & txtTrab.Text & [Ô][ô],[ô][Ô] & Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[ô][Ô] & Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[ô][Ô] & txtMotivo.Text & [Ô][ô],[ô][Ô] & txtOBS.Text & [Ô][ô])[Ô]
        .Execute
End With


Já tentei de tudo (do pouco conhecimento em firebird que possuo).!!!
Fico grato com a ajuda de vocês.!!!
MARCELO.TREZE 03/01/2011 17:31:07
#360982 Resposta escolhida
bom eu dei uma organizada na query para tentar ajudar.

Dm sSQL As String

sSQL = sSQL & [Ô][Ô]
sSQL = sSQL & [Ô]INSERT INTO FUNCIONARIOS([Ô]
sSQL = sSQL & [Ô]CODIGO,INCLUSAO,ALTERACAO,USUARIO,NOME,[Ô]
sSQL = sSQL & [Ô]SEXO,NASCIMENTO,RG,CPF,ENDERECO,[Ô]
sSQL = sSQL & [Ô]NUMERO,BAIRRO,CIDADE,CEP,UF,[Ô]
sSQL = sSQL & [Ô]TEL,CEL,FUNCAO,SALARIO,COMISSIONADO,[Ô]
sSQL = sSQL & [Ô]CARTRAB,ADIMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)[Ô]
sSQL = sSQL & [Ô]VALUES([Ô]
sSQL = sSQL & [Ô][Ô] & txtCódigo.Text & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtInclusao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtUsuario.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSexo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & TXTrg.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCPF.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & cmbEndereco.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNumero.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & cmbBairro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & cmbCidade.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCEP.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtUF.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTel.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCel.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & cmbFuncao.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CCur(txtSalario.Text) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCom.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTrab.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtMotivo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtOBS.Text & [Ô][ô])[Ô]

With ConConexao
        .ActiveConnection = CONEXAO
        .CommandType = adCmdText
        .CommandText = sSQL
        .Execute
End With


veja onde está a seta deveria haver alguma string ou textbox indicando o código, pois é com ele que vc inicia o insert into. (CODIGO,INCLUSAO....

não tenho certeza mas acredito que todos os campos inclusive os de data são tipo texto, estou certo?
LLAIA 03/01/2011 19:51:37
#360993
o seu erro deve está aqui:

sSQL = sSQL & [Ô]CARTRAB,ADIMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)[Ô]
sSQL = sSQL & [Ô]VALUE([Ô]

o certo é [txt-color=#0000f0]VALUES[/txt-color]
ADRIANOM 03/01/2011 22:44:42
#361011
Senhor Marcelo-treze... Mais uma vez vc me quebrando o galho ein!!!
Só que está salvando apenas se preencher tudo... quando deixo alguns campos que podem ficar vazios, o vb me retorna com o erro...
Tentei usar a função NULL, mas não sei se é isto que me gera o prob.

ae veja se estou caducando de novo... ou me diga como faço...

Citação:



Private Sub Salvar()
[ô]VERIFICA OS CAMPOS DE PREENCHIMENTO OBRIGATÓRIO

If txtNome.Text = [Ô][Ô] Then GoTo erro
If cmbEndereco.Text = [Ô][Ô] Then GoTo erro
If txtNumero.Text = [Ô][Ô] Then GoTo erro
If cmbBairro.Text = [Ô][Ô] Then GoTo erro
If cmbCidade.Text = [Ô][Ô] Then GoTo erro
If txtUF.Text = [Ô]__[Ô] Then GoTo erro
If cmbFuncao.Text = [Ô][Ô] Then GoTo erro
If txtSalario.Text = [Ô][Ô] Then GoTo erro

Ssql = Ssql & [Ô][Ô]
Ssql = Ssql & [Ô]INSERT INTO FUNCIONARIOS([Ô]
Ssql = Ssql & [Ô]CODIGO,INCLUSAO,ALTERACAO,USUARIO,NOME,[Ô]
Ssql = Ssql & [Ô]SEXO,NASCIMENTO,RG,CPF,ENDERECO,[Ô]
Ssql = Ssql & [Ô]NUMERO,BAIRRO,CIDADE,CEP,UF,[Ô]
Ssql = Ssql & [Ô]TEL,CEL,FUNCAO,SALARIO,COMISSIONADO,[Ô]
Ssql = Ssql & [Ô]CARTRAB,ADMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)[Ô]
Ssql = Ssql & [Ô]VALUES([Ô]
Ssql = Ssql & [Ô][Ô] & txtCodigo.Text & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtInclusao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtUsuario.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtSexo.Text = [Ô]_[Ô], Null, txtSexo.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtNasc.Text = [Ô]__/__/____[Ô], Null, Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TXTrg.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtCPF.Text = [Ô]___.___.___-__[Ô], Null, txtCPF.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbEndereco.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtNumero.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbBairro.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbCidade.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtCEP.Text = [Ô]_____-___[Ô], Null, txtCEP.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtUF.Text = [Ô]__[Ô], Null, txtUF.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtTel.Text = [Ô](__)____-____[Ô], Null, txtTel.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtCel.Text = [Ô](__)____-____[Ô], Null, txtCel.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbFuncao.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtSalario.Text = [Ô][Ô], Null, CCur(txtSalario.Text)) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtCom.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtTrab.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtAdmissao.Text = [Ô]__/__/____[Ô], Null, Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtDemissao.Text = [Ô]__/__/____[Ô], Null, Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtMotivo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtOBS.Text & [Ô][ô])[Ô]

With ConConexao
.ActiveConnection = CONEXAO
.CommandType = adCmdText
.CommandText = Ssql
.Execute
End With

[ô]Altera o campo seqlogin
Set RSSEQ = New ADODB.Recordset
RSSEQ.Open [Ô]SELECT * FROM SEQ[Ô], CNN, adOpenStatic, adLockOptimistic
SQL = [Ô]UPDATE SEQ Set SEQFUNC=[ô][Ô] & txtCodigo & [Ô][ô][Ô]
CNN.Execute SQL

Unload Me
frmFuncionarios.Show

Exit Sub

erro:
MsgBox [Ô]Favor preencher os campos obrigatórios: Nome, Admissão, Endereço, Número/Complemento, Bairro, Cidade, UF, Função e/ou Salário.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
End Sub



Só salva se preencher tudo!!! aff
Me ajudem novamente!?
ADRIANOM 04/01/2011 09:18:46
#361037
Alguém ???
FIANNA18 04/01/2011 09:37:58
#361040
Adriano, cara não é o vb que está dando esse erro... é o SQL ou o banco que vc está trabalhando...
Normalmente quando vc não passa valor algum para um numero tem alterar o espaço em branco para NULL...
Faz um IF ai para os números que quando vb passa vbnullstring ele altere o valor para NULL...
IRENKO 04/01/2011 10:31:12
#361041
Ai vai minha sugestão, vê se funciona.

Private Sub Salvar()
[ô]VERIFICA OS CAMPOS DE PREENCHIMENTO OBRIGATÓRIO

If TxtNome.Text = [Ô][Ô] Then GoTo erro
If cmbEndereco.Text = [Ô][Ô] Then GoTo erro
If txtNumero.Text = [Ô][Ô] Then GoTo erro
If cmbBairro.Text = [Ô][Ô] Then GoTo erro
If cmbCidade.Text = [Ô][Ô] Then GoTo erro
If TxtUF.Text = [Ô]__[Ô] Then GoTo erro
If cmbFuncao.Text = [Ô][Ô] Then GoTo erro
If txtSalario.Text = [Ô][Ô] Then GoTo erro

Ssql = Ssql & [Ô][Ô]
Ssql = Ssql & [Ô]INSERT INTO FUNCIONARIOS(CODIGO,INCLUSAO,ALTERACAO,USUARIO,NOME,[Ô]
Ssql = Ssql & [Ô]SEXO,NASCIMENTO,RG,CPF,ENDERECO,NUMERO,BAIRRO,CIDADE,CEP,UF,[Ô]
Ssql = Ssql & [Ô]TEL,CEL,FUNCAO,SALARIO,COMISSIONADO,CARTRAB,ADMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)[Ô]
Ssql = Ssql & [Ô]VALUES([Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtCodigo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtInclusao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtUsuario.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TxtNome.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtSexo.Text = [Ô]_[Ô], [Ô][Ô], txtSexo.Text) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(Not IsDate(txtNasc.Text = [Ô]__/__/____[Ô]), Null, Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TXTrg.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtCPF.Text = [Ô]___.___.___-__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCPF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbEndereco.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtNumero.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbBairro.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbCidade.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(TxtCep.Text = [Ô]_____-___[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & TxtCep.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(TxtUF.Text = [Ô]__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & TxtUF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtTel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtTel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtCel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbFuncao.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(txtSalario.Text = Empty, [Ô]Null[Ô], [Ô][ô][Ô] & CCur(txtSalario.Text & [Ô][ô][Ô])) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtCom.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtTrab.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(Not IsDate(txtAdmissao.Text = [Ô]__/__/____[Ô]), Null, Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & IIf(Not IsDate(txtDemissao.Text = [Ô]__/__/____[Ô]), Null, Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô])) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtMotivo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TxtObs.Text & [Ô][ô])[Ô]

With ConConexao
.ActiveConnection = Conexao
.CommandType = adCmdText
.CommandText = Ssql
.Execute
End With

[ô]Altera o campo seqlogin
Set RSSEQ = New ADODB.Recordset
RSSEQ.Open [Ô]SELECT * FROM SEQ[Ô], CNN, adOpenStatic, adLockOptimistic
Sql = [Ô]UPDATE SEQ Set SEQFUNC=[ô][Ô] & txtCodigo & [Ô][ô][Ô]
CNN.Execute Sql

Unload Me
frmFuncionarios.Show

Exit Sub

erro:
MsgBox [Ô]Favor preencher os campos obrigatórios: Nome, Admissão, Endereço, Número/Complemento, Bairro, Cidade, UF, Função e/ou Salário.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
End Sub
LLAIA 04/01/2011 11:29:31
#361044
Verifique se os campos estão aceitando valores nulos na tabela do BD, e se não estiverem, mudeo-os para aceitarem nulos.
MARCELO.TREZE 04/01/2011 14:27:30
#361066
acredito que o problema estar quando vc salvao null entre aspas simples ([ô]null[ô])

tente isto

Ssql = Ssql & [Ô][Ô]
Ssql = Ssql & [Ô]INSERT INTO FUNCIONARIOS(CODIGO,INCLUSAO,ALTERACAO,USUARIO,NOME,[Ô]
Ssql = Ssql & [Ô]SEXO,NASCIMENTO,RG,CPF,ENDERECO,NUMERO,BAIRRO,CIDADE,CEP,UF,[Ô]
Ssql = Ssql & [Ô]TEL,CEL,FUNCAO,SALARIO,COMISSIONADO,CARTRAB,ADMISSAO,DEMISSAO,MOTIVO,OBSERVACAO)[Ô]
Ssql = Ssql & [Ô]VALUES([Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtCodigo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtInclusao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtUsuario.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TxtNome.Text & [Ô][ô],[Ô]
Ssql = Ssql & IIf(txtSexo.Text = [Ô][Ô], [Ô]null[Ô], [Ô][ô][Ô] & txtSexo.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & IIf(Not IsDate(txtNasc.Text = [Ô]__/__/____[Ô]), [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TXTrg.Text & [Ô][ô],[Ô]
Ssql = Ssql & IIf(txtCPF.Text = [Ô]___.___.___-__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCPF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbEndereco.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtNumero.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbBairro.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbCidade.Text & [Ô][ô],[Ô]
Ssql = Ssql & IIf(TxtCep.Text = [Ô]_____-___[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & TxtCep.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & IIf(TxtUF.Text = [Ô]__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & TxtUF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & IIf(txtTel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtTel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & IIf(txtCel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & cmbFuncao.Text & [Ô][ô],[Ô]
Ssql = Ssql & IIf(txtSalario.Text = Empty, [Ô]Null[Ô], [Ô][ô][Ô] & CCur(txtSalario.Text) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtCom.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtTrab.Text & [Ô][ô],[Ô]
Ssql = Ssql & IIf(Not IsDate(txtAdmissao.Text = [Ô]__/__/____[Ô]), [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & IIf(Not IsDate(txtDemissao.Text = [Ô]__/__/____[Ô]), [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & txtMotivo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô][ô][Ô] & TxtObs.Text & [Ô][ô])[Ô]

With ConConexao
        .ActiveConnection = Conexao
        .CommandType = adCmdText
        .CommandText = Ssql
        .Execute
End With
Página 1 de 4 [32 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar