[VB6] - Modifica dati nei record

[Robby78]

ciao, ho appena provato anche'io la funzione upload dei files; mi sa che l'unico modo x accedere a tali files è andare all'indirizzo:
[url]http://www.zanezane.net/public/upload/ [nome file][/url]
non so se c'è un modo + semplice, x ora conosco solo questo, quindi mi occorre il nome del file che hai upload-ato x accedere...

[giuxmian]

e se te lo mando per mail?

[Robby78]

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">citazione:<hr height="1" noshade id="quote"><i>Messaggio inserito da giuxmian</i>
<br />e se te lo mando per mail?
<hr height="1" noshade id="quote"></blockquote id="quote"></font id="quote">

si, come vuoi

[giuxmian]

Ciao! Buona settimana!

dato che c'è anche un'immagine se mi potessi girare in privato il tuo indirizzo e-mail ti mando il file .doc con incluso l'allegato così hai tutto l'insieme più chiaro.

Grazie e ciao
Giuseppe

[Robby78]

ho dato un'occhiata veloce al documento; io ti consiglio di abbandonare l'uso degli ado data control per fare insert o update dei database, in quanto sono abbastanza limitanti; se ho tempo ti mando una versione alternativa che sfrutta la connessione ado come già fatto x le update.
Tuttavia, quando usi il metodo AddNew ed inserisci un record doppio cosa succede? hai un errore di ritorno?

[Robby78]

vediamo di risolvere il primo punto:
nel load della form22 prova ad inserire questo codice:

Adodc1.RecordSource = "Select * from TabellaGiornali order by titologiornale"

adesso dovresti averli in ordine alfabetico, dimmi come va...

ciao

[Robby78]

riguardo al secondo problema, prova a sostituire il codice del comando "salva" con questo:

conf = MsgBox("Si vuole confermare quest'ordine?", vbYesNo, "Conferma ordine")
If conf = 6 Then
Dim sSQL As String
Dim rsOrdine As New ADODB.Recordset

sSQL = "Select * from TabellaOrdini Where Cliente = '" & Form5.Text1.Text(cliente) & "' And Titolo = '" & Form5.Text3.Text & "'"
rsOrdine.Open sSQL, Adodc1.ConnectionString
If rsOrdine.EOF Then
Form8.Text1.Text = Form5.Text1.Text(cliente)
Form8.Text2.Text = Form5.Text2.Text '(c.f. / p.iva)
Form8.Text3.Text = Form5.Text3.Text '(titolo giornale)
Form8.Text4.Text = Form5.Text4.Text '(costo giornale)
Form8.Adodc3.Recordset.AddNew '(salva la tabella ordini)
MsgBox "L'ordine è stato registrato", , ""
Else
'Se trova qualcosa vuol dire che l'ordine c'è già
MsgBox "L'ordine è GIA' registrato!!"
End If
rsOrdine.Close
End If
risp = MsgBox("Vuoi registrare un altro ordine?", vbYesNo, "")
If risp = vbNo Then
Form5.Hide
Form1.Show
End If

[giuxmian]

<i>"Tuttavia, quando usi il metodo AddNew ed inserisci un record doppio cosa succede? hai un errore di ritorno?"</i>
No,nessun errore mi è mai capitato. Credo perché nella tabella access degli ordini (TabellaRelazioni) nell'indicizzazione ho impostato l'opzione "duplicati ammessi".
Infatti i campi CF_PIVA, Titolo, Costo e Nome devono poter prevedere che, seppur su diversi ordini:
- lo stesso cliente possa ordinare giornali diversi
- lo stesso giornale ed il relativo costo possa essere ordinato da diversi clienti con la relativa p.iva/cf

--------

<i>"vediamo di risolvere il primo punto...."</i>
Ordine alfabetico perfetto. Grazie

--------
<i>"riguardo al secondo problema, prova a sostituire il codice del comando "salva" con questo....."</i>
Ho copiato il tuo codice ma se provo ad inserire due o più ordini uguali me li prende lo stesso e se provo ad eliminarli mi va in errore perché trova più record uguali e non sa quale deve cancellare

[Robby78]

a quale tabella punta Form8.Adodc3.Recordset?
sei sicuro di aver incollato bene? mi sono accorto che c'è un errore di sintassi nel codice che ti ho mandato; nn avrebbe dovuto compilarlo... l'hai corretto tu?

