"sql" visual basic 2008 con textbox y data grid

Estoy trabajando en un proyecto en visual basic 2008. Mi pregunta es al siguiente:
Tengo un campo de texto y un combobox, el combobox me permite escoger los diferentes campos de la tabla, mientras que el textbox me permite ingresar el valor a buscar. Entonces, quiero que al consultar esos datos aparezcan en un datagird que se encuentra en el mismo formulario... Yo trabajado mediante clases, dentro de la clase esta la cadena de conexión a la base de datos y la consulta correspondiente.
Dejo la clase que manejo, y espero recibir cualquier ayuda o consejo al respecto, de antemano muchas gracias.
Imports Microsoft. VisualBasic
Imports System
Imports System. Data
Imports System. Data. OleDb
Public Class base_usuario
    Inherits datos ' una clase donde se manejan los metodos set y get.
    Public Function consultar() As System.Data.DataSet
        Dim ObjConn As System.Data.OleDb.OleDbConnection '//Se referencia un objeto ObjConn
        ObjConn = New System.Data.OleDb.OleDbConnection() '//Se instancia un objeto ObjConn
        Dim consulta As String '// se define un String  para manejar la sentencia SQL
        ObjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:/archivos de programa/dominio urbano/dominurba.accdb;Persist Security Info=False;"
        consulta = "SELECT * FROM Usuarios WHERE apellidos='" & Me.getapellido & "'" '// se pasa a la variable string la Sentencia SQL para consulta
        Dim objSql As System.Data.OleDb.OleDbDataAdapter '// se referencia un objeto ObjSql de la clase OleDbDataAdapter se utilizan para rellenar DataSet y actualizar el origen de datos.
        objSql = New System.Data.OleDb.OleDbDataAdapter(consulta, ObjConn) '//se instancia el objeto ObjSql que recibe dos parametros el String con la sentencia SQL y el objeto OleDbConnection
        Dim datos As System.Data.DataSet '// se referencia el objeto datos  de la clase Dataset que Representa una cach de memoria interna de datos.
        datos = New System.Data.DataSet() '// se instancia el objeto datos  de la clase Dataset
        objSql.Fill(datos, "tabladatos") '//Agrega filas a DataSet o las actualiza para hacerlas coincidir con las filas del origen de datos utilizando una tabla "tabladatos"
        ObjConn.Close()
        Return datos  'retorna el Nmero de filas agregadas o actualizadas correctamente
    End Function
End Class

1 Respuesta

