Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - software gestionale
Forum - Visual Basic 6 - software gestionale

Avatar
capenti (Normal User)
Newbie


Messaggi: 1
Iscritto: 25/10/2016

Segnala al moderatore
Postato alle 11:11
Martedì, 25/10/2016
Salve a tutti, io sto facendo una prova per capire quale strada prendere per realizzare un software gestionale. L'azienda dove sto eseguendo questo progetto mi ha chiesto specificatamente di realizzare il tutto in vb6 con una connessione ADO  utilizzando access 2007. Una volta che ho caricato i miei archivi e strutturato le tabelle vado a creare la mia query:


se = "SELECT MOVMAG.A2_DATA_REGISTRAZIONE, MAGANA.A3_FAMIGLIA_CODICE, MOVMAG.A2_ARTICOLO_CODICE," & _
     "MOVMAG.A3_TIPO_CLI1_FOR2_ALTRO0, MOVMAG.A3_CODICE_CLIFOR, MOVMAG.A1_NUMERO_DOCUMENTO," & _
     "MOVMAG.DESCRIZIONE, MOVMAG.UNITA_MISURA, MOVMAG.QUANTITA, MOVMAG.PREZZO," & _
     "MOVMAG.A1_PROGRESSIVO, MOVMAG.XFLAG_AREA_PERSONALIZZAZIONI, MOVMAG.A1_CAUSALE_CODICE," & _
     "MAGANA.A3_FAMIGLIA_CODICE"
    
fr = "FROM MOVMAG INNER JOIN MAGANA ON (MOVMAG.A1_DITTA_CODICE = MAGANA.A1_DITTA_CODICE) AND" & _
     "(MOVMAG.A2_ARTICOLO_CODICE = MAGANA.A1_ARTICOLO_CODICE)"
      

wh = "WHERE (MOVMAG.A2_DATA_REGISTRAZIONE>=" & DADATA & " And MOVMAG.A2_DATA_REGISTRAZIONE<=" & ADATA & " " & _
       "AND ((MOVMAG.A3_TIPO_CLI1_FOR2_ALTRO0)=2) AND ((MAGANA.A3_FAMIGLIA_CODICE)=50))"

MOVMAG.Open se & fr & wh, ACUODBC, , adLockOptimistic

Purtroppo vb6 continua a darmi lo stesso errore : "errore di run-time 2147467259 (80004005)"
A mio parere sembra che vb6 non riesca a gestire il mio INNER JOIN.
Soluzioni?



Ultima modifica effettuata da capenti il 25/10/2016 alle 11:13
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 11:38
Martedì, 25/10/2016
Non è il VB6 a gestire le JOIN o le altre parti della query. Quelle sono eseguite dal motore del DB, Jet nel tuo caso.

Hai provato ad eseguire la query dall'interno di Access, se lo hai installato?


P.S. Fare un nuovo progetto in VB6 e non in VB.NET/C# non mi pare una grande idea. Fallo presente al cliente.

Ultima modifica effettuata da nessuno il 25/10/2016 alle 14:16


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
Goblin (Member)
Expert


Messaggi: 268
Iscritto: 02/02/2011

Segnala al moderatore
Postato alle 12:02
Mercoledì, 26/10/2016
Testo quotato

Postato originariamente da capenti:


se = "SELECT MOVMAG.A2_DATA_REGISTRAZIONE, MAGANA.A3_FAMIGLIA_CODICE, MOVMAG.A2_ARTICOLO_CODICE," & _
     "MOVMAG.A3_TIPO_CLI1_FOR2_ALTRO0, MOVMAG.A3_CODICE_CLIFOR, MOVMAG.A1_NUMERO_DOCUMENTO," & _
     "MOVMAG.DESCRIZIONE, MOVMAG.UNITA_MISURA, MOVMAG.QUANTITA, MOVMAG.PREZZO," & _
     "MOVMAG.A1_PROGRESSIVO, MOVMAG.XFLAG_AREA_PERSONALIZZAZIONI, MOVMAG.A1_CAUSALE_CODICE," & _
     "MAGANA.A3_FAMIGLIA_CODICE"
    
fr = "FROM MOVMAG INNER JOIN MAGANA ON (MOVMAG.A1_DITTA_CODICE = MAGANA.A1_DITTA_CODICE) AND" & _
     "(MOVMAG.A2_ARTICOLO_CODICE = MAGANA.A1_ARTICOLO_CODICE)"
      

wh = "WHERE (MOVMAG.A2_DATA_REGISTRAZIONE>=" & DADATA & " And MOVMAG.A2_DATA_REGISTRAZIONE<=" & ADATA & " " & _
       "AND ((MOVMAG.A3_TIPO_CLI1_FOR2_ALTRO0)=2) AND ((MAGANA.A3_FAMIGLIA_CODICE)=50))"

MOVMAG.Open se & fr & wh, ACUODBC, , adLockOptimistic

Purtroppo vb6 continua a darmi lo stesso errore : "errore di run-time 2147467259 (80004005)"
A mio parere sembra che vb6 non riesca a gestire il mio INNER JOIN.
Soluzioni?





Così ad occhio dire che quando sommi le stringe che compongo la query non tieni conto dei vari spazi che ci devono essere tra una select un from e un where ...
potresti provare :
Codice sorgente - presumibilmente Plain Text

  1. MOVMAG.Open se &" "& fr &" "& wh, ACUODBC, , adLockOptimistic




Ibis et redibis non morieris in bello
PM Quote