[VB6] Data Environment e Find su campo stringa

[LupinI]

Salve a tutti.
Non riesco a eseguire una "Find" di un campo di testo su un DB access & DataEnvironment.

Ho 2 connessioni aperte su altrettante tabelle appartenenti a 2 DB differenti:

- DE1.rstabella1 (col puntatore sul primo record)
- DE1.rstabella2 (con il puntatore su un determinato record)

Vorrei eseguire una Find su DE1.rstabella1 sul campo "stringa_find" utilizzando come valore di ricerca "DE1.srtabella2!stringa_find

Ho tentato in mille modi senza riuscirci. In genere eseguo solo Find su valori numerici ed è estremamente semplice.
Spero nel vostro aiuto. Grazie.

[optime]

fa' vedere come fai di solito con un mumero

[LupinI]

Ti elenco direttamente il codice che mi blocca.

1) DE1.rstabella2 è già aperta ed il puntatore si trova sul record desiderato ed il campo da ricercare si chiama "Stringa_find".

2) Apro DB in cui effettuare la ricerca sul campo "Stringa_find"
DE1.rstabella1.Open
3) effettuo la ricerca
Ricerca = "Stringa_find " & "LIKE('" & Trim(Replace(DE1.rstabella2!stringa_find, "'", "''")) & "%')"

Qui mi da errore: Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

Eventualmente, per semplificare il codice, posso fare a meno anche del Replace perché in questo campo di sicuro non ho il carattere da rimpiazzare.

[oregon]

Il DE è uno degli strumenti di VB6 che su evitava di usare già 25 anni fa per i bug... riproporlo oggi mi sembra assurdo. Comunque quella like non è scritta correttamente

[LupinI]

Il DE è uno degli strumenti di VB6 che su evitava di usare già 25 anni fa per i bug... riproporlo oggi mi sembra assurdo. Comunque quella like non è scritta correttamente

Non metto in dubbio le tue considerazioni anche perché non ho le tue conoscenze, ma ho bisogno di una mano. Se pui suggerisci una soluzione, grazie

[optime]

Ricerca = "Stringa_find " & "LIKE('" & Trim(Replace(DE1.rstabella2!stringa_find, "'", "''")) & "%')"

Qui mi da errore: Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

cioè, già solo scrivendo Ricerca = "Stringa_find ... ti dà errore?

[LupinI]

cioè, già solo scrivendo Ricerca = "Stringa_find ... ti dà errore?

Esplicito il più possibile in modo da evitare equivoci:

la riga che genera l'errore è:

DE1.rstabella2.Find Ricerca

dove la variabile

Ricerca = "Stringa_find  " & "LIKE('" & Trim(Replace(DE1.rstabella2!stringa_find, "'", "''")) & "%')"

debug.print   Stringa_find LIKE("ABCDEF-002-00003*")

[optime]

dovrebbe essere

DE1.rstabella2.Find "Stringa_find LIKE 'ABCDEF-002-00003%'"

attenzione agli apici che debbono essere singoli, non doppi, altrimenti mandi in confusione il parser

[LupinI]

dovrebbe essere

DE1.rstabella2.Find "Stringa_find LIKE 'ABCDEF-002-00003%'"

attenzione agli apici che debbono essere singoli, non doppi, altrimenti mandi in confusione il parser

Problema risolto, alla fine era un errore nella sintassi.
Ti ringrazio infinitamente per il supporto.

[oregon]

Problema risolto, alla fine era un errore nella sintassi.
Ti ringrazio infinitamente per il supporto.

Ti avevo detto di controllare la like... e anche in

https://www.iprogrammatori.it/forum-....html#p8625243

ti avevo suggerito come fare...