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

   
Vista:

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por Isaac (4 intervenciones) el 24/11/2015 13:10:52
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:
----------------------------------------------------------------------------------------------------------------------------------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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
-------------------------------------------------------------------------------------------------------------------------------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
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

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 24/11/2015 14:17:53
hay metodos de string que te facilita extraer, contar, separar, reemplazar quitar, convertir a array.numeros,

Las funciones los trae .net

con solo declarar la variable

dim codigo as string=""
codigo. (metodos o funciones de .net)

al poner un punto junto a la variable se cargara una lista de metodos, tu solo checalos y escoje el que te realize lo que deseas
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

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por Isaac (4 intervenciones) el 24/11/2015 14:31:48
Eso ya lo he probado, y el error que me sale es que la variable que intento usar no puede ser convertida al tipo de dato de la funcion. debe haber un metodo, clase o algo que me permita recoger el dato que extraigo de la BBDD MySQL.

¿Nadie sabe como hacerlo?

Gracias...

Isaac
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

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por Miguel (348 intervenciones) el 24/11/2015 18:51:25
Hola, te agradecería que me pudieras explicar exactamente lo que deseas hacer... También puedes colocar el código PHP que comentas...

Saludos,
Miguel
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
Imágen de perfil de Wilfredo Patricio Castillo

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Recuperar datos es muy sencillo, revisa esta documentación, solo debes cambiar el SQLDatareader por MySqlDatareader.

Y es tan sencillo como esto:

variablestring=reader.getstring(1)

El 1 es la posición en la consulta, empezando desde 0, por ejemplo si tienes la consulta siguiente;
Select IdCliente,NombreCliente From Clientes

El IdCliente sería el 0
el nombreCliente sería el 1

Además tomar en cuenta el tipo de dato, en el ejemplo si el idCliente fuera un tipo integer, lo capturarías así:

Dim IdClie as integer=reader.getIn32(0)

Pero para mayor información te dejo la documentación

https://msdn.microsoft.com/es-es/library/haa3afyz%28v=vs.110%29.aspx

Saludos cordiales,
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

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por Isaac (4 intervenciones) el 26/11/2015 11:41:24
Gracias a todos...
Ya he conseguido hacer lo que queria...
Wilfredo al final lo he hecho asi (Lo publico por si a alguien le pudiera interesar):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'Establecemos los parametros de la conexion a la BBDD
        Dim Configuracion_conexion As String = "server=XXXXXXXXX; database=XXXXXXXXXX; user=XXXXXXXXXX; password=XXXXXXXXXXX;"
 
        'Instanciamos un objeto conexion (MySqlConnection) y le pasamos de parametro la variable de configuracion de la conexion con la BBDD MySQL
        Dim Conexion As New MySqlConnection(Configuracion_conexion)
 
        'Instanciamos un objeto de comando (MySqlCommand) y le pasamos de parametros el comando select y la conexion
        Dim Consulta As New MySqlCommand("AQUI COLOCAMOS LA SENTENCIA SELECT", Conexion)
 
        'TRY-CATH para capturar los posibles errores que haya
        Try
            'Nos aseguramos que no exista ninguna conexión abierta previa
            If Not Conexion Is Nothing Then Conexion.Close()
 
            'Abrimos conexión 
            Conexion.Open()
 
            'Declaramos la variable (De tipo entero) que contendrá los datos de los campos de los registros
            Dim Datos As MySqlDataReader = Consulta.ExecuteReader
 
            'EjecutAmos el comando CONSULTA
            If Datos.Read Then
                'Declaramos y llenamos
                Dim VARIABLE_QUE_CONTENDRA_EL_VALOR As String = Trim(Datos("CAMPO_QUE_QUERAMOS_DE_LA_TABLA"))
 
                'Vemos que contiene la variable asignada para la direccion URL extraida
                MessageBox.Show(VARIABLE_QUE_CONTENDRA_EL_VALOR )
 
                'Imprimimos en el cuadro de texto la direccion URL
                TextBox1.Text = VARIABLE_QUE_CONTENDRA_EL_VALOR
 
                'Lanzamos la direccion web al navegador para imprimerla en pantalla
                'WebBrowser1.Navigate(VARIABLE_QUE_CONTENDRA_EL_VALOR )
 
            End If
 
        Catch ex As Exception
            'Lanzamos un mensaje de alerta si hay algun error
            MsgBox(ex.Message, MsgBoxStyle.Critical)
 
        Finally
 
            'Cerramos la conexion a la BBDD MySQL
            Conexion.Close()
 
            'Eliminamos de la memoria el objeto CONSULTA que habiamos creado
            Consulta = Nothing
 
        End Try
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Publicado por alex (1 intervención) el 15/12/2015 04:41:33
me salvaste la vida, estaba al borde de la locura ... gracias
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