INSERT INTO FIREBIRD

MOREIRA 04/04/2017 10:45:05
#472982
Bom dia a Todos, estou com prolemas ao gravar registro no banco,

é o seguindo só consigo gravar o primeiro registro, mas se for gravar o segundo não da certo.

estou anexando um pequeno exemplo,

MOREIRA 04/04/2017 12:59:22
#472988
Amigos, segue a imagens do erro
JABA 04/04/2017 13:22:17
#472993
Coloque um Cmd.Clear entre ConectarBD() e Cmd.CommandText.
MOREIRA 04/04/2017 16:25:36
#473005
Citação:

:
Coloque um Cmd.Clear entre ConectarBD() e Cmd.CommandText.


Não está aceitando colocar o cmd.clear. marca como erro


Clear is not a member of fbcommand
KERPLUNK 04/04/2017 16:58:25
#473011 Resposta escolhida
Amigo, desculpe a franqueza, mas aproveitamento de código, não quer dizer usar os mesmos objetos sempre. Crie instâncias de comandos, conexões e tudo mais sempre quando necessário. Variáveis globais não são para essa finalidade.
OMAR2011 04/04/2017 17:26:03
#473018
Imports FirebirdSql.Data.FirebirdClient
Using con As New FirebirdSql.Data.Firebird.FbConnection([Ô]Server=localhost;User=SYSDBA;Password=masterkey;Database=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Bdados.FDB[Ô])

Try
con.Open()
Dim cmd As FirebirdSql.Data.Firebird.FbCommand = New FirebirdSql.Data.Firebird.FbCommand()
cmd.Connection = con
cmd.CommandText = [Ô]Insert into tbproduto(Descricao)values(@Descricao)[Ô]
cmd.Parameters.Add(New FirebirdSql.Data.Firebird.FbParameter([Ô]@DESCRICAO[Ô], txtDescricao.Text))
cmd.CommandType = CommandType.Text
cmd.CommandText = cmd.CommandText
cmd.ExecuteNonQuery()
MsgBox([Ô]Gravou[Ô])
Catch ex As FbException
MsgBox(ex.Message)
End Try
End Using
Tente deste jeito.
JABA 04/04/2017 18:25:42
#473026
Citação:

Não está aceitando colocar o cmd.clear. marca como erro



Tente assim então:

cmd.parameters.clear
Tópico encerrado , respostas não são mais permitidas
Voltar