elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  ¿como almacenar el resultado de una query en una variable?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ¿como almacenar el resultado de una query en una variable?  (Leído 7,319 veces)
thecirujano

Desconectado Desconectado

Mensajes: 33


Ver Perfil
¿como almacenar el resultado de una query en una variable?
« en: 5 Octubre 2007, 23:25 pm »

bueno la query sql es la siguiente SELECT MAX(Sales) FROM ID

Tengo el siguiente codigo pero nose como almacenar el resultador del query anterior en una variable

Public Class Form1
    Dim dt As New DataTable
    Dim da As New SqlClient.SqlDataAdapter
    Dim fila As Integer

    Private Sub btnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectar.Click
        Dim cadena As String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
        'Data source es el servidor, Catalog es la BD que usaremos
        Dim conexión As New SqlClient.SqlConnection(cadena)
        'conexión a la bases de datos SQL
        Dim cadenaSeleccion As String = "SELECT cod,nombre FROM benja ORDER BY cod"
        'Cadena de seleccion
        ' Crear un nuevo objeto del tipo DataAdapter
        da = New SqlClient.SqlDataAdapter(cadenaSeleccion, cadena)
        dt = New DataTable
        ' Llenar la tabla con los datos indicados
        da.Fill(dt)
        fila = 1 'El primer dato es el 0
        mostrarDatos(fila)
    End Sub
    Private Sub mostrarDatos(ByVal f As Integer)
        Dim dr As DataRow = dt.Rows(f)
        txtCodigo.Text = dr("cod").ToString
        txtNombre.Text = dr("Nombre").ToString
    End Sub
End Class


En línea

Hadess_inf
Desesperado
Colaborador
***
Desconectado Desconectado

Mensajes: 2.048


Nueva Vida


Ver Perfil WWW
Re: ¿como almacenar el resultado de una query en una variable?
« Respuesta #1 en: 9 Octubre 2007, 23:58 pm »

Crea una funcion y retorna el tipo de dato:

Bueno no entiendo muy bien la pregunta, seria bueno que expliques bien que es lo que deseas para poder ayudarte, saludos.


En línea

P[i]


Desconectado Desconectado

Mensajes: 472


Ver Perfil
Re: ¿como almacenar el resultado de una query en una variable?
« Respuesta #2 en: 10 Octubre 2007, 19:46 pm »

Lo tienes muy liado yo te recomiendo esto para las consultas:

utilizar -> System.Data.SqlClient

Código:
Private Sub ....... Lo que sea ..........
'Cadena de conexion siempre y cuando esteas usando un server sql express local
Dim strconn As String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
'Cadena de la consulta
Dim strcons As String = "SELECT MAX(Sales) FROM ID"

'Nos Conectamos
Dim conn As SqlConnection = New SqlConnection(strconn)
conn.Open()
'Creamos e manipulador de la consultas.
Dim cons As SqlCommand = New SqlCommand(strcons,conn)
'Ejecutamos consulta y la guardamos
Dim result As SqlDataReader = cons.ExecuteReader()

'Ahora manipulamos los resultados
Try
 Do while result.Read()  ' aqui cambia la fila
     result(0) ' Este es la primera columna de la primera fila
     result(1) ' Este es la sefuda columna de la primera fila
    ............................. y asi todas las que sea necesario
    ' En tu caso solo se necesitaria la primera columan result(0)
   ' El valor devuelto es el que mas se aproxime de sql a vb en tu caso devulve un Integer
 Loop
Finally
   result.Close()
End Try

conn.Close()
End Sub

Creo que esta bien explicado pero si no vuelve a preguntar.

Saludos.
En línea

Hadess_inf
Desesperado
Colaborador
***
Desconectado Desconectado

Mensajes: 2.048


Nueva Vida


Ver Perfil WWW
Re: ¿como almacenar el resultado de una query en una variable?
« Respuesta #3 en: 11 Octubre 2007, 06:35 am »

Bueno yo lo haria de la siguiente forma:
Si lo que quieres es obtener el numero de fila, has lo siguiente:

Dim conAs String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
dim da as sqldataadapter
dim dtb as data.datatable
function retornavalor(byval fila as integer) as string
  da = new sqldataadapter("SELECT cod,nombre FROM benja ORDER BY cod",con)
  dtb = new data.datatable
  da.fill(dtb)
  dim nombre as string = dtb.rows(fila)("nombre").tostring
  return nombre
end function

sub load_form......
  msgbox retornavalor(1)
end sub

Espero te sea util.
« Última modificación: 14 Octubre 2007, 16:48 pm por hadess_inf » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines