Dov'è l'errore?????????????

martedì 26 settembre 2006 - 14.39

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Slave Profilo | Junior Member

101 messaggi | Data Invio: mar 26 set 2006 - 14:39

Private Sub Command3_Click()
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\Documents and Settings\Christian Bozzonetti\Desktop\NuovoProgetto\new.mdb"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set sr = New ADODB.Recordset
Set rst = New ADODB.Recordset

cn.Open stringa
rs.Open "ndl", cn, 3, 3
sr.Open "rendisposizioni", cn, 3, 3
rst.Open "dosdisposiz", cn, 3, 3
rs.MoveFirst
Dim myvar
Dim i As Integer
i = 0

Do While Not rs.EOF
If (rs.Fields("ndl") = LabelNDL.Caption) Then
myvar = MsgBox("La modifica dell'NDL porterà ad una perdita definitiva dei vecchi dati memorizzati. CONTINUARE???", vbOKCancel)
If myvar = 1 Then
Do While Not sr.EOF
If rs.Fields("ndl") = sr.Fields("ndl") Then
Do While Not rst.EOF
If sr.Fields("iddisposizione") = rst.Fields("non_usato") Then
rst("idcliente") = Combocliente.Text
rst.Update
Else
rst.MoveNext
End If
Loop
Else
sr.MoveNext
End If
Loop

rs("lancio") = TxtLancio.Text
rs("data") = TxtData.Text
rs("note") = TxtNote.Text
rs("Ragionesociale") = Combodescrizione.Text
rs("operatore") = ComboOperatore.Text
rs("tipolavorazione") = ComboLavoro.Text
rs("idcliente") = Combocliente.Text
rs.Update
MsgBox "Modifica NDL effettuata", vbOKOnly, "CONFERMA"
Exit Do
End If
End If
rs.MoveNext
Loop
''''''''''''''''''''''''''''''''''

Set cn = Nothing
Set rs = Nothing
set rst=nothing

Unload Me

End Sub

il seguente codice agisce su tre tabelle e dovrebbe modificarle....ma la tabella dosdisposiz non viene aggiornata...perchè secondo voi????????sto impazzendo....

fasol Profilo | Junior Member

125 messaggi | Data Invio: gio 28 set 2006 - 12:19

nn mi convincono quei 3,3 che metti nll'open prova ad usere l'intellisense e metti l'opzione ad lockOptimistic
meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....

Slave Profilo | Junior Member

101 messaggi | Data Invio: gio 28 set 2006 - 16:11

no...quello e giusto...l'errore era qui:

>If sr.Fields("iddisposizione") = rst.Fields("non_usato") Then

non si possono confrontare due campi presi dal db,ma devo copiarne uno in una variabile e poi confrontarli...ci ho messo una vita ma alla fine c sono arrivato....
grazie lo stesso!!!!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !