Visual Basic - ayudaaa

Life is soft - evento anual de software empresarial
   
Vista:

ayudaaa

Publicado por valeria (1 intervención) el 11/05/2009 03:23:22
hola quisiera saber como hago para crear un boton de busqueda.
un ejemplo
tengo la base de datos de una eps
y que al insertar el numero del carnet
se llenen los text con la informacion que esta en la base de datos
si me pueden ayudar
lo agradeceria
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayudaaa

Publicado por Rolando Lau (115 intervenciones) el 11/05/2009 16:07:21
' dentro de la rutina donde pondras la funcion debes poner
Set pOperArchivo = CreateObject("Scripting.FileSystemObject")

Private Function LeeTXT(Ruta As String, archivo As String) As ADODB.Recordset
'Archivo es sin el .txt
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

'Cadena de conexión
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Ruta & ";", "", ""

'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
rs.Open "select * from [" & archivo & "#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText

'eliminamos las variables
Set fComponentes = rs
Set rs = Nothing
Set conn = Nothing
End Function

'luego simplemente tienes que filtrar el RS

Ejemplo

dim RS As New ADODB.Recordset

set RS = LeeTXT("C:/","Miarchivotxt")
luego

RS.Filter "campo1='%" & TEXT1.TEXT &"%' "

Esto busca o filtra al campo1 que puede ser cualquier otro nombre , con lo que se ingrese en text1.text

Espero te sirva este ejemplo

saludos

Rolando Lau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar