Busqueda de datos

[arcr]

HOLA SOY ROSSY Y NECESITO AYUDA

QUIERO HACER UNA BUSQUEDA EN UNA BASE DE DATOS USANDO SQL 2005 CONECTADA CON VISUAL BASIC 6.0 POR MEDIO DE UN ADODC

SE HACERLO USANDO UNA LLAVE PRINCIPAL PERO NECESITO SABER COMO LO HAGO CON 2 LLAVES PRINCIPALES COMBINADAS Y NO LO PUEDO RESOLVER
PODRIA ALGUIEN AYUDARME?

CON UNA LLAVE PRINCIPAL LO HAGO DE LA SIGUIENTE MANERA

Dim buscar, clave As String
adoclientes.Refresh
buscar = "idcliente= '" + txtclave_cliente.Text + "'"
adoclientes.Recordset.Find buscar

SI ME FUNCIONA CON UNA CLAVE

CON 2 CLAVES LO HAGO DE LA SIGUIENTE MANERA:

adocliente_por_articulo.Refresh
clave = "idcliente= '" + txtclave_cliente.Text + "'" & " idarticulo= '" + Str(x) + "'"
adocliente_por_articulo.Recordset.Find clave


PERO CON 2 CLAVES NO ME FUNCIONA APARECE UN ERROR QUE DICE ASI:

ERROR '3001' en tiempo de ejecución:

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

ALGUIEN ME PODRIA AYUDAR A CORREGIR ESTE ERROR??????
SE LO AGRADECERE MUCHISIMO

[David]

¿Has intentado poniendo así?:

Código:

clave = "idcliente= '" + txtclave_cliente.Text + "' AND " & " idarticulo= '" + Str(x) + "'"

[Jhonnyf]

intenta cambiando los + por & y adicionalmente metele un and para unir las 2 condiciones

clave = "idcliente= '" & txtclave_cliente.Text & "'" & " and idarticulo= '" & Str(x) & "'"

[arcr]

Muchas gracias por su respuesta chicos pero ya cambie la sintaxis por la que ustedes me dijeron y no me sale bien sigue marcando el mismo error

[arcr]

Tendrian otra solucion para esto??????? por que la verdad ya no hayo como corregirlo

[Jhonnyf]

- como es la estructura de tu tabla (nombre de campos y tipo de datos)
- como es tu select que estas usando?

segun tu FIND, estas busccando 2 claves de tipo TEXTO, ojo con eso U_U

[Avellaneda]

Hola,

el problema es que el método Find no admite dos condiciones, debes hacerlo con el método Filter, algo así:

adocliente_por_articulo.Filter = "idCliente '" & txtclave_cliente.Text & "' AND idarticulo = '" & Str(x) & "'"

[Jhonnyf]

Iniciado por Avellaneda

Hola,

el problema es que el método Find no admite dos condiciones, debes hacerlo con el método Filter, algo así:

adocliente_por_articulo.Filter = "idCliente '" & txtclave_cliente.Text & "' AND idarticulo = '" & Str(x) & "'"

tienes Razón.....

Adicionalmente, no recuerdo bien, pero debes poner el filter en "" para usarlo otra vez (no recuerdo bien, sorry)

[arcr]

Hola chicos agradezco muchisimo la ayuda que me han brindado y ya probe todas las opciones que me han brindado pero aun no puede salirme la busqueda de las 2 llaves secundarias ya probe lo de filter y tampoco me sale.

Agradeciria muchisimo si pudieran brindarme otras opciones gracias

pues necesito urgentemente que me salga eso

[arcr]

Saben porque no se puede con filter??? me marca error de que no coinciden los tipos lo que pasa es que la funcion filter admite valores enteros y lo que estoy usando es una cadena por eso no es posible hacerlo con filter

bueno es lo que yo deduje

[Avellaneda]

Iniciado por arcr

Saben porque no se puede con filter??? me marca error de que no coinciden los tipos lo que pasa es que la funcion filter admite valores enteros y lo que estoy usando es una cadena por eso no es posible hacerlo con filter

bueno es lo que yo deduje

No, no creo que sea por eso. La función Filter devuelve un conjunto de registros que cumplan la condición dada, sean valores enteros o cadenas de text.
Si "adocliente_por_articulo" es un control Data, debes ponerlo así:

adocliente_por_articulo.Recordset.Filter = "idCliente = '" & txtclave_cliente.Text & "' AND idarticulo = '" & Str(x) & "'"

Nota: en el post anterior olvidé poner el signo igual que marco en azul.

[arcr]

Quiero agradecer a todos los que me ayudaron con mi problema de busqueda de datos. Son muy buenos estos foros de la web y realmente nos ayudan a resolver nuestros problemas y de manera rápida.

Muchisimas gracias Avellaneda usted es profesor o algo asi??????? Me sirvio muchisimo su ultima aportación se resolvio mi problema al que ya me estaba resignando pues crei que no tenia solucion pero gracias a usted seguire con mi sistema.

Tal vez luego siga visitandolos trayendo mis dudas, deseo que tenga mucho exito en todo lo que haga muchas gracias

[Avellaneda]

Iniciado por arcr

Muchisimas gracias Avellaneda usted es profesor o algo asi???????

jajaja! No, de momento no soy profesor, espero serlo algún día (?glup¿). Ahora soy un simple estudiante a punto de acabar la carrera.

y, por favor! no me llames de usted que me hace parecer profesor. Aquí somos todos "colegas"

Un saludo y sigue visitándonos cada vez que tengas una duda!