SQL OPTION BUTTON YES/NO
GALERA PRECISO DE AJUDA....
FIZ UMA TELA DE CADASTRO ONDE USEI ADODB...
PARA GRAVAR OS DADOS NA TABELA DO ACCESS ESTOU USANDO INSTRUÇÕES SQL...
MAS SURGIU UM PEQUENO PROBLEMA...
TODOS OS CAMPOS DO FORMULARIO SÃO ARMAZENADOS NO BANCO CORRETAMENTE...
MAS TEM ALGUNS CAMPOS... TIPO
OPTCASAPROPRIA
OPTALUGADA
QUE NO BANCO DE DADOS O FORMATO DO CAMPO é SIM/NÃO
O PROBLEMA é O SEGUINTE COMO FAÇO EM SQL PARA GRAVAR ESSE CAMPO
SEGUE ABAIXO O CODIGO QUE ESTOU UTILIZANDO....
POR FAVOR ME AJUDEM.....
Set LINHA = New ADODB.Command
With LINHA
.ActiveConnection = CONEXAO
.CommandText = "insert into responsavel(ncad, data, responsavel, endereco,bairro, datnasc, rg, cic, ctps, titulo,pai,mae, observacao,casapropria) values ('" & TxtNCad.Text & "','" & TxtDataResp.Text & "','" & TxtResponsavel.Text & "','" & TxtEndereco.Text & "','" & TxtBairro.Text & "' , '" & TxtDatNasc.Text & "', '" & txtrg.Text & "', '" & TxtCic.Text & "', '" & TxtCartTrab.Text & "', '" & TxtTitulo.Text & "', '" & TxtNomePai.Text & "', '" & TxtNomemae.Text & "', '" & TxtObservacao.Text & "', '" & optcasapropria.Value & "') ; "
.Execute
End With
Set LINHA = Nothing
MsgBox " Registro Incluso com Sucesso!", vbInformation, " Atenção"
GALERA BRIGADÃO!!!!!!
FIZ UMA TELA DE CADASTRO ONDE USEI ADODB...
PARA GRAVAR OS DADOS NA TABELA DO ACCESS ESTOU USANDO INSTRUÇÕES SQL...
MAS SURGIU UM PEQUENO PROBLEMA...
TODOS OS CAMPOS DO FORMULARIO SÃO ARMAZENADOS NO BANCO CORRETAMENTE...
MAS TEM ALGUNS CAMPOS... TIPO
OPTCASAPROPRIA
OPTALUGADA
QUE NO BANCO DE DADOS O FORMATO DO CAMPO é SIM/NÃO
O PROBLEMA é O SEGUINTE COMO FAÇO EM SQL PARA GRAVAR ESSE CAMPO
SEGUE ABAIXO O CODIGO QUE ESTOU UTILIZANDO....
POR FAVOR ME AJUDEM.....
Set LINHA = New ADODB.Command
With LINHA
.ActiveConnection = CONEXAO
.CommandText = "insert into responsavel(ncad, data, responsavel, endereco,bairro, datnasc, rg, cic, ctps, titulo,pai,mae, observacao,casapropria) values ('" & TxtNCad.Text & "','" & TxtDataResp.Text & "','" & TxtResponsavel.Text & "','" & TxtEndereco.Text & "','" & TxtBairro.Text & "' , '" & TxtDatNasc.Text & "', '" & txtrg.Text & "', '" & TxtCic.Text & "', '" & TxtCartTrab.Text & "', '" & TxtTitulo.Text & "', '" & TxtNomePai.Text & "', '" & TxtNomemae.Text & "', '" & TxtObservacao.Text & "', '" & optcasapropria.Value & "') ; "
.Execute
End With
Set LINHA = Nothing
MsgBox " Registro Incluso com Sucesso!", vbInformation, " Atenção"
GALERA BRIGADÃO!!!!!!
Evite escrever em MAIUSCULO.
Somente campos texto (char ou varchar) devem estar delimitados por ' (apóstrofes), remove os delimitadores nos campos numéricos, date, boleanos, etc.
Somente campos texto (char ou varchar) devem estar delimitados por ' (apóstrofes), remove os delimitadores nos campos numéricos, date, boleanos, etc.
Mestre muitooo obrigado pela solução.....
e desculpe o maiusculo
t ++++++++++++++
NEGRON
e desculpe o maiusculo
t ++++++++++++++
NEGRON
Tópico encerrado , respostas não são mais permitidas