[giuxmian]

Carissimo Robby!!!

<i>"a quale tabella punta Form8.Adodc3.Recordset?"</i>
Form8.Adodc3.Recordset è collegato alla tabella degli ordini, cioè "TabellaRelazioni"

<i>sei sicuro di aver incollato bene? mi sono accorto che c'è un errore di sintassi nel codice che ti ho mandato; nn avrebbe dovuto compilarlo... l'hai corretto tu?</i>
Si, l'ho copiato pari pari.
Avevo trovato due errori, solo formali però, che ho corretto io:

- Form5.Text1.Text<b>(cliente)</b>
- Tabella<b>Ordini</b> (invece di TabellaRelazioni

altri non ne ho trovati.

[Robby78]

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">citazione:<hr height="1" noshade id="quote"><i>Messaggio inserito da giuxmian</i>
<br />Carissimo Robby!!!

<i>"a quale tabella punta Form8.Adodc3.Recordset?"</i>
Form8.Adodc3.Recordset è collegato alla tabella degli ordini, cioè "TabellaRelazioni"

<i>sei sicuro di aver incollato bene? mi sono accorto che c'è un errore di sintassi nel codice che ti ho mandato; nn avrebbe dovuto compilarlo... l'hai corretto tu?</i>
Si, l'ho copiato pari pari.
Avevo trovato due errori, solo formali però, che ho corretto io:

- Form5.Text1.Text<b>(cliente)</b>
- Tabella<b>Ordini</b> (invece di TabellaRelazioni

altri non ne ho trovati.
<hr height="1" noshade id="quote"></blockquote id="quote"></font id="quote">

ehilà... si, erano esattamente quelli gli errori, ho scritto un po di fretta; cambia anche questa riga

rsOrdine.Open sSQL, Adodc1.ConnectionString

con questa

rsOrdine.Open sSQL, Adodc3.ConnectionString

anche se nn dovrebbe cambiare nulla...

mi pare strano che non vada, hai provato in debug a vedere se entra nell'if ed a verificare il valore di sSQL?

Può darsi sia un problema di spazi... anche se in questa caso non avresti problemi a cancellare i record doppi (che in realtà nn sarebbero doppi in quanto differiscono di spazi vuoti)

al momento nn so che dirti, mi sembra tutto corretto... prova un po in debug a vedere se trovi l'inghippo, x scrupolo prova anche a sostituire questa riga:

sSQL = "Select * from TabellaOrdini Where Cliente = '" & Form5.Text1.Text(cliente) & "' And Titolo = '" & Form5.Text3.Text & "'"

con questa:

sSQL = "Select * from TabellaOrdini Where Cliente = '" & trim(Form5.Text1.Text) & "' And Titolo = '" & trim(Form5.Text3.Text) & "'"

[giuxmian]

Per gli spazi non credo esista problema perché quando ho creato i form di inserimento dati dei clienti e dei giornali ho già previsto che l'utente lasci degli spazi o scriva dati non corretti e così già in fase di salvataggio faccio le trim ed i controlli su tutti i dati inseriti.
Quando creo un programma mi "trasformo" in utente e quindi penso a tutti i possibili errori che può fare e creo subito i controlli e le segnalazioni d'errore.

Comunque ora ci smanetto un po' per capire.

[giuxmian]

Aspetta che forse ci siamo!!!

Ho trovato un terzo errore nel codice....non dipendente da te però.
Nella riga
<i>sSQL = "Select * from TabellaRelazioni Where Nome = '" & Form5.Text1.Text & "' And Titolo = '" & Form5.<b>Text3</b>.Text & "'"</i>

al posto di <i>Text3.text</i> deve andare <b>Text2.text</b>

era sbagliato il riferimento alla textbox che puntava al costo e non al titolo del giornale.

Ho provato ed ora nel ciclo entra.

Ho adattato quel codice anche per la registrazione dei clienti e dei giornali...funziona che è una meraviglia!


Grazie Robby!

[Robby78]

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">citazione:<hr height="1" noshade id="quote"><i>Messaggio inserito da giuxmian</i>
<br />Grazie Robby!
<hr height="1" noshade id="quote"></blockquote id="quote"></font id="quote">

figurati!