Regístrate gratis para participar de los foros, o si ya estás registrado haz login.

Visual basic 6.0

comentario del autor	Jue Mar 20, 2003 2:00 am
quien me puede decir que estoy haciendo de mal en este filtro, quiero filtrar domicilio comercial junto con codigo postal ( cuando filtro por dom_com me sale bien pero cuando le agrego que tambien filtre por codigo postal (lza_com) me un mesaje de error que dice... "error 13 en tiempo de ejecucion, no coinciden los tipos" eso pasa cuando le doy al boton "buscar de mi formulario: Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Debe ingresar algún valor" + Chr(10) + "para la búsqueda correspondiente", _ vbOKOnly + vbInformation, "Advertencia" Text1.SetFocus Else Adodc1.Recordset.Filter = "dom_com like '" & Text1.Text & "*'" & Adodc1.Recordset.Filter("lza_com=" + Text1.Text) End If End Sub desde ya muy agradecido!!!!	Pxblo_23
sin valorar	Lun Ago 25, 2003 10:59 am
Fijate si lza_com es numerico tendrias que convertir el txt: Adodc1.Recordset.Filter("lza_com=" + val(text1.txt)) Si no entendi mal esa seria la solucion. Espero te sirva de ayuda.	ChS
sin valorar	Lun Ago 25, 2003 11:39 am
Hola, Me parece que la estas complicando demasiado porque no usas sentencias de SQL (no se que tipo de base de datos estas usando pero provablemente sea Ms Access), tendrias que agregar otro cuadro de texto para el codigo postal y seria asi: Sql=select * from (nombre de la dase de datos) where dom_com like " & text1.text & " and lza_com like " & text2.text esta sintaxis se utiliza abriendo la base de datos a travez del codigo, si no sabes como hacerlo decime , que te paso el codigo. otra sugerencia: a los cuadros de texto te conviene ponerle nombres que se asocien con lo que se va a ingresar porque despues de unos cuantos text te vas a entreverar. espero que te sirva de algo. Pxblo_23 escribió:quien me puede decir que estoy haciendo de mal en este filtro, quiero filtrar domicilio comercial junto con codigo postal ( cuando filtro por dom_com me sale bien pero cuando le agrego que tambien filtre por codigo postal (lza_com) me un mesaje de error que dice... "error 13 en tiempo de ejecucion, no coinciden los tipos" eso pasa cuando le doy al boton "buscar de mi formulario: Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Debe ingresar algún valor" + Chr(10) + "para la búsqueda correspondiente", _ vbOKOnly + vbInformation, "Advertencia" Text1.SetFocus Else Adodc1.Recordset.Filter = "dom_com like '" & Text1.Text & "*'" & Adodc1.Recordset.Filter("lza_com=" + Text1.Text) End If End Sub desde ya muy agradecido!!!!	Invitado: Sergito
sin valorar	Mie Sep 23, 2009 12:44 pm
solo fijate en las comillas la otra sentencia va dentro de las mismas comillas y asi puedes agregar varias sentencias mas *Adodc1.Recordset.Filter = "TITULO like ('" & buscar & "') Or AUTORES like ('" & buscar & "')"* donde buscar es el valor que contiene el text espero te sirva	eaoc