Foros del web, para los que viven de bits

colinaoz · 22-oct-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 · 22-oct-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 · 23-oct-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 · 23-oct-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 · 23-oct-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 · 23-oct-2004, 09:27

Opps

perdon es :

set rs=cn.execute(sql)

jrp01 · 23-oct-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 · 23-oct-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 · 23-oct-2004, 09:46

No debería de ir

Código PHP:


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

colinaoz · 23-oct-2004, 09:47

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

2Fast To You · 23-oct-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 · 23-oct-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 · 23-oct-2004, 10:15

Me da un ERROR diciendo:

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

Saludos

GeoAvila · 23-oct-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 · 23-oct-2004, 10:19

Me dice

La operacion no esta permitida si el objeto esta cerrado

Saludos

2Fast To You · 23-oct-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 · 23-oct-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 · 23-oct-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 · 23-oct-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 · 23-oct-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 · 23-oct-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

22-oct-2004, 14:56	#1 (permalink)
colinaoz Fecha de Ingreso: junio-2004 Mensajes: 20	Boton De Buscar Bd En Vb6 Ayudaaaa ¡¡¡LEELO 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... Última edición por colinaoz; 22-oct-2004 a las 14:58.

22-oct-2004, 15:13	#2 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	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 __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 09:23	#3 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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

23-oct-2004, 09:25	#4 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	Solo una soca si es texto a buscar ponlo asi: Sentencia = "select ...... where nombre like '" & text1.text & "'" Debe de ir entre comillas Saludos __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 09:26	#5 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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 & "'"`

23-oct-2004, 09:27	#6 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	Opps perdon es : set rs=cn.execute(sql) __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 09:30	#7 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	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 __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 09:45	#8 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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

23-oct-2004, 09:46	#9 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	No debería de ir Código PHP: `sql = "select la_tabla where campo like %'" & txtNombre.Text & "'%"`

23-oct-2004, 09:47	#10 (permalink)
colinaoz Fecha de Ingreso: junio-2004 Mensajes: 20	Aja Amistad Y La Declaracion De Variable Donde La Pongo En El Form O En El Boton Tambien

23-oct-2004, 10:02	#11 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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

23-oct-2004, 10:15	#13 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	Me da un ERROR diciendo: Error de sinsxis de la exprecion de consula "Nombre like %Javier% Saludos

23-oct-2004, 10:19	#15 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	Me dice La operacion no esta permitida si el objeto esta cerrado Saludos

23-oct-2004, 10:20	#16 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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`

23-oct-2004, 11:14	#18 (permalink)
GeoAvila Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala Mensajes: 3.818	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.. __________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com Última edición por GeoAvila; 23-oct-2004 a las 11:16.

23-oct-2004, 11:55	#19 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	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 __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 12:02	#20 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594	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

23-oct-2004, 12:02	#21 (permalink)
jrp01 Fecha de Ingreso: mayo-2004 Ubicación: México Mensajes: 2.703	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 __________________ C2D E6550 2.33Ghz@3.2Ghz / Evga 680i SLI / XFX Geforce 8800GT 512MB/ 2x1GB DDR2 800 G. Skill / OCZ Modstream 520W/ Viewsonic VX1940W 19"

23-oct-2004, 12:04	#22 (permalink)
2Fast To You Fecha de Ingreso: septiembre-2003 Ubicación: Santo Domingo - R. Dominicana Mensajes: 594