INSERI DADOS DO FORM PARA DB FB

SURI 24/04/2013 15:10:26
#422449
Caros vbmaníacos,

Até que enfim decidi migrar, mas, estou com problemas básico (tenho que aprender tudo de novo)

Onde está o erro neste código? Não acontece nada, nem erro nem insere os dados na tabela.

Dim cmd As New FbCommand
cmd = fogo.CreateCommand
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO produto(Cod_prod,nome_prod,grupo_prod,embala_prod,uni_prod,stckmin_pro,arm) VALUES ([ô][Ô] & txtcod.Text & [Ô][ô],[ô][Ô] & txtprod.Text & [Ô][ô],[ô][Ô] & txtemb.Text & [Ô][ô],[ô][Ô] & txtuni.Text & [Ô][ô],[ô][Ô] & txtstkmin.Text & [Ô][ô],[ô][Ô] & cmbarm.Text & [Ô][ô])[Ô]

fogo.BeginTransaction.Commit()
MsgBox([Ô]Gravado![Ô])
End With
ALEVALE 24/04/2013 16:16:01
#422452
Já tentou colocar um try catch para ver se não está dando erro, outra dica.
Quebre melhor suas strings.

Ao invés de
[Ô][ô],[ô][Ô] & txtuni.Text & [Ô][ô],[ô][Ô]

Coloque como
[Ô] [ô] [Ô] & txtuni.Text & [Ô] [ô] [Ô]

Bom eu prefiro assim, fica mais fácil para visualizar.
OMAR2011 24/04/2013 18:31:37
#422455 Resposta escolhida
Dim cmd As New FbCommand
cmd = fogo.CreateCommand
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO produto(Cod_prod,nome_prod,grupo_prod,embala_prod,uni_prod,stckmin_pro,arm) VALUES ([ô][Ô] & txtcod.Text & [Ô][ô],[ô][Ô] & txtprod.Text & [Ô][ô],[ô][Ô] & txtemb.Text & [Ô][ô],[ô][Ô] & txtuni.Text & [Ô][ô],[ô][Ô] & txtstkmin.Text & [Ô][ô],[ô][Ô] & cmbarm.Text & [Ô][ô])[Ô]
.ExecuteNonQuery() [txt-color=#e80000][ô] FALTOU[/txt-color]
fogo.BeginTransaction.Commit()
MsgBox([Ô]Gravado![Ô])
End With
OMAR2011 24/04/2013 19:28:56
#422456
Dim cmd As New FbCommand
cmd = fogo.CreateCommand
fogo.Open() [txt-color=#e80000] [ô] Faltou também,esqueci[/txt-color]
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO produto(Cod_prod,nome_prod,grupo_prod,embala_prod,uni_prod,stckmin_pro,arm) VALUES ([ô][Ô] & txtcod.Text & [Ô][ô],[ô][Ô] & txtprod.Text & [Ô][ô],[ô][Ô] & txtemb.Text & [Ô][ô],[ô][Ô] & txtuni.Text & [Ô][ô],[ô][Ô] & txtstkmin.Text & [Ô][ô],[ô][Ô] & cmbarm.Text & [Ô][ô])[Ô]
.ExecuteNonQuery() [ô] [txt-color=#e80000]FALTOU [/txt-color]
fogo.BeginTransaction.Commit()
MsgBox([Ô]Gravado![Ô])
End With
SURI 25/04/2013 06:41:24
#422465
Citação:

:
Dim cmd As New FbCommand
cmd = fogo.CreateCommand
fogo.Open() [txt-color=#e80000] [ô] Faltou também,esqueci[/txt-color]
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO produto(Cod_prod,nome_prod,grupo_prod,embala_prod,uni_prod,stckmin_pro,arm) VALUES ([ô][Ô] & txtcod.Text & [Ô][ô],[ô][Ô] & txtprod.Text & [Ô][ô],[ô][Ô] & txtemb.Text & [Ô][ô],[ô][Ô] & txtuni.Text & [Ô][ô],[ô][Ô] & txtstkmin.Text & [Ô][ô],[ô][Ô] & cmbarm.Text & [Ô][ô])[Ô]
.ExecuteNonQuery() [ô] [txt-color=#e80000]FALTOU [/txt-color]
fogo.BeginTransaction.Commit()
MsgBox([Ô]Gravado![Ô])
End With



A conexão (fogo) já está estabelecida, a sua abertura ocorre no [Ô]load[Ô] do form, tenho que abrir novamente??
SURI 25/04/2013 07:15:48
#422466
Quando acrescento a linha
[Ô]ExecutenonQuery[Ô] retirna retorna o seguinte erro:

FBexception was unhandled
Dynamic SQL Error

SQL error code = -206

Column unknown
SURI 25/04/2013 07:33:11
#422467
Omar2011,

Pela próxima vou parar deresolver problemas quando a cabeça já estiver quente.

Para além da ajuda que vc me deu, ao inserir o [Ô]executenonquery[Ô], o erro que retornava (column unknown) era do campo da tabela mal escrito.

Valeu (problema resolvido)!
Tópico encerrado , respostas não são mais permitidas
Voltar