Modulo mostrar

[d13g007]

Buenas mi pregunta es la siguiente tengo un modulo en el cual guardo el codigo de consulta de la base de datos pero no se muy bien como realizarlo si alguien me puede ayudar, necesito que este se muestre en un form en unos textbox muchas gracias si alguien me puede brindar ayuda

[Ka0stj]

Tu duda esta en el módulo o en ejecutar una consulta?

[d13g007]

buenas, la duda esta en ambas en un foro me ayudaron pero como que se enojaron, la duda esta en la consulta y a la hora de mostrar los datos en el form

[Ka0stj]

Ok, veamos entonces:

Si tienes esa consulta en un módulo declarado como public para tener acceso a ella. Puedes utilizar algo similar a lo que acontinuación te pongo:

Código vb:

'-- Función que me ejecuta el excecuteScalar y me regresa un Double
    Public Function EjecutarEscalar(ByVal sql As String, ByVal objConn As SqlConnection)
 
        '-- Declaro una variable para usarla como valor de retorno
        Dim total As Double
        '-- Declaro una variable tipo SqlCommand
        Dim cmd As System.Data.SqlClient.SqlCommand
 
        Try
            '-- Creo una nueva instancia de SqlCommand
            cmd = New System.Data.SqlClient.SqlCommand()
 
            '-- Asigno mi Conexión
            cmd.Connection = objConn
 
            '-- Asigo el Comando SQL a ejecutar
            cmd.CommandText = sql
 
            '-- Ejecuto mi Comando
            total = cmd.ExecuteScalar
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
 
        '-- Regreso el Total
        Return total
 
    End Function
 

Si lo que quieres es poner el resultado de la consulta en un TextBox lo haces asi:

Código vb:

Me.TextBox1.Text = EjecutarEscalar(TuQueryDelModulo, TuConexion)
 

Bueno con eso lo puedes solucionar.

Saludos!

[d13g007]

tengo el codigo de consulta y lo que consulto lo quiero mostrar en un form

[Ka0stj]

Ok, mira pon tu código para ver que es lo que estas intentando hacer.

[d13g007]

Public Function ObtenerDatos(ByVal id As String, ByVal id1 As String, ByVal id2 As String, ByVal id3 As String) As DataTable

Dim dt As New DataTable

Using conn As New SqlConnection("server=tac-corvus; user id=gs_admin; password=366558; database=admin_gs; pooling=false")
conn.Open()
Dim sql As String = "SELECT nombre,middle,lasti FROM usuario WHERE id = @id"
Comando.Parameters.AddWithValue("@id", id)
Comando.Parameters.AddWithValue("nombre", id1)
Comando.Parameters.AddWithValue("middle", id2)
Comando.Parameters.AddWithValue("lasti", id3)
Dim da As New SqlDataAdapter(Comando)
da.Fill(dt)


End Using

End Function

[d13g007]

y para mostrar esto

Dim dt As DataTable = ObtenerDatos(CInt(txtId.Text))

If dt.Rows.Count > 0 Then
Dim row As DataRow = dt.Row(0)

txtNombre.Text = CStr(row("Nombre"))
txtNombre.Text = CStr(row("Apellido"))

todo esto me lo dieron en un foro de msdn pero no lo entiendo

[Ka0stj]

Lo que estas haciendo es cargar la información a un DataTable. Ese código que pegaste no te funciona?