Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

Discussione: [VB6] sql connessione

  1. #1

    [VB6] sql connessione

    codice:
    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?
    i miei post sono RIFERITI TUTTI A VISUAL BASIC 6
    MSN MESSENGER : magicolotto@hotmail.it

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

  3. #3
    di tutte e due

    la connessione cambia in base alla select
    i miei post sono RIFERITI TUTTI A VISUAL BASIC 6
    MSN MESSENGER : magicolotto@hotmail.it

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

  5. #5
    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....
    i miei post sono RIFERITI TUTTI A VISUAL BASIC 6
    MSN MESSENGER : magicolotto@hotmail.it

  6. #6
    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

  7. #7
    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
    i miei post sono RIFERITI TUTTI A VISUAL BASIC 6
    MSN MESSENGER : magicolotto@hotmail.it

  8. #8
    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?

  9. #9
    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 :
    codice:
    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
    i miei post sono RIFERITI TUTTI A VISUAL BASIC 6
    MSN MESSENGER : magicolotto@hotmail.it

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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.