Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Inserir dados no mysql e retornar a ID em label VB 2010

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Inserir dados no mysql e retornar a ID em label VB 2010

    Ola Galera, estou fazendo um programinha e preciso de uma ajuda
    Apos inserir dados no mysql eu preciso exibir a id que ele gerou em um label text, como faço?
    vejam meu codigo:
    Código PHP:
    'Inserindo no mysql
            Try
                ComandoMYSQL = New MySql.Data.MySqlClient.MySqlCommand("INSERT INTO cf SET VENDEDOR = @Vendedor, DATA = @Data, HORA = @hora; SELECT LAST_INSERT_ID(CUPOM) FROM cf INTO @CUPOM", ConexaoMYSQL)

                With ComandoMYSQL
                    .Parameters.AddWithValue("@Vendedor", "Joyce")
                    .Parameters.AddWithValue("@Data", Today)
                    .Parameters.AddWithValue("@Hora", TimeString)
                    End With
                ComandoMYSQL.ExecuteNonQuery()
                ComandoMYSQL.Dispose()
                MsgBox("Cadastrado")

            Catch ex As Exception
                MsgBox("Nao cadastrado")
                Me.Close()
            End Try 

  • Font Size
    #2
    Postado Originalmente por maxivane Ver Post
    Ola Galera, estou fazendo um programinha e preciso de uma ajuda
    Apos inserir dados no mysql eu preciso exibir a id que ele gerou em um label text, como faço?
    vejam meu codigo:
    Código PHP:
    'Inserindo no mysql
            Try
                ComandoMYSQL = New MySql.Data.MySqlClient.MySqlCommand("INSERT INTO cf SET VENDEDOR = @Vendedor, DATA = @Data, HORA = @hora; SELECT LAST_INSERT_ID(CUPOM) FROM cf INTO @CUPOM", ConexaoMYSQL)

                With ComandoMYSQL
                    .Parameters.AddWithValue("@Vendedor", "Joyce")
                    .Parameters.AddWithValue("@Data", Today)
                    .Parameters.AddWithValue("@Hora", TimeString)
                    End With
                ComandoMYSQL.ExecuteNonQuery()
                ComandoMYSQL.Dispose()
                MsgBox("Cadastrado")

            Catch ex As Exception
                MsgBox("Nao cadastrado")
                Me.Close()
            End Try 

    Código:
    Label1.Text = ComandoMYSQL.LastInsertedId.ToString
    Espero ter ajudado.

    Comment

    X
    Working...
    X