[VB6] sql connessione

[Magicolotto]

Dim sConnect As String
    Dim sSQL, data As String
    Dim dfwConn As ADODB.Connection
    Dim i As Integer


    ' imposta le stringhe
    sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" & App.Path & "\estrazioni.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"
    'sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE1,NZ1 from archivio"

ciao ragazzi, buone feste prima di tutto

ho un problema in quella connessione

i campi come ben sapete sono numerici in questa :
'sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE1,NZ1 from archivio

a questa devo cambiarli se essi sono usguali tra loro.... esempio

se BA1 = F1 ALLORA LA CONNESSIONE DOVREBBE ESSERE :

'sSQL = "select ID,Data,BA1,FI2,MI1,NA1,PA1,RO1,VE1,NZ1

cioè cambio il campo

ho provato cosi, ho messo questo con scarsissimo risultato :

If BA1 = FI1 Then
sSQL = "select ID,Data,BA1,FI2,MI1,NA1,PA1,RO1,VE1,NZ1 from archivio"
End If
If BA1 = MI1 Then
sSQL = "select ID,Data,BA1,FI1,MI2,NA1,PA1,RO1,VE1,NZ1 from archivio"
End If
If BA1 = NA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA2,PA1,RO1,VE1,NZ1 from archivio"
End If
If BA1 = PA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA2,RO1,VE1,NZ1 from archivio"
End If
If BA1 = RO1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO2,VE1,NZ1 from archivio"
End If
If BA1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If
If FI1 = MI1 Then
sSQL = "select ID,Data,BA1,FI1,MI2,NA1,PA1,RO1,VE1,NZ1 from archivio"
End If
If FI1 = NA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA2,PA1,RO1,VE1,NZ1 from archivio"
End If
If FI1 = PA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA2,RO1,VE1,NZ1 from archivio"
End If
If FI1 = RO1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO2,VE1,NZ1 from archivio"
End If
If FI1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If
If MI1 = NA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA2,PA1,RO1,VE1,NZ1 from archivio"
End If
If MI1 = PA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA2,RO1,VE1,NZ1 from archivio"
End If
If MI1 = RO1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO2,VE1,NZ1 from archivio"
End If
If MI1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If
If NA1 = PA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA2,RO1,VE1,NZ1 from archivio"
End If
If NA1 = RO1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO2,VE1,NZ1 from archivio"
End If
If NA1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If
If PA1 = RO1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO2,VE1,NZ1 from archivio"
End If
If PA1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If
If RO1 = VE1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA1,PA1,RO1,VE2,NZ1 from archivio"
End If

mi aiutate perfavore?

[optime]

non ho mica capito... parli di connessione o di stringa sql per la select?

[Magicolotto]

di tutte e due

la connessione cambia in base alla select

[optime]

in che senso, scusa? che vai a leggere db differenti? spiegati meglio, grazie

[Magicolotto]

il db access e sempre lo stesso

praticamente tutto cio' che faccio riguarda la creazione delle colonne del superenalotto, poste in una MSHFlexgrid

si prendono i primi estratti di tale ruote :

BA1,FI1,MI1,NA1,PA1,RO1,VE1
avvolte accade che ci sono numeri ripetuti
esempio :
BA1 =NA1
CIOè IL primo estratto di bari è uguale al 1° estratto di napoli

di conseguenza si prendera' il primo estratto di bari ed il secondo (2°) di napoli :

If BA1 = NA1 Then
sSQL = "select ID,Data,BA1,FI1,MI1,NA2,PA1,RO1,VE1,NZ1 from archivio"
End If

pero' che succede, che nel recordset successivo
nella griglia viene caricato sempre il 2° estratto di napoli, metre la regola deve essere valida solo per il recordset dove ci sono i due campi uguali....

[optime]

1. la connessione resta la stessa, non varia
2. tu estrai più di un record, giusto? e quindi questa IF andrebbe fatta record per record... se hai solo un primo estratto e un secondo estratto, ti conviene leggerli tutti e due, con una cosa del genere

sSQL = "select ID,Data, BA1,BA2, FI1,FI2, MI1,MI2, NA1,NA2, PA1,PA2, RO1,RO2, VE1,VE2, NZ1,NZ2 from archivio"