Respuesta
1
Si aun no tienes la conexión entre el dataset y el datagrid, debes conectarlos mediante una propiedad del datagrid llamada data source.
Datagrid.datasource=dataset
De esa manera pasas los datos. Y para la consulta, pues en donde tienes la propiedad y le asignas el valos a Apellido, pues le pasa la caja de texto.
Persona.Apellido=textbox.text
Gracias por la ayuda, bueno, ya agregue lo que me arroja el dataset al datagrid, pero ahora me arroja un error, y no se porque, porque hacia antes consultas y me funcionaba bien... el error es en la linea:
objSql.Fill(datos, "tabladatos") 'No coinciden los tipos de datos en la expresión de criterios.
Y con este error quede loco je je, espero me puedas colaborar.
Gracias
Escríbeme la linea de código que usaste para enlazar el grid con el dataset. ¿Y la pregunta también es si quitando esa linea de código te sigue funcionando como antes o solo te marca el error con el enlace?
If Me.TextBox1.Text = "" Then
            MessageBox.Show("Introduzca Un Numero Cedula", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Dim seleccionados As Integer 'variable tipo entero
            Dim tablaconsultada As System.Data.DataRow
            Dim Objconsultar As base_usuario = New base_usuario()
            Objconsultar.setcedula(TextBox1.Text)
            Dim datos As System.Data.DataSet
            datos = New System.Data.DataSet()
            datos = Objconsultar.consultar()
            seleccionados = datos.Tables("tabladatos").Rows.Count
            If seleccionados = 0 Then
                MsgBox("esta busqueda no arroja resultados", MsgBoxStyle.Information, "Atencion")
                Dim obj As Object
                For Each obj In Controls
                    If TypeOf obj Is TextBox Then
                        CType(obj, TextBox).Text = ""
                        CType(obj, TextBox).ReadOnly = False
                    End If
                Next
            Else
                DataGridView1.DataSource = datos
                MsgBox("Los Datos Fueron Consultados Correctamente", MsgBoxStyle.Information, "Directorio Digital")       
            End If
        End If
    End Sub
Acá esta el código que pongo en el botón de consultas, acá esta modificado para buscar por cedula, porque estaba haciendo pruebas haber si por algún lado me salia...
Ya encontré el porque del error en la consulta, tenia mal el tipo de datos que manejaba en el campo de la base de datos, por eso me arrojaba ese error... bueno, pero volviendo a mi duda inicial, ya cargue el dataset, pero aun no logro que se se vea en el datagrid... el código que utilizo es :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.TextBox1.Text = "" Then
            MessageBox.Show("Introduzca Un Numero Cedula", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Dim seleccionados As Integer 'variable tipo entero
            Dim Objconsultar As base_usuario = New base_usuario()
            Objconsultar.setcedula(TextBox1.Text)
            Dim datos As System.Data.DataSet '
            datos = New System.Data.DataSet()
            datos = Objconsultar.consultar() ' este dataset, toma los datos arrojados por la consulta en sql
            seleccionados = datos.Tables("tabladatos").Rows.Count
            If seleccionados = 0 Then
                MsgBox("esta busqueda no arroja resultados", MsgBoxStyle.Information, "Atencion")
            Else
                DataGridView1.DataSource = datos
                MsgBox("Los Datos Fueron Consultados Correctamente", MsgBoxStyle.Information, "Directorio Digital")
                TextBox1.ReadOnly = True
            End If
        End If
    End Sub
Bueno, ya se que hace la consulta bien y todo, pero no eh podido con ese detallito, no se que estará mal, muchas gracias por la ayuda y paciencia, ah sido de gran utilidad todo.
Si Pitágoras no miente, tu conexión al datagrid debería quedar así:
 DataGridView1.DataSource =  datos.Tables("tabladatos")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Mantenimiento a registros desde datagrid

¿Qué tal espero estés muy bien sabes necesito que me ayudes en lo siguiente tengo un datagrid el cual llena los registros de una tabla en sql estoy programando en visual basic .net 2005 cuando carga los registros cada fila quisiera que al darle click...
4 respuestas

Buscar y seleccionar un registro en un datagridview en visual 2008

Tengo en un form un textbox, botón y un datagridview lo que deseo es simple consultar un registro en la caja de texto y que en el datagridview que lo tengo lleno de registros lo busque y seleccione la fila Tengo este procedimiento de consulta Public...
1 respuesta

Filtro en datagrid por fechas

Estoy tratando de ordenar una datagrid con filtro de fechas desde y hasta, el filtro me lo hace pero solo me toma el primero numero de la fecha ejemplo: 12/03/2009 y los otros no. Espero que alguien me pueda ayudar se lo agradeceré mucho. La base de...
1 respuesta

Error al cargar excel en datagridview

Quiero cargar un archivo de excel a un datagridview con el siguiente código pero al realizarlo me genera el mensaje de NO SE PUDO ENCONTRAR EL ARCHIVO ISAM INSTALABLE. Public Class llenadoTadataGrid2 Private Sub importarExcel(ByVal path As String)...
1 respuesta

Jalar informacion de un combobox

Tengo uan aplicasion en visual basic .net de la cual necesito jalar informacion para un textbox desde un combobox mi codigo es el sigiente pero este me genera un error Imports System. Data Imports System. Data. SqlClient Public Class estudios Dim DS...
1 respuesta

Combobox en Asp.net y sqlserver

Primero que todo, debo agradeceros por recibir mi consulta. Lo que me ocurre es que no puedo agregarle mi combobox los datos de la base de datos. Estoy trabajando con asp.net El codigo lo tengo en un archvo. VB Y el combobox en uno aspx
1 respuesta

Usar procedimiento de form2 a form1

En una biblioteca de clases llamada dlloperaciones dentro de ella una clase llamada personal. Vb tengo un procedimiento (consultar) El procedimiento es así Public Sub consultar_personal(ByVal d1 As String, ByVal t2 As TextBox, ByVal t3 As TextBox,...
1 respuesta

Ayuda urgente web form visual basic net y mysql

Como estas, por favor necesito que me colabores si puedes orientándome como trabajar mysql con visual basic. Net en un formulario web. Como se hacen las conexiones en el formulario. He trabajado Visual foxpro 9.0 y visual basic 6.0 y en visual basic...
2 respuestas

Seleccionar item de un combo y rellenar un textbox

Estoy iniciando con esto de VB. Net... Tengo una base de datos que migre desde access... Descargue Sql Server Express 2008 y Visual Studio 2008 para crear la interfaz... Ya estoy dando mis primeros pasos creando la conexión a la base que tengo en Sql...
1 respuesta

Mostrar datos en varios textbox

Gracias por la respuesta anterior ya resolví mi duda, pero tengo otra pregunta como puedo mostar los datos extraídos de un sp_ dentro varios textbox. Ojala y me pudieras ayudar otra vez.
1 respuesta