INSERT INTO

OMAR2011 24/05/2015 00:13:31
#446964 Resposta escolhida
O Campo Ramo não existe na criação da tabela.
E o textbox Status não encontrei e nem criei.

Tive que mudar para o insert. funcionar deste jeito.
Tenta fazer como o Jaba fez.
If OptAtivo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
If OptInativo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]

Testei deste jeito.

sSQL = [Ô]INSERT INTO TBLFUNCIONARIO (CODIGO,[Ô]
sSQL = sSQL & [Ô]NOME,[Ô]
sSQL = sSQL & [Ô]RG,[Ô]
sSQL = sSQL & [Ô]CPF,[Ô]
sSQL = sSQL & [Ô]DTNASCIMENTO,[Ô]
sSQL = sSQL & [Ô]DTADMISSAO,[Ô]
sSQL = sSQL & [Ô]DTCADASTRO ,[Ô]
sSQL = sSQL & [Ô]CTPS,[Ô]
sSQL = sSQL & [Ô]SERIE,[Ô]
sSQL = sSQL & [Ô]TELEFONE1 ,[Ô]
sSQL = sSQL & [Ô]TELEFONE2 ,[Ô]
sSQL = sSQL & [Ô]CELULAR,[Ô]
sSQL = sSQL & [Ô]CARGO,[Ô]
sSQL = sSQL & [Ô]SETOR,[Ô]
sSQL = sSQL & [Ô]EMAIL,[Ô]
[ô]sSQL = sSQL & [Ô]RAMO,[Ô]
sSQL = sSQL & [Ô]CEP,[Ô]
sSQL = sSQL & [Ô]LOGRADOURO,[Ô]
sSQL = sSQL & [Ô]TIPOVIA,[Ô]
sSQL = sSQL & [Ô]MUNICIPIO,[Ô]
sSQL = sSQL & [Ô]NUMERO,[Ô]
sSQL = sSQL & [Ô]BAIRRO,[Ô]
sSQL = sSQL & [Ô]COMPLEMENTO,[Ô]
sSQL = sSQL & [Ô]UF,[Ô]
sSQL = sSQL & [Ô]CIDADE,[Ô]
[ô]sSQL = sSQL & [Ô]STATUS,[Ô]
sSQL = sSQL & [Ô]E1,[Ô]
sSQL = sSQL & [Ô]E2,[Ô]
sSQL = sSQL & [Ô]S1,[Ô]
sSQL = sSQL & [Ô]S2,[Ô]
[ô]sSQL = sSQL & [Ô]SEGUNDA,[Ô]
[ô]sSQL = sSQL & [Ô]TERCA,[Ô]
[ô]sSQL = sSQL & [Ô]QUARTA,[Ô]
[ô]sSQL = sSQL & [Ô]QUINTA,[Ô]
[ô] sSQL = sSQL & [Ô]SEXTA,[Ô]
[ô]sSQL = sSQL & [Ô]SABADO,[Ô]
[ô]sSQL = sSQL & [Ô]DOMINGO,[Ô]

sSQL = sSQL & [Ô]CODBARRA) VALUES ([Ô] & txtCodigo.Text & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtRG.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCPF.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtdata_nascimento.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_admissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_cadastro.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCTPS.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSerie.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone1.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone2.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCelular.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboCargo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSetor.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtEmail.Text & [Ô][ô],[Ô]
[ô] If OptAtivo.Value = True Then sSQL = sSQL & [Ô]TRUE,[Ô] Else sSQL = sSQL & [Ô]FALSE,[Ô]
[ô] If OptInativo.Value = True Then sSQL = sSQL & [Ô]TRUE,[ô][Ô] Else sSQL = sSQL & [Ô]FALSE,[ô][Ô]
[ô]If OptAtivo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
[ô] If OptInativo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcep.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtlogradouro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboTipo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtmunicipio.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtnumero.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtbairro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcomplemento.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtuf.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcidade.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]

[ô] If Check1.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô]If Check2.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô] If Check3.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô] If Check4.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô] If Check5.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô] If Check6.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]
[ô] If Check7.Value = 1 Then sSQL = sSQL & [Ô]True[Ô] & [Ô],[Ô] Else sSQL = sSQL & [Ô]False[Ô] & [Ô],[Ô]

sSQL = sSQL & [Ô][ô][Ô] & txtbarra.Text & [Ô][ô])[Ô]
JPAULO101 25/05/2015 10:46:27
#446983
Fiz algumas alterações conforme nosso amigo OMAR2001 citou, mais ainda continua dando erro. Usava Banco Access para armazenamento de dados iniciando nos estudo do Firebird 2.5, mais estou tendo dificuldade.

