Visual Basic 6 - software gestionale

Forum - Visual Basic 6 - software gestionale

capenti (Normal User)
Newbie

Messaggi: 1
Iscritto: 25/10/2016

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

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

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 ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

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

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

Ibis redibis non morieris in bello