viernes, 12 de febrero de 2010

BUSQUEDA EN .NET

DESCARGAR PROYECTO EN .NET
DESCARGAR PROYECTO EN .NET

'BUSCAR
Dim dbConnection As Data.SqlClient.SqlConnection
Dim CadenaConexion As String
Try
CadenaConexion = ""
dbConnection = New Data.SqlClient.SqlConnection(CadenaConexion)
dbConnection.Open()
Catch e1 As Exception
MsgBox("Error al crear la conexión:" & vbCrLf & e1.Message)
Exit Sub
End Try


Dim resultado As Data.DataSet = New Data.DataSet()
Dim sentencia As Data.SqlClient.SqlDataAdapter
Dim fila As Data.DataRow
Dim instruccion, NombreTabla As String
NombreTabla = "aprendices"
instruccion = "select * from aprendices where cedula='" & TextBox1.Text & "'"
sentencia = New Data.SqlClient.SqlDataAdapter(instruccion, dbConnection)
Try
sentencia.Fill(resultado, NombreTabla)
Catch ex As Exception
MsgBox("error de busqueda" & ex.Message)

End Try
For Each fila In resultado.Tables(NombreTabla).Rows
TextBox2.Text = fila(1).ToString
TextBox3.Text = fila(2).ToString
Next

No hay comentarios:

Publicar un comentario