[txt-color=#0000f0]Segue rotina com as alteração e tela com novo erro.[/txt-color]

sSQL = [Ô]INSERT INTO TBLFUNCIONARIO([Ô]
sSQL = sSQL & [Ô]CODIGO,[Ô]
sSQL = sSQL & [Ô]NOME,[Ô]
sSQL = sSQL & [Ô]RG,[Ô]
sSQL = sSQL & [Ô]CPF,[Ô]
sSQL = sSQL & [Ô]DTNASCIMENTO,[Ô]
sSQL = sSQL & [Ô]DTADMISSAO,[Ô]
sSQL = sSQL & [Ô]DTCADASTRO ,[Ô]
sSQL = sSQL & [Ô]CTPS,[Ô]
sSQL = sSQL & [Ô]SERIE,[Ô]
sSQL = sSQL & [Ô]TELEFONE1 ,[Ô]
sSQL = sSQL & [Ô]TELEFONE2 ,[Ô]
sSQL = sSQL & [Ô]CELULAR,[Ô]
sSQL = sSQL & [Ô]CARGO,[Ô]
sSQL = sSQL & [Ô]SETOR,[Ô]
sSQL = sSQL & [Ô]EMAIL,[Ô]
sSQL = sSQL & [Ô]CEP,[Ô]
sSQL = sSQL & [Ô]LOGRADOURO,[Ô]
sSQL = sSQL & [Ô]TIPOVIA,[Ô]
sSQL = sSQL & [Ô]MUNICIPIO,[Ô]
sSQL = sSQL & [Ô]NUMERO,[Ô]
sSQL = sSQL & [Ô]BAIRRO,[Ô]
sSQL = sSQL & [Ô]COMPLEMENTO,[Ô]
sSQL = sSQL & [Ô]UF,[Ô]
sSQL = sSQL & [Ô]CIDADE,[Ô]
sSQL = sSQL & [Ô]E1,[Ô]
sSQL = sSQL & [Ô]E2,[Ô]
sSQL = sSQL & [Ô]S1,[Ô]
sSQL = sSQL & [Ô]S2,[Ô]
sSQL = sSQL & [Ô]SEGUNDA,[Ô]
sSQL = sSQL & [Ô]TERCA,[Ô]
sSQL = sSQL & [Ô]QUARTA,[Ô]
sSQL = sSQL & [Ô]QUINTA,[Ô]
sSQL = sSQL & [Ô]SEXTA,[Ô]
sSQL = sSQL & [Ô]SABADO,[Ô]
sSQL = sSQL & [Ô]DOMINGO,[Ô]

sSQL = sSQL & [Ô]CODBARRA) VALUES([Ô]
sSQL = sSQL & [Ô][Ô] & txtCodigo.Text & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtRG.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCPF.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtdata_nascimento.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_admissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_cadastro.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCTPS.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSerie.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone1.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone2.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCelular.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboCargo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSetor.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtEmail.Text & [Ô][ô],[Ô]
If OptAtivo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
If OptInativo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcep.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtlogradouro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboTipo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtmunicipio.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtnumero.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtbairro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcomplemento.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtuf.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcidade.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]

If Check1.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check2.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check3.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check4.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check5.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]


sSQL = sSQL & [Ô][ô][Ô] & txtbarra.Text & [Ô][ô])[Ô]


conexao.BeginTrans
conexao.Execute sSQL
conexao.CommitTrans
OMAR2011 25/05/2015 13:45:33
#446990
Criei um campo ATIVO e INATIVO e ficou deste jeito.
Este segundo o meu teste é o textbox das datas que não não preenchidas.
Preencha todos os textbox e executa.

