Usuário com melhor resposta
Legenda do Formulário Propriedade Text

Pergunta
-
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
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
-
-
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