Data Picker greska

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam problem sa ubacivanjem datuma u moju bazu. Kada kliknem na dugme, treba da mi izbaci report koji pokazuje ustvari ime,prezime, cenu i datum. Ali gresku koju pokazuje:
"Multiple steps operation generated errors. Check each status value"

Evo kod za to dugme. Tu gde je zuto, tu pokazuje build gresku. Prvo sam pomislio da mozda nema mesta da ubaci sve to iz liste, ali sam stavio 200 karaktera i opet nece.

Private Sub Command4_Click() Dim g, q, op, r As Integer Dim str12 As String For op = 0 To List1.ListCount - 1 Step 1 List1.Selected(op) = True Adodc3.Recordset.AddNew [color=yellow]Adodc3.Recordset.Fields("Proizvodi").Value = List1.Text[/color] Adodc3.Recordset.Update Next op g = Val(Text4.Text) q = Val(Adodc1.Recordset.Fields("Potroseno").Value) Adodc1.Recordset.Fields("Potroseno").Value = g + q Adodc3.Recordset.Fields("Datum").Value = DTPicker1.Value Adodc1.Recordset.Update Set DataEnvironment1.rsCommand6.DataSource = Adodc3 DataReport6.Show End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Daj nam da vidimo select, insert i update query za Adodc3 (ako nemaš sve, daj samo one koje imaš), i daj nam imena i tipove svih polja koja se koriste u tim queryjima.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

za adodc3 imam jedino SELECT * FROM RACUN
A evo kopiracu form load
Private Sub Form_Load() Dim str12 As String Dim str1 As String Dim str2 As String DTPicker1.Value = Date Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=baza.mdb;Persist Security Info=False" str1 = "SELECT Ime,Prezime,Potroseno FROM KUPCI" Adodc1.RecordSource = str1 Adodc1.Refresh Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=baza.mdb;Persist Security Info=False" str12 = "SELECT Naziv,Cena,Prodano FROM PROIZVOD" Adodc2.RecordSource = str12 Adodc2.Refresh List1.AddItem "Naziv            Cena       Kolicina         Datum" List2.AddItem "Cena za brisanje" List3.AddItem "Mercurial" End Sub
Evo i za tipove polja u bazi, slika.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Vidim da upisuješ jedino polje Proizvodi u tabelu. Da li sva ostala polja smeju da imaju NULL vrednost?
Predlažem da ispod Adodc3.Recordset.Fields("Proizvodi").Value = List1.Text dodaš još i ovo:
Adodc3.Recordset.Fields("Imeprezime").Value = "" Adodc3.Recordset.Fields("Cena").Value = "" Adodc3.Recordset.Fields("Datum").Value = DateTime.Today

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Izbaci method dont find kod Today, a i ne treba mi vreme, samo datum.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok, umesto DateTime.Today, napiši samo Date.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ne moze, Citat:row cannot be located for updating. Some values may have been changed since it was last read.

Debug greska u ovoj liniji:

Adodc3.Recordset.AddNew

Znaci ja samo hocu da mi to upise u to polje u bazi, posle moram da odradim, da recimo uradim upit, da mi prikaze sve narudzbe, od jednog do drugog datuma, ali dzabe, kada ne znam gde je ovde greska.

Evo prikacicu bazu, jer evo citiram sa microsoft supporta
Citat: To resolve this problem, remove the default value that is specified for the numeric field in the Access database table.

https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nažalost, moje znanje VB-a se ovde završava. Nadam se da će neko drugi moći više da ti pomogne.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jel moguce da niko ne zna kako da DataPicker ubacim u bazu i da se preko reporta iscitava, tj preko reporta je jednostavno, ako se unese u bazu.