Consulta Mysql desde VB 2005
Publicado por oscar (1 intervención) el 06/06/2011 19:55:43
Como puedo hacer una consulta y meter toda la informacion de la linea filtra en un array el codigo que he encontrado por la web es:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim DBCon As MySQLConnection
Dim sql As MySQLCommand = New MySQLCommand
Dim bConexionExitosa As Boolean = True
DBCon = New MySQLConnection(New MySQLConnectionString("db4free.net", "prueba50", "tronico", "000001", 3306).AsString)
DBCon.Open()
Try
Catch ex As MySQLException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
bConexionExitosa = False
End Try
If bConexionExitosa Then
'Establecemos el tipo Connection que usará para realizar la petición
sql.Connection = DBCon
'Escribimos la consulta que deseamos en T-SQL. Nuestro ejemplo buscará todos
'los nombres cuya segunda letra sea 'a' y penúltima 'e'
sql.CommandText = "SELECT * FROM `db_Usuarios` WHERE `nombre` LIKE 'oscar';"
'Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo .Text
sql.CommandType = CommandType.Text
'Creamos un lector de datos (IDataReader) y lo inicializamos
'con el lector del objeto MySQLCommand
Dim dr As System.Data.IDataReader
dr = sql.ExecuteReader()
'Mientras haya datos para leer los mostramos
While dr.Read()
'Al igual de los objetos DataRow, la clase IDataReader también tiene
'un método por defecto .Item que funciona exactamente igual
MsgBox(dr("nombre"))
End While
'Cerramos la conexión con el servidor
DBCon.Close()
End If
End Sub
Pero claro aqui solo me devuelve el nombre que ha encontrado.. En este caso "oscar" pero no toda la informacion de la linea... Un saludo y gracias
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim DBCon As MySQLConnection
Dim sql As MySQLCommand = New MySQLCommand
Dim bConexionExitosa As Boolean = True
DBCon = New MySQLConnection(New MySQLConnectionString("db4free.net", "prueba50", "tronico", "000001", 3306).AsString)
DBCon.Open()
Try
Catch ex As MySQLException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
bConexionExitosa = False
End Try
If bConexionExitosa Then
'Establecemos el tipo Connection que usará para realizar la petición
sql.Connection = DBCon
'Escribimos la consulta que deseamos en T-SQL. Nuestro ejemplo buscará todos
'los nombres cuya segunda letra sea 'a' y penúltima 'e'
sql.CommandText = "SELECT * FROM `db_Usuarios` WHERE `nombre` LIKE 'oscar';"
'Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo .Text
sql.CommandType = CommandType.Text
'Creamos un lector de datos (IDataReader) y lo inicializamos
'con el lector del objeto MySQLCommand
Dim dr As System.Data.IDataReader
dr = sql.ExecuteReader()
'Mientras haya datos para leer los mostramos
While dr.Read()
'Al igual de los objetos DataRow, la clase IDataReader también tiene
'un método por defecto .Item que funciona exactamente igual
MsgBox(dr("nombre"))
End While
'Cerramos la conexión con el servidor
DBCon.Close()
End If
End Sub
Pero claro aqui solo me devuelve el nombre que ha encontrado.. En este caso "oscar" pero no toda la informacion de la linea... Un saludo y gracias
Valora esta pregunta


0