none
Legenda do Formulário Propriedade Text RRS feed

  • Pergunta

  • Gostaria de substituir a legenda de um formulário por uma informação carregada direto do meu banco de dados por exemplo: Licenciado para: "resultado da consulta"
    • Editado MSantoli terça-feira, 18 de novembro de 2014 12:06
    terça-feira, 18 de novembro de 2014 01:04

Respostas

  • Resolvi da seguinte forma:

    Dim con As New OleDb.OleDbConnection
            Dim cmd As New OleDbCommand
            Dim da As New OleDb.OleDbDataAdapter
            Dim Dt As New DataTable

            con.ConnectionString = "minha conexão"
            con.Open()

            Try
                With cmd
                    .CommandType = CommandType.Text
                    .CommandText = "SELECT * from Empresa"
                    .Connection = con
                End With

                With da
                    .SelectCommand = cmd
                    Dt = New DataTable
                    .Fill(Dt)
                    Me.Text = "Licenciado para: - " & Dt.Rows(0).Item("RazãoSocial")
      
                End With

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            con.Close()

    • Marcado como Resposta MSantoli terça-feira, 18 de novembro de 2014 12:05
    terça-feira, 18 de novembro de 2014 12:04

Todas as Respostas

  • Olá Inquiridor.

    Você poderia carregar essa informação no evento Load o formulário.

    private void Form1_Load(object sender, EventArgs e)
            {
                // Aqui ficará o seu código para carregar a informação que você quer
            }


    Klayton Gomes MCP /MCTS/ MCAD / MCPD / MCSD Software Architecture / System Analyst

    terça-feira, 18 de novembro de 2014 01:17
  • Esse é o problema Klayton, necessito de um código que faça isso, meu projeto é em Visual Basic.
    • Editado MSantoli terça-feira, 18 de novembro de 2014 01:30
    terça-feira, 18 de novembro de 2014 01:26
  • Resolvi da seguinte forma:

    Dim con As New OleDb.OleDbConnection
            Dim cmd As New OleDbCommand
            Dim da As New OleDb.OleDbDataAdapter
            Dim Dt As New DataTable

            con.ConnectionString = "minha conexão"
            con.Open()

            Try
                With cmd
                    .CommandType = CommandType.Text
                    .CommandText = "SELECT * from Empresa"
                    .Connection = con
                End With

                With da
                    .SelectCommand = cmd
                    Dt = New DataTable
                    .Fill(Dt)
                    Me.Text = "Licenciado para: - " & Dt.Rows(0).Item("RazãoSocial")
      
                End With

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            con.Close()

    • Marcado como Resposta MSantoli terça-feira, 18 de novembro de 2014 12:05
    terça-feira, 18 de novembro de 2014 12:04