INSERT INTO

OMAR2011 24/03/2017 09:33:42
#472709
Private Sub btnGravEdit_Click(sender As Object, e As EventArgs) Handles btnGravEdit.Click

ConectarBD() [ô]Abro o banco de dados
cmd.CommandType = CommandType.Text
cmd.CommandText = [Ô]INSERT INTO TBPRODUTO (DESCRICAO) VALUES (@DESCRICAO)[Ô]
cmd.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar = txt_RazaoSocial.Text))
Try
cnn.Open()
Cmd.ExecuteNonQuery()

Catch ex As Exception
[ô]MessageBox.Show(message.ToString(), [Ô]Error Message[Ô])
End Try
MOREIRA 24/03/2017 10:11:19
#472711
Citação:

:
Private Sub btnGravEdit_Click(sender As Object, e As EventArgs) Handles btnGravEdit.Click

ConectarBD() [ô]Abro o banco de dados
cmd.CommandType = CommandType.Text
cmd.CommandText = [Ô]INSERT INTO TBPRODUTO (DESCRICAO) VALUES (@DESCRICAO)[Ô]
cmd.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar = txt_RazaoSocial.Text))
Try
cnn.Open()
Cmd.ExecuteNonQuery()

Catch ex As Exception
[ô]MessageBox.Show(message.ToString(), [Ô]Error Message[Ô])
End Try




DEU ESSE ERRO

An unhandled exception of type [ô]System.InvalidCastException[ô] occurred in Microsoft.VisualBasic.dll

Additional information: A conversão da cadeia de caracteres [ô]TESTANDO CADASTRO[ô] no tipo [ô]Double[ô] não é válida.

  cmd.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar = txt_RazaoSocial.Text))
MOREIRA 24/03/2017 21:41:00
#472739
JABA 24/03/2017 22:08:25
#472740
Estou sem muito tempo para lhe ajudar. Verifique se os campos estão declarados corretamente no banco ou na sua aplicação. Tá parecendo que você está tentando inserir texto em campo do tipo double.
MOREIRA 24/03/2017 22:17:49
#472741
Citação:

:
Estou sem muito tempo para lhe ajudar. Verifique se os campos estão declarados corretamente no banco ou na sua aplicação. Tá parecendo que você está tentando inserir texto em campo do tipo double.



não amigo, esta certinho campo tipo VarChar
JABA 24/03/2017 22:42:31
#472742
Citação:

cmd.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar = txt_RazaoSocial.Text))



O problema está aqui [txt-color=#e80000]FbDbType.VarChar = txt_RazaoSocial.Text[/txt-color], você está tentando atribuir valor para uma enumeração. Faça assim:

CM.Parameters.Add([Ô]@DESCRICAO[Ô], FbDbType.VarChar).Value = txt_RazaoSocial.Text


ou assim:

CM.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar)).Value = txt_RazaoSocial.Text
OMAR2011 24/03/2017 23:10:43
#472743
A Tabela foi com campo cod chave primária auto-numeração.
Teste deste jeito.
Imports FirebirdSql.Data.Firebird
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Using con As FbConnection = GetconnectionFirebirdfb()

Try
con.Open()
Dim sql1 As String = [Ô]SELECT * FROM tbproduto[Ô]
Dim cmd1 As FbCommand = New FbCommand(sql1, con)
Dim da1 As FbDataAdapter = New FbDataAdapter(cmd1)
Dim dt1 As DataTable = New DataTable
da1.Fill(dt1)
DataGridView1.DataSource = dt1



DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
DataGridView1.RowTemplate.Height = 38
DataGridView1.AllowUserToAddRows = False


Me.DataGridView1.DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 15)

Catch ex As fbException
MsgBox(ex.Message)
End Try
MsgBox([Ô]Abriu[Ô])
End Using

End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Using con As FbConnection = GetconnectionFirebirdfb()

Try
con.Open()
Dim cmd As FbCommand = New FbCommand()
cmd.Connection = con
cmd.CommandText = [Ô]INSERT INTO TBPRODUTO(DESCRICAO) VALUES(@DESCRICAO)[Ô]
cmd.Parameters.Add(New FbParameter([Ô]@DESCRICAO[Ô], FbDbType.VarChar))
cmd.Parameters(0).Value = txt2.Text
cmd.ExecuteNonQuery()
MsgBox([Ô]Gravou[Ô])
Catch ex As FbException
MsgBox(ex.Message)
End Try
End Using
End Sub
Public Function GetconnectionFirebirdfb() As FbConnection
Dim sqlf As String = [Ô]Server=localhost;User=SYSDBA;Password=masterkey;Database=[Ô] & My.Application.Info.DirectoryPath & [Ô]\SeuBanco.FDB[Ô]
Return New FbConnection(sqlf)
End Function
End Class
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar