Visual Basic y SQL Server ayuda con datagridview hola amigos soy nuevo en el foro pues buscando di con este foro que est amuy bueno por cierto y quisiera espero me puedan ayudar tengo un pequeño problema a resolver , estoy trabajando en visual basic 2008 y sql server 2008. mi duda es como puedo ver las columnas de la tabla en este caso Clientes en un datagridview en VB , el usuario ingresa el nombre que al hacer click en un boton buscar que aparesca el cliente con ese nombre , tengo en sql server el StoreProcedure que hace eso , la conexion desde Visual Basic la hago desde con modulo conexion. espero me puedan ayudar a corregir mi codigo, mil gracias! de antemano!!
este es el codigo del modulo conexion
Imports System.Data
Imports System.Data.SqlClient
Module conexion
Friend con AsNew SqlConnection("Data Source=.\SQLEXPRESS;initial catalog=Prl;Integrated Security=True;")
Friend cmd AsNew SqlCommand
Friend lector As SqlDataReader
Friend ds AsNew DataSet
Friend da AsNew SqlDataAdapter
Function conectar() AsBoolean
con.Close()
Try
cmd.Connection = con
ReturnTrue
Catch ex As Exception
EndTry
EndFunction
EndModule
y este es el de boton buscar con el data grid view
Imports System.Data
Imports System.Data.SqlClient
PrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If conectar() = TrueThen
da.SelectCommand = New SqlCommand
da.SelectCommand.CommandType.StoredProcedure()
da.SelectCommand.CommandText = ("SP_VerificaCliente")
da.SelectCommand.Parameters.Add("@idCliente", SqlDbType.Int).Value =
TextBox1.Text
con.Open()
lector = cmd.ExecuteReader
If lector.Read Then
Dim tabla AsNew DataTable
da.Fill(tabla)
Me.DataGridView1.DataSource = tabla
EndIf
EndIf
Catch ex As Exception
EndTry
EndSub
EndClass