sSQL = [Ô]INSERT INTO TBLFUNCIONARIO (CODIGO,[Ô]
sSQL = sSQL & [Ô]NOME,[Ô]
sSQL = sSQL & [Ô]RG,[Ô]
sSQL = sSQL & [Ô]CPF,[Ô]
sSQL = sSQL & [Ô]DTNASCIMENTO,[Ô]
sSQL = sSQL & [Ô]DTADMISSAO,[Ô]
sSQL = sSQL & [Ô]DTCADASTRO ,[Ô]
sSQL = sSQL & [Ô]CTPS,[Ô]
sSQL = sSQL & [Ô]SERIE,[Ô]
sSQL = sSQL & [Ô]TELEFONE1 ,[Ô]
sSQL = sSQL & [Ô]TELEFONE2 ,[Ô]
sSQL = sSQL & [Ô]CELULAR,[Ô]
sSQL = sSQL & [Ô]CARGO,[Ô]
sSQL = sSQL & [Ô]SETOR,[Ô]
sSQL = sSQL & [Ô]EMAIL,[Ô]
sSQL = sSQL & [Ô]ATIVO,[Ô]
sSQL = sSQL & [Ô]INATIVO,[Ô]
sSQL = sSQL & [Ô]CEP,[Ô]
sSQL = sSQL & [Ô]LOGRADOURO,[Ô]
sSQL = sSQL & [Ô]TIPOVIA,[Ô]
sSQL = sSQL & [Ô]MUNICIPIO,[Ô]
sSQL = sSQL & [Ô]NUMERO,[Ô]
sSQL = sSQL & [Ô]BAIRRO,[Ô]
sSQL = sSQL & [Ô]COMPLEMENTO,[Ô]
sSQL = sSQL & [Ô]UF,[Ô]
sSQL = sSQL & [Ô]CIDADE,[Ô]

sSQL = sSQL & [Ô]E1,[Ô]
sSQL = sSQL & [Ô]E2,[Ô]
sSQL = sSQL & [Ô]S1,[Ô]
sSQL = sSQL & [Ô]S2,[Ô]
sSQL = sSQL & [Ô]SEGUNDA,[Ô]
sSQL = sSQL & [Ô]TERCA,[Ô]
sSQL = sSQL & [Ô]QUARTA,[Ô]
sSQL = sSQL & [Ô]QUINTA,[Ô]
sSQL = sSQL & [Ô]SEXTA,[Ô]
sSQL = sSQL & [Ô]SABADO,[Ô]
sSQL = sSQL & [Ô]DOMINGO,[Ô]

sSQL = sSQL & [Ô]CODBARRA) VALUES ([Ô] & txtCodigo.Text & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtRG.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCPF.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtdata_nascimento.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_admissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtData_cadastro.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCTPS.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSerie.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone1.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtTelefone2.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCelular.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboCargo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtSetor.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtEmail.Text & [Ô][ô],[Ô]

If OptAtivo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
If OptInativo.Value = True Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô], [Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcep.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtlogradouro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & CboTipo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtmunicipio.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtnumero.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtbairro.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcomplemento.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtuf.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtcidade.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida1.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida2.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]

If Check1.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check2.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check3.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check4.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check5.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check6.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]
If Check7.Value = 1 Then sSQL = sSQL & [Ô] [ô]1[ô], [Ô] Else sSQL = sSQL & [Ô] [ô]0[ô],[Ô]



sSQL = sSQL & [Ô][ô][Ô] & txtbarra.Text & [Ô][ô])[Ô]
JPAULO101 25/05/2015 15:03:45
#446994
Boa tarde OMAR2011, coloquei essa nova rotina e dicou mostrando esse erro.
JPAULO101 25/05/2015 15:06:10
#446995
Teria como verificar se meu banco está igual o seu, caso a rotina esteja funcionado no seu exemplo, teria como enviar pra mim. Segue arquivos com as correções que foram feitas.
JABA 25/05/2015 16:15:27
#446998
é preciso ver como as datas estão sendo formatadas no seu banco de dados. Para isso, você pode inserir um valor manualmente só para ver o formato que se está aceitando.

Coloque todas as datas que estão na sql nesse formato:

Format(SeuCampoData.Text, [Ô]dd/mm/yyyy[Ô])

ou assim

Format(SeuCampoData.Text, [Ô]mm/dd/yyyy[Ô])
OMAR2011 25/05/2015 19:06:46
#447010
Fiz um teste com seu exemplo e acusou erro.
Este firebird seu parece uma versão antiga.
Criei uma banco com o mesmo nome e tabela, porém com a versão 2.5.

sSQL = sSQL & [Ô]E1,[Ô]
sSQL = sSQL & [Ô]E2,[Ô]
sSQL = sSQL & [Ô]S1,[Ô]
sSQL = sSQL & [Ô]S2,[Ô]
Esses campos,como Time .
A formatação foi.
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada1.Text, [Ô]hh/mm/ss[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada2.Text, [Ô]hh/mm/ss[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida1.Text, [Ô]hh/mm/ss[Ô]) & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & Format(txtsaida2.Text, [Ô]hh/mm/ss[Ô]) & [Ô][ô],[Ô]

Então com esta versão do Firebird 2.5 gravou normal sem nenhum erro
Qual a sua versão do Firebird?
JPAULO101 25/05/2015 19:24:21
#447012
Olá OMAR2011, Estou utilizando a versão 2.5 do firebird com IBExpert 2012. teria como enviar o exemplo que você fez.
OMAR2011 25/05/2015 19:37:00
#447013
Este banco foi criado com Ems Sql manger 2010 lite For interbase and Firebird.
Não usei o Ibexpert.
JPAULO101 25/05/2015 20:01:57
#447015
Você teria como enviar o projeto em vb6 também. Fico grato
Página 2 de 3 [22 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar