[VB6] Scrittura multipla indesiderata di record

[LMondi]

Rilevo un fatto strano nel DB Access,
ogni volta che dò il comando: ...insert into... i records vengono scritti 3 volte !!
Come mai?

[giorgiogio48]

Posta il codice così vediamo meglio.

[LMondi]

Come vuoi.

       OggSR1.CommandText = "Insert Into TblParti(RegLodi, Deposito, PartiDett, Oggetto, CollArb)" _
            & "values ('" & (FrmInfo.txtPP(0).Text) & "', '" & (FrmInfo.txtPP(1).Text) _
            & "', '" & Replace(FrmInfo.txtPP(2).Text, "'", "''") & "', '" & Replace(FrmInfo.txtPP(3).Text, "'", "''") _
            & "', '" & Replace(FrmInfo.txtPP(4).Text, "'", "''") & "');"
        OggSR1.Execute

[alka]

Quante volte viene richiamata questo blocco? Hai provato a mettere un breakpoint per verificare se, per un motivo o per un altro, esso non venga eseguito più volte?

[LMondi]

Sì ho provato. Il codice (query) viene eseguito una sola volta, anzi a ben vedere, nella prova ho trovato scritti 5 redords; sarà un caso ma è il numero dei campi !! VVoVe:
Sbaglio qualcosa nella query ?

[LMondi]

Posto l'intera routine, perchè effettivamente commetto degli errori (non so quali...). Ho provato ad inserire:

OggSR1.CommandText = "Delete * From TblParti"
OggSR1.Execute

e dopo la cancellazione dei records, trovo scritto un solo record, quindi a monte c'è qualcosa che non va (forse il tipo di cursore?):

'Inserimento dei dati nel DB - TblParti:
    Dim OggSR1 As New ADODB.Command
    Dim ConSR1 As New ADODB.Connection
 
 'Esegue la connessione con il DataBase:
        With ConSR1
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
       End With
       
        OggSR1.ActiveConnection = ConSR1
        OggSR1.CommandType = adCmdText
        
        ' Prima di salvare Elimina i vecchi records dalla tabella:
        OggSR1.CommandText = "Delete * From TblParti"
        OggSR1.Execute
        
'Inserisce i dati del FrmInfo nel DB TblParti:
        OggSR1.CommandText = "Insert Into TblParti(RegLodi, Deposito, PartiDett, Oggetto, CollArb)" _
            & "values ('" & (FrmInfo.txtPP(0).Text) & "', '" & (FrmInfo.txtPP(1).Text) & "', '" & Replace(FrmInfo.txtPP(2).Text, "'", "''") & "', '" & Replace(FrmInfo.txtPP(3).Text, "'", "''") & "', '" & Replace(FrmInfo.txtPP(4).Text, "'", "''") & "');"
        OggSR1.Execute

'Chiude la connessione - TblParti:
    ConSR1.Close
    Set ConSR1 = Nothing

[oregon]

Scusa ... alla fine non ho capito ...

Trovi un record o 5 record scritti nel db?

[LMondi]

Dopo l'inserimento del codice:

OggSR1.CommandText = "Delete * From TblParti"
OggSR1.Execute

ovvero dopo aver cancellato tutti i records dalla Tbl, la query .. "Insert Into TblParti ... sembra funzionare, con la scrittura di un solo record.
E' un comportamento bizzarro, o sono io che commetto errori nella query ?

[giorgiogio48]

Senti LMondi,
quello che ti capita succede quando si prendono i records da più tabelle e non restringi a dovere il criterio della Sql. Da quante tabelle prelevi i records? Se parli di textbox non si capisce quante sono le tabelle in gioco.

[Magicolotto]

compatta e ripristina

ciao