Stupid Vb 6
Last Updated: Oct 25 2004 13:26, Started by
DeathRipple
, Oct 03 2004 11:47
·
0
#1
Posted 03 October 2004 - 11:47
:angry: dupa o vreme in care nu am avut timp nici sa mor....revin prin zona cu o intrebare. am ajuns sa fac si vb6 cu access....
iata despre ce e vorba... i = 0 rec.Source = "select [id_acc] from caract_acc where nume_acc='Locatia' and val_acc like '*" & Trim(fr2_2_cmb.Text) & "*'" rec.Open Do While Not rec.EOF i = i + 1 rec.MoveNext Loop vreau sa vad cate randuri intoarce interogarea respectiva; cum .recordcount nu merge in access, am luat-o dupa cum se vede mai sus....surpriza. desi tre' s primesc o valoare nenula, nu se intampla asa...am dat paste la select-ul de mai sus intr-un query in access si mi-a returnat corect....still....nu intra in while-ul ala nici sa-l pisti cu ceara. daca elimin a doua conditie (cea cu like), atunci intra.....i'm lost....ce gresesc ?? |
#2
Posted 03 October 2004 - 13:09
DeathRipple, on Oct 3 2004, 12:47, said: :angry: dupa o vreme in care nu am avut timp nici sa mor....revin prin zona cu o intrebare. am ajuns sa fac si vb6 cu access.... iata despre ce e vorba...       i = 0       rec.Source = "select [id_acc] from caract_acc where nume_acc='Locatia' and val_acc like '*" & Trim(fr2_2_cmb.Text) & "*'"       rec.Open       Do While Not rec.EOF         i = i + 1         rec.MoveNext       Loop vreau sa vad cate randuri intoarce interogarea respectiva; cum .recordcount nu merge in access, am luat-o dupa cum se vede mai sus....surpriza. desi tre' s primesc o valoare nenula, nu se intampla asa...am dat paste la select-ul de mai sus intr-un query in access si mi-a returnat corect....still....nu intra in while-ul ala nici sa-l pisti cu ceara. daca elimin a doua conditie (cea cu like), atunci intra.....i'm lost....ce gresesc ?? @offtopic: Inainte de a face afirmatzii "stupid"e ar trebui sa fi mai atent ... la ce "spui" :-))))) VB-ul nu are nici o vina in problema ta (in proportzie de 99%). Visual Basic este un limbaj extraordinar cu un IDE ft. bun daca e folosit cum trebuie si de catre cine ii cunoaste potentialul. Nu-mi venitzi cu prostii de genul VB 6 nu suporta mostenirea ... Solutii acuma: 1. Incearca rec.MoveLast Debug.Print rec.RecordCount sau 2. rec.Source = "select COUNT([id_acc]) from caract_acc where ..." rec.Open Debug.Print rec(0).Value sau 3. Asigurate ca "val_acc" este un câmp de tip text sau 4. Instaleaza un service pack pentru MDAC-ul care il ai instalat sau 5. Compacteaza bd Access sau 6. Instaleaza un service pack pentru Visual Basic 6 :raygun: Edited by sp_attach_db, 03 October 2004 - 13:13. |
#3
Posted 04 October 2004 - 15:02
sp_attach_db, on Oct 3 2004, 14:09, said: @offtopic: Inainte de a face afirmatzii "stupid"e ar trebui sa fi mai atent ... la ce "spui" :-))))) VB-ul nu are nici o vina in problema ta (in proportzie de 99%). Visual Basic este un limbaj extraordinar cu un IDE ft. bun daca e folosit cum trebuie si de catre cine ii cunoaste potentialul. Nu-mi venitzi cu prostii de genul VB 6 nu suporta mostenirea ... Solutii acuma: 1. Incearca rec.MoveLast Debug.Print rec.RecordCount sau 2. rec.Source = "select COUNT([id_acc]) from caract_acc where ..." rec.Open Debug.Print rec(0).Value sau 3. Asigurate ca "val_acc" este un câmp de tip text sau 4. Instaleaza un service pack pentru MDAC-ul care il ai instalat sau 5. Compacteaza bd Access sau 6. Instaleaza un service pack pentru Visual Basic 6 :raygun: nota ironica imi este adresata si nu sustin ceea ce e scris acolo....evident.acuma: 1. err: rowset does not support fetching backward...logic, din moment ce nu returneaza nici un rand 2. nu afiseaza nimic :D 3. este 4, 5 si 6 - nu am avut timp inca....o sa revin cu detalii dupa ce fac lucrul asta |
#4
Posted 04 October 2004 - 16:14
DeathRipple, on Oct 4 2004, 16:02, said: nota ironica imi este adresata si nu sustin ceea ce e scris acolo....evident.acuma: 1. err: rowset does not support fetching backward...logic, din moment ce nu returneaza nici un rand 2. nu afiseaza nimic :D 3. este 4, 5 si 6 - nu am avut timp inca....o sa revin cu detalii dupa ce fac lucrul asta 0. nici nu ma asteptam, da' asta e o alta problema :-) 1. este rec.MoveLast nu move first !!! la rec.MoveLast trec-ul tau trebuie sa fie de tip FORWARD (refuz sa cred ca e cel putin de tip forward). Observati: logica ta nu mi-a spus ce tip de cursor ai folosit ?! 2. Verifica select-ul -> COUNT in access sql view. Indiferent daca ai sau nu inreg care sa verifice sau nu conditia interogarea (ti-o recomand cu "caldura"-dar fara ghilimele;cine a inteles ceva de aici sa-mi spune si mie :-) trebuie sa intoarca o inregistrare cu un camp in care este nr. total de inregistrari -> mai pe romaneste tb sa intoarca o singura valoare, si mai clar cel putin 0 (zero). Daca SELECT-ul in vb nu-ti intoarece nimic treci la 4,5 sau 6 (eventual instaleaza un MDAC mai nou) :raygun: Edited by sp_attach_db, 04 October 2004 - 16:16. |
#5
Posted 04 October 2004 - 16:47
sp_attach_db, on Oct 4 2004, 17:14, said: 0. nici nu ma asteptam, da' asta e o alta problema :-) 1. este rec.MoveLast nu move first !!! la rec.MoveLast trec-ul tau trebuie sa fie de tip FORWARD (refuz sa cred ca e cel putin de tip forward). Observati: logica ta nu mi-a spus ce tip de cursor ai folosit ?! 2. Verifica select-ul -> COUNT in access sql view. Indiferent daca ai sau nu inreg care sa verifice sau nu conditia interogarea (ti-o recomand cu "caldura"-dar fara ghilimele;cine a inteles ceva de aici sa-mi spune si mie :-) trebuie sa intoarca o inregistrare cu un camp in care este nr. total de inregistrari -> mai pe romaneste tb sa intoarca o singura valoare, si mai clar cel putin 0 (zero). Daca SELECT-ul in vb nu-ti intoarece nimic treci la 4,5 sau 6 (eventual instaleaza un MDAC mai nou) :raygun: oi fi eu slab la vb, da' nici chiar asa de slab...pen' ca am cursor setat pe forward only (adOpenForwardOnly), la faza cu movelast....belive me, e chiar movelast; STIU ce trebuie sa intoarca count() pen' ca l-am folosit de mai multe ori in diverse programe...va trebui sa incerc 4,5,6...sper sa vin in curand cu noi clarificari pe tema asta....sper sa am timp azi danke |
#6
Posted 04 October 2004 - 20:37
DeathRipple, on Oct 4 2004, 17:47, said: oi fi eu slab la vb, da' nici chiar asa de slab...pen' ca am cursor setat pe forward only (adOpenForwardOnly), la faza cu movelast....belive me, e chiar movelast; STIU ce trebuie sa intoarca count() pen' ca l-am folosit de mai multe ori in diverse programe...va trebui sa incerc 4,5,6...sper sa vin in curand cu noi clarificari pe tema asta....sper sa am timp azi danke m-ai facut curios. cand o rezolvi pune de'n post. :raygun: |
#7
Posted 04 October 2004 - 20:53
Revin.
E de rasul ... Uitasem de faza asta. Problema e ca trebuie sa folosesti la operatorul LIKE > % in loc de * !!! % vine de la standardul ANSI SQL. Cand executi comanda SELECT in ACCESS acesta inlocuieste (translateaza) automat * cu % si ? cu _ ... de aia itzi iese bine query-ul. * si ? sunt extensii SQL proprii Access-ului. De' .... faze MS. :-)))))))))))))))))))))))))))))))))))))))))))))0 :raygun: |
#8
Posted 05 October 2004 - 07:29
sp_attach_db, on Oct 4 2004, 21:53, said: Revin. E de rasul ... Uitasem de faza asta. Problema e ca trebuie sa folosesti la operatorul LIKE > % in loc de * !!! % vine de la standardul ANSI SQL. Cand executi comanda SELECT in ACCESS acesta inlocuieste (translateaza) automat * cu % si ? cu _ ... de aia itzi iese bine query-ul. * si ? sunt extensii SQL proprii Access-ului. De' .... faze MS. :-)))))))))))))))))))))))))))))))))))))))))))))0 :raygun: ai sa te superi pe mine....daca pun % in loc de * nu mai intoarce nici o inregistrare nici in sql view din access....si evident ca nici in program...mai incerc...e dimineata acum :D |
#9
Posted 05 October 2004 - 09:34
DeathRipple, on Oct 5 2004, 08:29, said: ai sa te superi pe mine....daca pun % in loc de * nu mai intoarce nici o inregistrare nici in sql view din access....si evident ca nici in program...mai incerc...e dimineata acum :D NUUUUUUUUUUUUUUUUUUUUU, nu mai inteles ! Access translateaza in sql view * cu % automat si ? cu _ tot automat. In Visual Basic interogarea va merge ... crede-ma ! :-) Surprize, surprize cu Bila a lu' Gates si fara Andreea Marin ! :-)))))))))) :raygun: |
#11
Posted 05 October 2004 - 10:00
sp_attach_db, on Oct 5 2004, 10:35, said: pai eu ce zic ? :) am inlocuit * cu % si...nada. mai mult: http://forums.aspfre...ead.php?t=22328 numai ca mie nu-mi trebuie pt pagini web...revin |
#12
Posted 05 October 2004 - 10:11
1. Daca executi interogarea in sql view folosesti in LIKE * <- am inteles ca merge asaha
2. Daca executi interogarea din Visual Basic folosesti in LIKE %. <- ai verificat ??? Nu are nici o legatura cu paginile web. :raygun: |
#13
Posted 05 October 2004 - 12:57
sp_attach_db, on Oct 5 2004, 11:11, said: 1. Daca executi interogarea in sql view folosesti in LIKE * <- am inteles ca merge asaha 2. Daca executi interogarea din Visual Basic folosesti in LIKE %. <- ai verificat ??? Nu are nici o legatura cu paginile web. :raygun: eu ce vorbesc de 2 posturi incoace? interogarea cu like cu % am incercat-o in aplicatie |
#15
Posted 06 October 2004 - 07:47
sp_attach_db, on Oct 5 2004, 17:27, said: Visual Studio 6.0 Service Pack 5 Setup was completed succesfully si ce daca....tot nu merge :) mai astept si alte sugestii, pen' ca eu nu mai am de multa vreme |
|
#16
Posted 06 October 2004 - 07:56
Ce "puishorii" mei sa mai zic ? :-)
Publica si tu (poate si un PM) 1. modalitatea de realizare a conexiunii afo, rdo, dao ... 2. secventa de cod pentru deschiderea conexiunii 2. secventa de cod finala pentru deschiderea recordsetului :raygun: eventual un atasament |
#17
Posted 06 October 2004 - 08:18
sp_attach_db, on Oct 6 2004, 08:56, said: Ce "puishorii" mei sa mai zic ? :-) Publica si tu (poate si un PM) 1. modalitatea de realizare a conexiunii afo, rdo, dao ... 2. secventa de cod pentru deschiderea conexiunii 2. secventa de cod finala pentru deschiderea recordsetului :raygun: eventual un atasament Dim con As New ADODB.Connection Dim rec As New ADODB.Recordset con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb" con.Open rec.CursorType = adOpenForwardOnly rec.ActiveConnection = con rec.Source = "select [id_acc] from caract_acc where (nume_acc='Locatia') and (val_acc like '*" & fr2_2_cmb.Text & "*')" rec.Open Do While Not rec.EOF MsgBox "orice" rec.MoveNext Loop |
#18
Posted 06 October 2004 - 09:01
aparent e ok.
ai diacritice sh tz ... in val_acc ? :raygun: |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users