none
VISUAL BASIC ERRO AO INSERIR NO DB RRS feed

  • Pergunta

  • Imports MySql.Data.MySqlClient
    Imports System.Data.Sql
    Imports System
    Imports System.Data
    Public Class Form2
        Dim connectionString As String = "Server=localhost; User Id=root; Password=; Database=festaja"
        Dim SQLConnection As MySqlConnection = New MySqlConnection
        Dim oDt_sched As New DataTable()
        Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Label5.Text = Form1.TextBox1.Text
            Label6.Text = Form1.TextBox2.Text
            Label7.Text = ("" & Form1.TextBox3.Text & "/" & Form1.TextBox4.Text)
            If Form1.TextBox5.Text = ("") Then
                Label8.Text = ("Gratuito!")
            Else
                Label8.Text = Form1.TextBox5.Text
            End If
            Me.Text = Form1.TextBox1.Text
        End Sub

        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Form1.Show()
            Me.Close()
        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            insert()
        End Sub
        Public Function insert() As Boolean

            SQLConnection = New MySqlConnection()
            SQLConnection.ConnectionString = connectionString
            Dim sqlCommand As New MySqlCommand
            Dim party As String

            Try
                party = "insert into festas (nome, local, inicio, fim, preco) values ('" + Label5.Text + "','" + Label6.Text + "','" + Form1.TextBox3.Text + "','" + Form1.TextBox4.Text + "','" + Label8.Text + "')"
                sqlCommand.Connection = SQLConnection
                sqlCommand.CommandText = party
                sqlCommand.ExecuteNonQuery()

                Return True

            Catch ex As Exception
                Return False
                MsgBox("Erro ao cadastrar no DB!")
            End Try

        End Function


    End Class

    CODIGO ACIMA /\ 

    SE ALGUEM ACHAR O ERRO POR FAVOR COMENTE A SOLUÇÃO :/ GRATO DESDE JÁ.

    quarta-feira, 15 de janeiro de 2014 23:07

Respostas

  • O erro é na compilação ou quando insere a informação no banco de dados? E qual o erro que está dando exatamente quando insere no banco de dados?

    A priori vi que você não dá o Open() no seu objeto SQLConnection, sendo assim nao conseguirá inserir no bd se não estiver conectado.

    Em relação ao comando INSERT montado tenha cuidado , se o usuário inserir um caracter no campo respectivo a preco que no seu bd é float ou decimal vai gerar erro, tem que fazer o tratamento adequado.
    quarta-feira, 15 de janeiro de 2014 23:18

Todas as Respostas