TEXTBOX

ROBFERREIRAA 13/08/2012 14:52:41
#407849
ola galera uso este codigo para exibir dados em uma combo box como faço isso para exibir em um textbox o ultimo resgistro do banco dados
Dim conectar As MySqlConnection
[ô]conecta à base de dados
conectar = New MySqlConnection()
conectar.ConnectionString = [Ô]server=localhost; uid=aca; pwd=thc133; database=academia[Ô]
...[ô]verifica a conecção.
Try
conectar.Open()
Catch myerror As MySqlException
MsgBox([Ô]Erro ao ligar à base de dados! Erro:[Ô] & myerror.ErrorCode, vbCritical, )
End Try
[ô]query de sql
Dim sqlquery As String = [Ô]SELECT MAX Nome_Professor FROM cadast_professor[Ô]
Dim adaptador As New MySqlDataAdapter(sqlquery, conectar)

Dim dados As New DataSet

adaptador.Fill(dados, [Ô]cadast_professor[Ô])

With ComboBox1
.DataSource = dados.Tables(0)
.DisplayMember = [Ô]Nome_Professor[Ô]
.ValueMember = [Ô]Nome_Professor[Ô]
End With

conectar.Close()
JABA 13/08/2012 17:53:14
#407868 Resposta escolhida
Esse teu codigo está retornando o maior nome, não é isso?
=========================================================

[ô]A consulta abaixo trás o maior registro.

public retornarRegistro() as object

Dim conectar As MySqlConnection = New MySqlConnection()
conectar.ConnectionString = [Ô]server=localhost; uid=aca; pwd=thc133; database=academia[Ô]

Try
conectar.Open()
Catch myerror As MySqlException
MsgBox([Ô]Erro ao ligar à base de dados! Erro:[Ô] & myerror.ErrorCode, vbCritical, )
End Try

[ô]A consulta abaixo retorna o maior registro
Dim sqlquery As String = [Ô]SELECT Count(id), Nome_Professor FROM cadast_professor[Ô]

Dim cmd as MySqlCommand = mew MySqlCommand(sqlquery , conectar)

return cmd.ExecuteScalar()

end sub

OBS: Para prencher o Textbox fica assim: TextBox.Text = retornarRegistro.ToString()

vlw
ROBFERREIRAA 14/08/2012 14:31:23
#407926
value cara deu certinho so fiz uma adaptação e rolou valeu mesmo abraços
Tópico encerrado , respostas não são mais permitidas
Voltar