*DOPO*, quando vai a riempire la griglia, farai la tua IF campo per campo.

a meno che....

a meno che la tua griglia non sia in modalità BOUND, per cui devi darle in pasto un recordset già pronto. se è così dimmelo, che c'è un'altra soluzione

[Magicolotto]

Originariamente inviato da optime
1. la connessione resta la stessa, non varia
giusto
2. tu estrai più di un record, giusto?
giusto
e quindi questa IF andrebbe fatta record per record...
giusto
se hai solo un primo estratto e un secondo estratto, ti conviene leggerli tutti e due, con una cosa del genere

sSQL = "select ID,Data, BA1,BA2, FI1,FI2, MI1,MI2, NA1,NA2, PA1,PA2, RO1,RO2, VE1,VE2, NZ1,NZ2 from archivio"

*DOPO*, quando vai a riempire la griglia, farai la tua IF campo per campo.

a meno che....

a meno che la tua griglia non sia in modalità BOUND, per cui devi darle in pasto un recordset già pronto. se è così dimmelo, che c'è un'altra soluzione
si potrebbe provare

cmq il confronto lo devo fare tra BA1 E BA2

ma tra tutti i campi ed in caso di uguaglianza si prende il campo successivo al secondo

[optime]

Originariamente inviato da Magicolotto
cmq il confronto lo devo fare tra BA1 E BA2

ma tra tutti i campi ed in caso di uguaglianza si prende il campo successivo al secondo

non capisco. puoi fare un esempio?

[Magicolotto]

ho risolto come da tuo consiglio

praticamente il problema dei numeri doppiono nn esiste piu'


in pratica sono riuscire a portare tutto cio' che mi serve in una listbox

in essa compare il tutto cosi :

06/10/2007 21 70 43 3 69 20 78 11
09/10/2007 51 17 7 57 9 78 87 20
11/10/2007 71 76 78 37 49 18 23 35
13/10/2007 42 44 80 41 86 12 37 46
16/10/2007 7 77 65 72 58 21 85 23
18/10/2007 2 81 51 24 62 55 53 27
20/10/2007 17 36 72 20 57 11 51 89
23/10/2007 90 10 62 1 71 26 43 32
25/10/2007 3 30 6 89 7 67 11 28
27/10/2007 57 7 42 39 19 56 18 73
30/10/2007 73 39 54 63 22 68 12 15
02/11/2007 31 60 51 72 73 29 69 50
03/11/2007 64 11 44 31 89 83 34 37
06/11/2007 78 32 55 18 13 46 59 66
08/11/2007 29 16 38 72 62 84 66 28
10/11/2007 54 52 88 50 39 6 51 49
13/11/2007 2 68 79 33 1 62 14 21
15/11/2007 9 76 69 4 74 85 86 11
17/11/2007 40 63 28 68 86 18 71 60
20/11/2007 30 18 1 75 65 34 31 45
22/11/2007 57 2 55 61 51 82 15 60
24/11/2007 81 37 90 26 53 86 31 60
27/11/2007 39 79 22 2 61 28 84 23
29/11/2007 66 76 43 17 42 41 8 46
01/12/2007 55 6 76 19 53 30 17 70
04/12/2007 3 69 10 85 40 54 43 13
06/12/2007 84 83 33 37 48 65 55 88
10/12/2007 5 13 63 30 28 42 84 66
11/12/2007 82 28 85 9 71 12 37 1
13/12/2007 20 72 39 22 55 12 15 52
15/12/2007 61 63 86 25 43 31 23 39
18/12/2007 65 29 33 80 28 35 69 7
20/12/2007 22 10 6 13 17 46 43 85
22/12/2007 14 3 66 50 87 30 47 48
24/12/2007 49 69 35 29 31 74 16 28
27/12/2007 37 13 6 72 19 67 49 1

adesso devo riportare il tutto nella griglia MSHFlexgrid

COME POTREI FARE??

grazieeeeeeeeeeeeeeeeeeeeee

[optime]

con quello che hai ottenuto alimentaci un recordset disconnesso e bindalo (non è italiano, ma fa lo stesso...) alla griglia