Visual Basic.NET - Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

[selcomad]

BUENAS TARDES...

Estoy llevando a cabo un pequeño proyecto con Visual Basic .Net el motor de bases de datos MySQL y el conector de Visual Basic .Net y MySQL.
De momento tengo realizada la conexion a la BBDD MySQL sin problemas. Lo "Bueno" viene ahora. Necesito meter un dato de un campo especifico de un registro en una variable. En PHP es facil, pero en lo que es VB .Net no tengo ni idea. ¿Alguien me puede echar una mano?
Este es el codigo que tengo hasta ahora:

MODULO:
----------------------------------------------------------------------------------------------------------------------------------------------------------
Module Biblioteca
'Creamos la conexion a la BBDD
Public Conexion As New MySqlConnection

'Creamos el procedimiento para llamar a la consulta
Public Sub Conectar()
Try
'Cerramos la conexion a la BBDD
Conexion.Close()

'Establecemos los parametros de la conexion a la BBDD
Conexion.ConnectionString = "server=XXXX; database=XXX; user=XXX; password=XXX;"

'Abrimos la conexion a la BBDD
Conexion.Open()

'Imprimimos un mensaje como que se ha conectado satisfactoriamente a la BBDD MySQL
MessageBox.Show("Conexion a la BBDD MySQL realizada")

Catch ex As Exception
'En caso de que no se conecte mandamos un mensaje con el error lanzado desde la BBDD MySQL
MsgBox(ex.Message)
End Try
End Sub

'Creamos un procedimiento que sea la funcion que seleccionará los datos de la BBDD (SELECT)
Public Function Seleccion_de_datos(ByRef SQL As String) As DataSet
'Llamamos al procedimiento Conectar() para conectarnos a la BBDD MySQL
Conectar()

'Declaramos las cariables que nos van a hacer falta
Dim Adaptador As New MySqlDataAdapter(SQL, Conexion)
Dim Rsdatos As New DataSet

'Adaptador va a rellenar la variable Rsdatos con "DATOS"
Adaptador.Fill(Rsdatos, "DATOS")

'Devolvemos los datos que saquemos
Return Rsdatos

'Cerramos la conexion a la BBDD MySQL
Conexion.Close()

End Function
End Module




FORMULARIO
-------------------------------------------------------------------------------------------------------------------------------------------------------
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'Declaramos las variables que nos van a hacer falta
Dim Consulta As String = "CONSULTA QUE DEVUELVE UN SOLO RESULTADO CONSISTENTE EN EL VALOR DE UN CAMPO DE UN REGISTRO ESPECIFICO;"

'Realizamos una consulta a la BBDD MySQL declarando la variable que va a contener el dato extraido
xxxxxxxxxxxx Aqui es donde tengo que meter el dato que necesito en una variablexxxxxxxxxxxxxxxxxxxxxxx
Se que debe ser algo como esto: VARIABLE_QUE_SEA= Seleccion_de_datos(Consulta)

'Cerramos la conexion a la BBDD MySQL
Conexion.Close()



End Sub
End Class





Espero que me podais ayudar... Gracias...



GRACIAS...
UN SALUDO...

Isaac

[agleiva]

Te conviene usar Entity Framework. En .NET, para acceso a datos en general no usamos SQL escrito manualmente. Eso lo hacíamos hace 15 años.

A menos que se trate de una query de SQL muy específica y pesada que requiera mucha optimización, olvidate de escribir SQL. A diferencia de PHP, .NET es una plataforma seria, moderna y bien diseñada.

[Gerard93]

Si lo que necesitas es un solo resultado, un solo campo no es necesario un adaptador de datos mejor usa un "MySqlCommand" con executescalar

Código Visual Basic:

Public Function Seleccion_de_datos(ByRef SQL As String) As String' no se que tipo 
'de datos es el resultado
'Llamamos al procedimiento Conectar() para conectarnos a la BBDD MySQL
Conectar()
 
'Declaramos las cariables que nos van a hacer falta
Dim Adaptador As New MySqlCommand(SQL, Conexion)
Dim Rsdatos As String'No se que tipo de datos es
 
'Adaptador va ejecutar la consulta y con ExecuteScalar te regresara el dato de la 'primera columna en la primera fila
 
Try
Rsdatos=Adaptador.ExecuteScalar()
catch  ex As Exception
 
 
End Try
 
'Devolvemos los datos que saquemos
Return Rsdatos
 
'Cerramos la conexion a la BBDD MySQL
Conexion.Close()
 
End Function
 

Y listo, una cosita mas es que
xxxxxxxxxxxx Aqui es donde tengo que meter el dato que necesito en una variablexxxxxxxxxxxxxxxxxxxxxxx
Se que debe ser algo como esto: VARIABLE_QUE_SEA= Seleccion_de_datos(Consulta)

'Cerramos la conexion a la BBDD MySQL
Conexion.Close()

Ahi no tienes que volver a cerrar la conexion porque de hecho la conexion no existe en esta llamada la conexion ya la cerraste en la funcion Seleccion_de_datos, espero haberte ayudado.