[ Air Live @ 25.11.2007. 23:11 ] @
Zasto mi program koji pravim ne podize bazu podataka a konektovao sam je preko adaptera i dataset-a takode sam postavio sve txt box-ove i povezao s bazom,takode sam napisao i kod za upis u bazu,"Baza je ACCESS 2002-2003" i kada kliknem na Start Debugging podigne formu ali nece da povuce i bazu podataka,takode kao zapise unesene podatke a nakon ponovnog startanja podataka u bazi nema. U cemu je FINTA.

Me.KupacTableAdapter.Update(Me.BazaObjekti.Kupac) - nece da radi. Da se nije stogod JET 4.0 sta zeznuo.

A nece ni ovaj COD ;

Try
Me.Validate()
Me.KupacBindingSource.EndEdit()
Me.KupacTableAdapter.Update(Me.BazaObjekti.Kupac)
MsgBox("Unos izvrsen u bazu")

Catch ex As Exception
MsgBox("Nije uradeno zbog greske")
End Try



Pozdrav !

[Ovu poruku je menjao Air Live dana 26.11.2007. u 00:57 GMT+1]

[Ovu poruku je menjao Air Live dana 26.11.2007. u 01:03 GMT+1]
[ aleksandarpopov @ 26.11.2007. 09:56 ] @
Podize = ucitavanje podataka u dataset? Onda daj taj kod koji ucitava podatke... Ako otvoris tu tvoju access bazu iz accessa, imas podatke u tabelama?
[ Air Live @ 26.11.2007. 11:24 ] @
Nista isao sam preko wizarda za konekciju s bazom i vidim da mi to neradi,evo sada morao sam sve rucno utipkati u COD


Private KonekcijaNaBazu As New OleDb.OleDbConnection()
Private BazaAdapter As OleDb.OleDbDataAdapter
Private KomandaObjektima As OleDb.OleDbCommandBuilder
Private TabelaKontakti As New DataTable
Private PozicijaKolone As Integer = 0

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KonekcijaNaBazu.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Predracuni\Plakari.mdb"
KonekcijaNaBazu.Open()

BazaAdapter = _
New OleDb.OleDbDataAdapter("Select * From Pokus", KonekcijaNaBazu)

KomandaObjektima = New OleDb.OleDbCommandBuilder(BazaAdapter)

BazaAdapter.Fill(TabelaKontakti)

Me.ShowCurrentRecord()


Mene sada jos zanima kako da prikazem na CrystalReport ono sto stoji uTXTBOX-ovima na mojoj formi ali po broju AUTONUMBER iz tabele.

[ aleksandarpopov @ 26.11.2007. 11:39 ] @
Pa jedan od nacina je da filtriras podatke kako hoces kad punis dataset i zatim taj dataset "podturis" kao DataSource tvom Crystal reportu. Imas brdo tutoriala za CR.
[ Air Live @ 26.11.2007. 13:36 ] @
Interesuje me jos ovo :

kako da napunim svoj list BOX iz ove tabale POKUS,nesto se izmijenilo u odnosu na VB6 nekada sam to pisao ovako u VB6

Private Sub datKupci_Reposition()

Do While Not datKupci.Recordset.EOF
lstKupci.AddItem datKupci.Recordset.Fields("IDkupca") & _
vbTab & vbTab & datKupci.Recordset.Fields("Prezime")
datKupci.Recordset.MoveNext
Loop

End Sub


A kako da to ucitam u VB 2005 NET-u.

I jos bilo bih dobro da das link ka toturialima za VB 2005 net.

Pozdrav !
[ android~paranoid @ 26.11.2007. 13:58 ] @
Code:
 
        komanda.CommandText = "SELECT * FROM POKUS"
        komanda.Connection = konekcija
        adPokus= New OleDb.OleDbDataAdapter
        adPokus.SelectCommand = komanda
        dsPokus = New DataSet
        adPokus.Fill(dsPokus )

        For i = 0 To dsPokus .Tables(0).Rows.Count - 1
            ListBox1.Items.Add(dsPokus .Tables(0).Rows(i).Item("Prezime"))
        Next
[ Air Live @ 26.11.2007. 14:14 ] @
Hvala na odgovoru ali bas primer nije puno pomogao.

Evo kako sam na onload forme ucitao iz baze u listbox :

lstKupci.Items.Add(TabelaKontakti.Rows(PozicijaKolone)("Ime") & vbTab & TabelaKontakti.Rows(PozicijaKolone)("Prezime"))

Da ali kako ucitati u listbox sva imena koja se nalaze u tabeli jedno ispod drugog.Ja sam u ovom slucaju ucitao samo prvi red iz tabele.
[ android~paranoid @ 26.11.2007. 14:27 ] @
Pa stavi u for petlju onako kako sam ti dao u primeru (izračunaj koliko imaš zapisa u DS-u).
[ aleksandarpopov @ 26.11.2007. 14:32 ] @
Mislim da bi ti za pocetak najjednostavnije bilo da postavis datasource tvog list boxa na tabelu u datasetu koju hoces. Pogledaj DataBinding na MSDN... bice ti dosta stvari jasnije, od tutoriala za pocetak ti vise od (MSDN-a) toga ni ne treba.
[ Air Live @ 26.11.2007. 15:00 ] @
Hvala ljudi ali evo ja sam napravio naj jednostavnije povezivanje baze i forme,Evo okacit cu primer pa mozete pogledati i pomoci mi sta me naj jednostavnije muci.

Bazu kopirati u folder C:\temp\Baza.mdb


Hvala unaprijed !
[ Air Live @ 26.11.2007. 15:49 ] @
Hvala ljudi rjesio sam ovaj problem samo mi je jos ostao problem LISTBOX s druge forme da mi prenese selektovane podatke na TXTBOX druge forme.

Pokusao sam ovaj COD :

frm1.text1.text = Val(me.listbox1.text)
Me.close()



Ali nece !


Znaci da sa druge forme prebacim selektovani naziv na dubleclick u txtbox na drugoj formi.

Pozdrav !