Problema DB con VB

[sara81it]

Ciao a tutti!!

Ho due piccoli problemi:
1) sto effettuando un controllo su un DB.
Ho due categorie (Luogo, Nome)
Io efettuo un controllo su tutti i luoghi. In fase di inserimento io seleziono il luogo e se il nome non è presente segnalo l'errore altrimenti salvo sul DB altri dati. Il problema è che mi effettua il controllo solo dopo il primo giro.


2) Non salva sul DB.


Ho attivato come riferimento DAO!

Aiuto!!

[steno12]

posta il codice............ poco però!!

[vonkranz]

Originariamente inviato da sara81it
Ciao a tutti!!

Ho due piccoli problemi:
1) sto effettuando un controllo su un DB.
Ho due categorie (Luogo, Nome)
Io efettuo un controllo su tutti i luoghi. In fase di inserimento io seleziono il luogo e se il nome non è presente segnalo l'errore altrimenti salvo sul DB altri dati. Il problema è che mi effettua il controllo solo dopo il primo giro.


2) Non salva sul DB.


Ho attivato come riferimento DAO!

Aiuto!!

...vado ad intuito... non sapendo come fai il controllo e, soprattutto cosa vuoi dire con "Il problema è che mi effettua il controllo solo dopo il primo giro."

...se usi il metodo .FindFirst, devi ricordarti di posizionarti all'inizio del recordset con .MoveFirst, altrimenti la ricerca parte dal punto in cui e' posizionato il puntatore: se hai fatto una ricerca senza trovare corrispondenze, il puntatore rimane posizionato alla fine del recordset e, se non lo "riporti in cima" non riuscirai a trovare + niente

In che senso non salva sul DB?? ma tu il metodo .Update lo chiami??(forse lo chiami in un punto sbagliato o al momento sbagliato)

[sara81it]

Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim ms As Recordset
Dim sql1 As String
Dim db1 As Database
Dim a As Integer
Dim r As Variant

If cmbubi.Text = "Scegliere ubicazione" Then
r = MsgBox("Impostare Ubicazione", vbCritical + vbOKOnly)
cmbubi.SetFocus
Else

Set db = OpenDatabase("D:\allied\inventario2.mdb")
sql = "select * from Mard where Ubicazione= '" & cmbubi.Text & "'"
Set rs = db.OpenRecordset(sql)

Do Until rs.EOF
If Txtmateriale.Text <> (rs!Materiale) Then
a = 1
rs.MoveNext
Else
a = 0
End If
Loop
rs.Close
If a <> 1 Then

'Set db1 = OpenDatabase("D:\allied\inventario2.mdb")
sql1 = "insert into from Inventario (Ubicazione,Materiale,Qta1,Qta3,Qta3,Qta4,Qta5) values( '" & cmbubi.Text & "','" & Txtmateriale.Text & "','" & txtqta1.Text & "','" & txtqta2.Text & "','" & txtqta3.Text & "','" & txtqta4.Text & "','" & txtqta5.Text & "')"
'db1.Execute (sql1)
r = MsgBox("Inserimento avvenuto con successo", vbInformation)
cmbubi.Text = "Scegliere ubicazione"
Txtmateriale.Text = ""
txtqta1.Text = ""
txtqta2.Text = ""
txtqta3.Text = ""
txtqta4.Text = ""
txtqta5.Text = ""
Txtmateriale.SetFocus
Else
r = MsgBox("Il materiale inserito non è corretto", vbCritical + vbOKOnly)
Txtmateriale.SetFocus

End If
End If

[sara81it]

Inserisco ora la spiegazione del codice!





Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim ms As Recordset
Dim sql1 As String
Dim db1 As Database
Dim a As Integer
Dim r As Variant


'Controllo che abbiano scelto un valore nella combo per poter confrontare i materiali possibili'


If cmbubi.Text = "Scegliere ubicazione" Then
r = MsgBox("Impostare Ubicazione", vbCritical + vbOKOnly)
cmbubi.SetFocus
Else

'Se inserita ubicazione nella combo'

Set db = OpenDatabase("D:\allied\inventario2.mdb")
sql = "select * from Mard where Ubicazione= '" & cmbubi.Text & "'"
Set rs = db.OpenRecordset(sql)

Do Until rs.EOF
'Se il materiale non è presente'

If Txtmateriale.Text <> (rs!Materiale) Then
a = 1
rs.MoveNext
Else
a = 0
End If
Loop
rs.Close
'Se non ci sono errori,cioè il materiale esiste nel DB allora salvo solo i dati nel Db (non vado in aggiornamento)

If a <> 1 Then

'Set db1 = OpenDatabase("D:\allied\inventario2.mdb")

sql1 = "insert into from Inventario (Ubicazione,Materiale,Qta1,Qta3,Qta3,Qta
4,Qta5) values( '" & cmbubi.Text & "','" & Txtmateriale.Text & "','" & txtqta1.Text & "','" & txtqta2.Text & "','" & txtqta3.Text & "','" & txtqta4.Text & "','" & txtqta5.Text & "')"
'db1.Execute (sql1)
r = MsgBox("Inserimento avvenuto con successo", vbInformation)
cmbubi.Text = "Scegliere ubicazione"
Txtmateriale.Text = ""
txtqta1.Text = ""
txtqta2.Text = ""
txtqta3.Text = ""
txtqta4.Text = ""
txtqta5.Text = ""
Txtmateriale.SetFocus
Else
r = MsgBox("Il materiale inserito non è corretto", vbCritical + vbOKOnly)
Txtmateriale.SetFocus

End If
End If






Dove devo inserire il rs.MoveFirst??