Visual Basic.NET - Mostrar Tablas de SQL en ComboBox

   
Vista:

Mostrar Tablas de SQL en ComboBox

Publicado por Aleta (5 intervenciones) el 20/10/2007 18:46:43
Hola, como puedo mostrar las tablas de una base de datos MySql o SQL en un combobox?.
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

RE:Mostrar Tablas de SQL en ComboBox

Publicado por Llaverin (22 intervenciones) el 22/10/2007 09:44:27
Hola Aleta:
Con SQL, lo que tienes que hacer es un leerte la tabla y despues mostrar los registros. Ejemplo:
Tenemos una tabla de nombre Prueba, con los campos nombre y apellidos

Para leerla, primero nos conectamos a la base de datos y despues leemos:
rs.open ("Select nombre from Prueba", cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

Y por ultimo, nos recorremos todos los registros:
Do Until rs.EOF
ComboBox.Items.Add(rs("nombre").Value)
rs.MoveNext()
Loop

Espero que te valga

Saludos
Ana
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mostrar Tablas de SQL en ComboBox

Publicado por shava (2 intervenciones) el 23/10/2007 22:57:29
Public Class Form1
Inherits System.Windows.Forms.Form

Dim conn As MySqlConnection
Dim data As DataTable
Dim da As MySqlDataAdapter
Dim cb As MySqlCommandBuilder

Private Sub connectBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connectBtn.Click
If Not conn Is Nothing Then conn.Close()

Dim connStr As String
connStr = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", _
server.Text, userid.Text, password.Text )

Try
conn = New MySqlConnection(connStr)
conn.Open()

GetDatabases()
Catch ex As MySqlException
MessageBox.Show("Error connecting to the server: " + ex.Message)
End Try
End Sub

Private Sub GetDatabases()
Dim reader As MySqlDataReader
reader = Nothing

Dim cmd As New MySqlCommand("SHOW DATABASES", conn)
Try
reader = cmd.ExecuteReader()
databaseList.Items.Clear()

While (reader.Read())
databaseList.Items.Add(reader.GetString(0))
End While
Catch ex As MySqlException
MessageBox.Show("Failed to populate database list: " + ex.Message)
Finally
If Not reader Is Nothing Then reader.Close()
End Try

End Sub

Private Sub databaseList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles databaseList.SelectedIndexChanged
Dim reader As MySqlDataReader

conn.ChangeDatabase(databaseList.SelectedItem.ToString())

Dim cmd As New MySqlCommand("SHOW TABLES", conn)

Try
reader = cmd.ExecuteReader()
tables.Items.Clear()

While (reader.Read())
tables.Items.Add(reader.GetString(0))
End While

Catch ex As MySqlException
MessageBox.Show("Failed to populate table list: " + ex.Message)
Finally
If Not reader Is Nothing Then reader.Close()
End Try
End Sub

Private Sub tables_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles tables.SelectedIndexChanged
data = New DataTable

da = New MySqlDataAdapter("SELECT * FROM " + tables.SelectedItem.ToString(), conn)
cb = New MySqlCommandBuilder(da)

da.Fill(data)

dataGrid.DataSource = data
End Sub

Private Sub updateBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles updateBtn.Click
Dim changes As DataTable = data.GetChanges()
da.Update(changes)
data.AcceptChanges()
End Sub

End Class

//Este ejemplo esta en el conector de mysql.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar