[SOLUCIONADO] Guardar consulta MySQL en una variable VB.Net

[edgarherrera]

Muy buenas tardes, Hola a tod@s.

Estoy haciendo un pequeño sistema en Visual Basic .Net 2010 y quisiera guardar en una variable el resultado de una consulta MySQL. Es para hacer una comprobación de los datos que ya tengo en la BD y realizar otra u otra operación en caso de q exista o no "x" valor!

Muchas gracias de antemano.

[khryztall]

Si no das algo mas de información es muy difícil ayudarte, ¿ya tienes la base de datos?, ¿ya hiciste la consulta?, lo que preguntas es relativamente fácil pero se necesita mas información.

[edgarherrera]

Iniciado por khryztall

Si no das algo mas de información es muy difícil ayudarte, ¿ya tienes la base de datos?, ¿ya hiciste la consulta?, lo que preguntas es relativamente fácil pero se necesita mas información.

Entiendo. Me disculpo por no colocar mas info sobre la ayuda que necesito, pensé que era suficiente lo que había colocado.


- Si ya tengo la base de datos
- tiene 7 tablas
- el sistema inserta, elimina y consulta pero me faltaría que actualizara.

Es alli donde viene el problema. Mi idea seria hacer una consulta de la base de datos y traer los valores que quiero validar.

Código vb:

sSqlOperaciones = "SELECT * FROM detalle,ordenantes,productos,proveedores,tipo_inst WHERE detalle.nroref = '" & txtReferencia.Text & "' AND  detalle.id_ordenante = ordenantes.id_ordenante AND detalle.id_proveedor = proveedores.id_proveedor AND detalle.id_producto = productos.id_producto AND detalle.id_tipo = tipo_inst.id_tipo"
 

Claro este es un ejemplo del query pero vamos a suponer que solo quiero validad un campo (nroref que esta en la tabla detalle) y quiero tomar todos esos valores de alli para guardarlos en una variable local y compararlos contra un txt. En caso de que exista voy a hacer unos insert a otras tablas y en caso contrario otras operaciones.

Espero haberme explicado mejor, muchas gracias por su ayuda.

[emmax]

Podrias hacer un reader y desde ese reader validar el campo que quieres y asi trabajar con ese dato.

[edgarherrera]

Iniciado por emmax

Podrias hacer un reader y desde ese reader validar el campo que quieres y asi trabajar con ese dato.

Podrias proporcionarme un pequeño ejemplo de como hacerlo??? y disculpa la molestia. Muchas gracias por la respuesta.

[emmax]

Tengo este pequeño ejemplo en SQL, pero segun yo es practicamente igual con MySQL

Código VB.NET:

Dim qry As String = "Tu Consulta"
        Dim sqlcmd As New SqlCommand(qry, sqlcon)
        Dim dr As SqlDataReader
        dr = sqlcmd.ExecuteReader
        If dr.Read() Then
            If dr("Tu Campo") = Tu Condicion Then
                   Lo que quieras Hacer
            End If
        End If
 

Espero te Sirva o te de una idea......

[edgarherrera]

Iniciado por emmax

Tengo este pequeño ejemplo en SQL, pero segun yo es practicamente igual con MySQL

Código VB.NET:

Dim qry As String = "Tu Consulta"
        Dim sqlcmd As New SqlCommand(qry, sqlcon)
        Dim dr As SqlDataReader
        dr = sqlcmd.ExecuteReader
        If dr.Read() Then
            If dr("Tu Campo") = Tu Condicion Then
                   Lo que quieras Hacer
            End If
        End If
 

Espero te Sirva o te de una idea......

Gracias man! Mañana lo voy a intentar guiándome con el ejemplo que me diste a ver como me va. Muchas gracias.

[edgarherrera]

Muchas gracias a quienes me ayudaron y se tomaron un minuto de su tiempo para responder.
He aquí el código implementado que me funciono.

Código vb:

Dim querySelectOr As String = "SELECT id_or FROM ord WHERE nombre_or = @nombreor LIMIT 1"
                Using cmd As New MySqlCommand(querySelectOr, cn)
                    cmd.Transaction = myTrans
                    cmd.Parameters.AddWithValue("@nombreor", txtOr.Text)
                    'AQUI HAY QUE SABER QUE DEVUELVE EL QUERY SI EL QUERY DEVUELVE ID ENTONCES USA EL ID QUE DEVUELVE
                    Dim reader As MySqlDataReader
                    reader = cmd.ExecuteReader()
 
                    While reader.Read()
                        id_ord = reader.GetInt32(0)
                    End While
                    reader.Close()
                End Using
                id_ord2 = id_ord.ToString()
                'Comparamos si ID_ORD2 esta vació, es nulo o es igual a 0 por el motivo que cuando se hace la consulta
                ' y nombre_or no es igual a txtor, lo que devuelve es 0, entonces se colocan 2 condiciones. 
 
                If String.IsNullOrEmpty(id_ord2) Or id_ord2 = 0 Then
                    Dim queryOr As String = "INSERT INTO ord (nombre_or) " & _
                                      "VALUES (@nombreor)" & _
                                      ";SELECT LAST_INSERT_ID();"
 
                    id_ord = 0
                    Using cmd As New MySqlCommand(queryOr, cn)
                        cmd.Transaction = myTrans
                        cmd.Parameters.AddWithValue("@nombreor", txtOr.Text)
                        id_ord = Convert.ToInt32(cmd.ExecuteScalar())
                    End Using
 
 
                End If
 

Gracias gente. Buenas noches.