CHECKBOX NO INSERT INTO E POSSIVEL
Estou tentando colocar a informação de Checked ou Unchecked em Insert Into e dá erro de sintaxe, é possÃvel inserir True ou False em Insert Into?
obrigado
obrigado
para True, insira o valor 1, e false insira 0.O campo da tabela deve ser do tipo bollean.
Eu já fiz isto e dá erro de sintaxe
Qual é o erro? Que banco de dados vc está usando?
Qual é o banco filho??
Já aproveita e posta o teu código do INSERT
Já aproveita e posta o teu código do INSERT
eu faço dessa forma:
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5,[Ô] & chkStatus.Value & [Ô])
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5,[Ô] & chkStatus.Value & [Ô])
Dim Aquiav As Database
Dim NIMP As Boolean
If Check1.Value = 1 Then
NIMP = 1
Else
NIMP = 0
End If
Set Aquiav = OpenDatabase([Ô]\\SERVIDOR\Dados.mdb[Ô])
Aquiav.Execute [Ô]INSERT INTO GERAL (InfIncluir)[Ô] _
& [Ô]Values([Ô] & [Ô][ô][Ô] & NIMP & [Ô][ô];)[Ô]
Dim NIMP As Boolean
If Check1.Value = 1 Then
NIMP = 1
Else
NIMP = 0
End If
Set Aquiav = OpenDatabase([Ô]\\SERVIDOR\Dados.mdb[Ô])
Aquiav.Execute [Ô]INSERT INTO GERAL (InfIncluir)[Ô] _
& [Ô]Values([Ô] & [Ô][ô][Ô] & NIMP & [Ô][ô];)[Ô]
Retire as Aspas simples:
Dim Aquiav As Database
Dim NIMP As Boolean
If Check1.Value = 1 Then
NIMP = 1
Else
NIMP = 0
End If
Set Aquiav = OpenDatabase([Ô]\\SERVIDOR\Dados.mdb[Ô])
Aquiav.Execute [Ô]INSERT INTO GERAL (InfIncluir)[Ô] _
& [Ô]Values([Ô] & NIMP & [Ô])[Ô]
Dim Aquiav As Database
Dim NIMP As Boolean
If Check1.Value = 1 Then
NIMP = 1
Else
NIMP = 0
End If
Set Aquiav = OpenDatabase([Ô]\\SERVIDOR\Dados.mdb[Ô])
Aquiav.Execute [Ô]INSERT INTO GERAL (InfIncluir)[Ô] _
& [Ô]Values([Ô] & NIMP & [Ô])[Ô]
Essa forma dá certo
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5,[Ô] & chkStatus.checked & [Ô])
ou pode fazer de passar true ou False direto
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5, True)
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5,[Ô] & chkStatus.checked & [Ô])
ou pode fazer de passar true ou False direto
INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5, True)
Continua dando erro de sintaxe
Tenta assim:
[Ô]INSERT INTO MinhaTabela (Produto_ID,ProdutoStatus) Values (5,[Ô] & Iif(chkStatus.Value = vbChecked, 1, 0) & [Ô])[Ô]
Tópico encerrado , respostas não são mais permitidas