[es] - Upisivanje podataka iz dataseta u bazu

darko222
Banjaluka

Član broj: 78618
Poruke: 11
*.office.pttrs.net.

Profil

Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 11:18 - pre 221 meseci}

Još jedan početnički problem:
Imam na formi 10 textboxova pomocu kojih punim access bazu (2 tabele). Vrijednost prvog textboxa (ID) koristim u upitu i ako se u bazi pronađe red sa ovim
ID on se ucitava u prvih pet textboxova, a ja popunjavam ostale. Sve ovo radim tako sto dataadapterom (select komandom) nafilujem data set i bindujem textboxove na određena polja u datasetu. I sve to radi ali kad hocu da dopunjene podatke smjestim u bazu (update dataseta) nastane problem i javlja mi se greska:

An unhandled exception of type 'System.ArgumentException' occurred in system.data.dll

Additional information: System.FormatException: Input string was not in a correct format.
at System.Number.ParseInt32(String s, NumberStyles style, NumberFormatInfo info)
at System.Int32.Parse(String s, NumberStyles style, IFormatProvider provider)
at System.Convert.ToInt32(String value, IFormatProvider provider)
at System.String.System.IConvertible.ToInt32(IFormatProvider provider)
at System.Convert.ToInt32(Object value)
at System.Data.Common.Int32Storage.Set(Int32 record, Object value)
at System.Data.DataColumn.set_Item(Int32 record, Object value)Couldn't store <> in MB Column. Expected type is Int32.

Pretpostavljam da je problem u formatu podataka koje isčitam iz dataseta i pokušavao sam neke konverzije ali mi ne ide. Bio bih zahvalan na pomoći!!!

POČETNIK

Odgovor na temu

erkan
Sarajevo

Član broj: 12339
Poruke: 267
*.bstelecom.ba.

ICQ: 238530669

Profil

Re: Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 11:38 - pre 221 meseci}

Daj malo koda da vidimo kako radis update...

Samo se budala saplice na kamen iza sebe.

Odgovor na temu

erkan
Sarajevo

Član broj: 12339
Poruke: 267
*.bstelecom.ba.

ICQ: 238530669

Profil

Re: Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 11:40 - pre 221 meseci}

Samo casak!
Zar ne kaze u gresci koju prijavljuje da ne moze da upise '<>' znakove u kolonu koja
je tipa Int32 !!?

Provjeri sta pokusavas da upises pa javi

_{[Ovu poruku je menjao erkan dana 14.02.2006. u 12:41 GMT+1]}

Samo se budala saplice na kamen iza sebe.

Odgovor na temu

darko222
Banjaluka

Član broj: 78618
Poruke: 11
*.office.pttrs.net.

Profil

Re: Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 12:02 - pre 221 meseci}

Kod je vjerovatno prepun nedostataka ali otklanjam problem po problem i tako se ucim. Odnosi se na upis ulaznih podataka za neku prodavnicu.
Upit radim prilikom validacije unosa u prvi textbox:

Private Sub txtID_Dobavljaca_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtID_Dobavljaca.Validating

If Not IsNumeric(txtID_Dobavljaca.Text) Then
MessageBox.Show("ID može biti samo broj", "Neispravan unos")
Me.txtID_Dobavljaca.Focus()
Else
daProvjera.SelectCommand.CommandText = "SELECT * from Dobavljac WHERE [ID Dobavljaca] =" + txtID_Dobavljaca.Text
daProvjera.Fill(dsProdavnica, "dobavljac")

End If

Nakon pritiska na TAB popuni se 5 textboxova, ja popunim ostale i onda:

Private Sub btnUcitaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUcitaj.Click

dsProdavnica.Clear()
Dim Ured As DataRow = dsProdavnica.Tables("ulaz").NewRow()
Dim Dred As DataRow = dsProdavnica.Tables("dobavljac").NewRow()
Ured("ID dobavljaca") = txtID_Dobavljaca.Text
Dred("ID dobavljaca") = txtID_Dobavljaca.Text
Dred("naziv dobavljaca") = txtDobavljac.Text

Dred("mb") = txtMB.Text
Dred("adresa") = txtAdresa.Text
Dred("telefon") = txtTelefon.Text
Dred("broj fakture") = txtFaktura.Text
Ured("naziv artikla") = txtArtikli.Text
Ured("id artikla") = txtID_Artikla.Text
Ured("bar kod") = txtBar.Text
Ured("kolicina") = txtKolicina.Text
Ured("pojedinacna cijena") = txtPCijena.Text
Ured("marza") = txtMarza.Text
Dim datum As Date = Date.Today.Now.ToShortDateString
Ured("datum") = datum

'PUNJENJE I UPDATE DATASETA
dsProdavnica.Tables("ulaz").Rows.Add(Ured)
dsProdavnica.Tables("dobavljac").Rows.Add(Dred)

daUlaz.Update(dsProdavnica, "ulaz")
daDobavljac.Update(dsProdavnica, "dobavljac")

If MessageBox.Show("Upis je izvršen uspješno, želite li nastaviti?", "Izvještaj o upisu", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
cleanform()
Else : Form.ActiveForm.Close()
End If
End Sub

POČETNIK

Odgovor na temu

erkan
Sarajevo

Član broj: 12339
Poruke: 267
*.bstelecom.ba.

ICQ: 238530669

Profil

Re: Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 13:21 - pre 221 meseci}

Code:

...
Dred("mb") = txtMB.Text
...

Pretpostavljam da je problem ovdje. Pokusaj da prije ove linije
napises MessageBox.Show(txtMB.Text) da ti ispise u Message bpx-u
vrijednost iz txtMB tekst box-a pa ces vidjeti da vjerovatno tekst
u tom tekst box-u NIJE INTEGER.
----------
Ili ppostavi BRAKEPOINT na toj liniji pa probaj...
U svakom slucaju bi problem trebao biti tu. Probaj pa javi

Samo se budala saplice na kamen iza sebe.

Odgovor na temu

darko222
Banjaluka

Član broj: 78618
Poruke: 11
*.office.pttrs.net.

Profil

Re: Upisivanje podataka iz dataseta u bazu

^{14.02.2006. u 14:40 - pre 221 meseci}

Da, jeste tu problem. I to zato sto mi je prva linija u click događaju

dsProdavnica.clear()

ali kad to eliminisem onda mi update ne radi, tj. pukne mi aplikacija. ALiii ja sam naravno kriv za sve!!!!!!! U tabelama nisam podesio da prihvatam duplikate. Sad sve radi. Veliko hvala na strpljenju i trudu!!!!

POČETNIK

Odgovor na temu