MySQL - Ver datos de MYSQL en textbox de VB.NET

 
Vista:
Imágen de perfil de jose
Val: 16
Ha aumentado su posición en 72 puestos en MySQL (en relación al último mes)
Gráfica de MySQL

Ver datos de MYSQL en textbox de VB.NET

Publicado por jose (20 intervenciones) el 17/04/2013 06:54:22
Buenos tardes,

Soy nuevo en temas de programación, poco a poco voy haciendo cosillas.
He colgado la misma infomarmacion en el foro de VB.NET, dado que entiendo que es más de visual, pero quiza alla alguien por aqui que tambien sepa de esto.

Necesito una ayuda, que seguro es fácil para muchos de vosotros pero para mi, ni con la ayuda de san google o san youtube no he encontrado la manera de hacerlo funcionar.

He creado un formulario de Windows form, con un combobox. El windows form esta conectado a una base de datos de mysql, ej:


Imports MySql.Data.MySqlClient
Imports MySql.Data

Public Class Update_page
Public dset As New System.Data.DataSet
Public strSQL As String
Public cmd As New MySqlCommand
Public dreader As MySqlDataReader
Public sConnection As New MySqlConnection

Private Sub Update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'BiblotecaDataSet.Libros' Puede moverla o quitarla según sea necesario.
Form1.LibrosTableAdapter.Fill(Form1.BiblotecaDataSet.Libros)

If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = "SERVER = joserodriguezan.mooo.com; USERID = joserodriguezan; PASSWORD = Aberystwyth; DATABASE = Bibloteca;"
sConnection.Open()
'MessageBox.Show("Conectado al servidor")
Else
' Catch ex As MySqlException
MessageBox.Show("No se ha conectado al servidor")
' End Try
End If
Combo()
End Sub

------- He creado una función para el combo box en donde me enseña los titulos de la tabla libro en el combo box.

Public Sub Combo()
Dim da As New MySqlDataAdapter
Dim ds As New DataSet
dset.EnforceConstraints = False

strSQL = "SELECT Titulo FROM Libros"

cmd = New MySqlCommand()
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.Connection = sConnection

ds = New DataSet()
da.SelectCommand = cmd
da.Fill(ds, "Libros")
Titulo_combo.DataSource = ds.Tables(0)
Titulo_combo.DisplayMember = "Titulo"
End Sub

Mi intención es que al seleccionar desde el combo box, con un metodo combo_change por ejemplo, automaticamente aparezcan en los textbox los datos del resto de campos de la base de datos, ej:

ID_text = campo "Id" en mysql
Desc_text = campo "Desc" en mysql
Prestado_text = campo "prestado" en mysql
Quien_text = campo "Quien" en mysql

Para que luego a traves de un boton "Actualizar" pueda guardar los datos en el servidor.

Espero se me haya entendido,
Muchas gracias a todos,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder