Boton De Buscar Bd En Vb6 Ayudaaaa ¡¡¡LEELO

colinaoz · #1 (**permalink**) 22/10/2004, 14:56

Amigos Necesito Saber Como Buscar Por Cedula En Un Form Que Hice . El Cual Contiene Varios Campos,nombre,apellido,direccion,cedula.etc. Ya La Bd Esta Conectada De Access En Vb Pero Necesito Que Al Introducir En El Texbox El Numero De Cedula Y Presionar El Boton Buscar Me Aparesca En El Form El Usuario Que Tenga El Ese Numero De Cedula Que He Introducido. Por Favor Ayudenme Con Esto...ustedes Son Los Que Saben...

jrp01 · #2 (**permalink**) 22/10/2004, 15:13

Es facil:

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string

en el boton:

sql="select tus_campos from tu_tabla where tu_campo_para_busqueda=" & text1.text
set rs=cn.execute(sentencia)
if isnull(rs(0)) then
msgbox "No Existe el registro"
else
text2.text=rs!tucampo ' o tambien rs(1)
......
end if

Saludos

2Fast To You · #3 (**permalink**) 23/10/2004, 09:23

Hola Amigos

Bueno, estoy probando el Código y cuando lo ejecuto que escribo el Nombre de la Persona a Busca me dice

Error "-2147217908" (800040e0c) en tiempo de ejecución
No se estableció ningpun texto de comando para el objeto de comando

Y cuando le doy a DEPURAR me marca

Código PHP:

   Set rs = cn.Execute(sentencia)

Saludos

jrp01 · #4 (**permalink**) 23/10/2004, 09:25

Solo una soca si es texto a buscar ponlo asi:

Sentencia = "select ...... where nombre like '" & text1.text & "'"

Debe de ir entre comillas

Saludos

2Fast To You · #5 (**permalink**) 23/10/2004, 09:26

Es decir donde dice:

Código PHP:

  Set rs = cn.Execute(sentencia)

Lo Cambio por:

Código PHP:

  Sentencia = "select directorio where nombre like '" & txtNombre.text & "'"

jrp01 · #6 (**permalink**) 23/10/2004, 09:27

Opps

perdon es :

set rs=cn.execute(sql)

jrp01 · #7 (**permalink**) 23/10/2004, 09:30

No el anterior es por si buscar un texto no numeros si quires buscar varias coincidencias es asi:

Sql="select.... where nombre like %'" & text1.text & "'%"

Pequeño error en lugar de sentencia es sql el string que declaras arriba

Saludos

2Fast To You · #8 (**permalink**) 23/10/2004, 09:45

Wey, no hace nada cuando pongo el nombres: Ejemplo: Adrián López Torres

Código PHP:

  sql = "select.... where nombre like %'" & txtNombre.Text & "'%"

No hace nada

Saludos

2Fast To You · #9 (**permalink**) 23/10/2004, 09:46

No debería de ir

Código PHP:

  sql = "select la_tabla where campo like %'" & txtNombre.Text & "'%"

colinaoz · #10 (**permalink**) 23/10/2004, 09:47

Aja Amistad Y La Declaracion De Variable Donde La Pongo En El Form O En El Boton Tambien

2Fast To You · #11 (**permalink**) 23/10/2004, 10:02

Hola Amigo

Tengo compuesto el Codigo del Boton Así:

Código PHP:

  Private Sub Command1_Click()

sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre=" & txtNombre.Text

Set rs = cn.Execute(sql = "select.... where Nombre like %'" & txtNombre.Text & "'%")

If IsNull(rs(0)) Then

MsgBox "No Existe el registro"

Else

txtNombre.Text = rs!Nombre  o tambien rs(1)

End If

End Sub

Esta bien ??

Saludos

GeoAvila · #12 (**permalink**) 23/10/2004, 10:11

Código:

Private Sub Command1_Click() 
dim sql as string
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%"
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
End Sub

2Fast To You · #13 (**permalink**) 23/10/2004, 10:15

Me da un ERROR diciendo:

Error de sinsxis de la exprecion de consula "Nombre like %Javier%

Saludos

GeoAvila · #14 (**permalink**) 23/10/2004, 10:18

un leve error de copy and paste...

Código:

Private Sub Command1_Click() 
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%"
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
end sub

2Fast To You · #15 (**permalink**) 23/10/2004, 10:19

Me dice

La operacion no esta permitida si el objeto esta cerrado

Saludos

2Fast To You · #16 (**permalink**) 23/10/2004, 10:20

Mi Form esta compuesto por el Siguiente Codifgo:

Código PHP:

  Dim cn As New adodb.Connection

Dim rs As New adodb.Recordset

Dim sql As String

 
Private Sub Command1_Click()

Dim cn As New adodb.Connection

Dim rs As New adodb.Recordset

Dim sql As String

sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%"

Set rs = cn.Execute(sql)

If IsNull(rs(0)) Then

MsgBox "No Existe el registro"

Else

txtNombre.Text = rs!Nombre  o tambien rs(1)

End If

End Sub

GeoAvila · #17 (**permalink**) 23/10/2004, 11:03

bueno si no estoy mal no estas abriendo la conexion y otra cosas lo que esta qui abajo es lo unico que tendrias que tener en tu form es una manera de hacerlo...

Código:

Private Sub Command1_Click() 
Dim cn As New adodb.Connection 
Dim rs As New adodb.Recordset 
Dim sql As String 
cn.open = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;" 
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%" 
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
End Sub

aqui esta otra manera, estas variables estarian declaradas para cualquier evento dentro del form...

Código:


Dim cn As New adodb.Connection 
Dim rs As New adodb.Recordset 
Dim sql As String
Private Sub Command1_Click() 
cn.open = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;" 
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%" 
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
End Sub

GeoAvila · #18 (**permalink**) 23/10/2004, 11:14

y algo mas

Código:

sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like '%" & txtNombre.Text & "%'"

las apostrofes van de lado afuera...
bueno eso pasa por no poner mucha atencion..

disculpa por las errones respuestas, pero errar es de humanos y aqui va la respuesta a tu problema..

jrp01 · #19 (**permalink**) 23/10/2004, 11:55

Tienes declarada cn?

por ejem si es access:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tuBD.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=Tu_pass"

De esta manera abres la conecion con la Base de datos

2Fast To You · #20 (**permalink**) 23/10/2004, 12:02

Hola Amigo

Ya hable con GeoAvila y me ayudo con todo, Gracias. pero ahora me da un Error cuando le doy a Editar.

El RecordSet Actual no admite actualizaciones. Puede ser una limitación del Proveedor o del tipo de bloqueeo seleccionado

Como hago para que acepte Actualizar.

Código PHP:

  rs.Update

Saludos

jrp01 · #21 (**permalink**) 23/10/2004, 12:02

Si dusculpa por los pequeños errores es que en la maquina que tengo enfrente no tiene VB todo te lo esoty diciendo de lo que me acuerdo.

Nadie es perfecto

Solo te recomiendo 2Fast To You que leas un buen manual de SQL ya que es indispensable saber esto ya que pense que comprenderias donde puse "select ..." solo estaba ahorrando espacio y pense que sabrias que poner en lugar de los ...

Hay que leer

Saludos

2Fast To You · #22 (**permalink**) 23/10/2004, 12:04

Por favor lee el Post que te escribí anteriormente

Cita:

Iniciado por 2Fast To You

Hola Amigo

Ya hable con GeoAvila y me ayudo con todo, Gracias. pero ahora me da un Error cuando le doy a Guadar.

El RecordSet Actual no admite actualizaciones. Puede ser una limitación del Proveedor o del tipo de bloqueeo seleccionado

Como hago para que acepte Actualizar.

Código PHP:

  rs.Update

Saludos