[es] - MSHFlexGrid i ListBox

zormar

Član broj: 129240
Poruke: 176
*.adsl.sezampro.yu.

Profil

^{18.01.2007. u 15:16 - pre 210 meseci}

Imam bazu u Accessu u kojoj se u koloni RB vise puta ponavlja isti redni broj, ali pod razlicitim datumima.
Potrebno je da napravim filter koji bi u MSHFG ispisao sve podatke pod odredjenim RB. Da li je to moguce uraditi pomocu ListBoxa?
Na koji nacin da povezem MSHFlexGrid i ListBox tako da vrednost iz LB ustvari predstavlja RB iz tabele u bazi?
Pokusao sam ovako ali ne ide

[code]Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" _
& App.Path & "\Baza1.mdb;DefaultDir=" & App.Path & " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Adodc1.RecordSource = "SVEUKUPNO Where RB=List1"
Adodc1.Refresh

Izbacuje gresku: Metod 'Refresh' of Object IAdodc failed

Odgovor na temu

abozic

Član broj: 121513
Poruke: 2
87.250.115.*

Profil

Re: MSHFlexGrid i ListBox

^{20.01.2007. u 06:59 - pre 210 meseci}

evo jedan od nacina

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Adodc1.RecordSource = "SELECT DISTINCT orderID FROM [Order Details]" 'komanda DISTINCT osigurava da se podatak ne ponavlja
Adodc1.Refresh

Adodc1.Recordset.MoveFirst
Do
List1.AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF

End Sub

Private Sub List1_Click()

Adodc2.ConnectionString = Adodc1.ConnectionString
Adodc2.RecordSource = "SELECT * FROM [Order Details] WHERE OrderID = " & List1
Adodc2.Refresh

Set MSHFlexGrid1.DataSource = Adodc2

End Sub

* napomena -> koristio sam nwind.mdb i na formu stavio dvije ADO kontrole, Listbox i MSHFlex

Mislim da ćeš lako preurediti code za svoje potrebe

Odgovor na temu

abozic

Član broj: 121513
Poruke: 2
87.250.115.*

Profil

Re: MSHFlexGrid i ListBox

^{20.01.2007. u 07:07 - pre 210 meseci}

evo jedan od nacina

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Adodc1.RecordSource = "SELECT DISTINCT orderID FROM [Order Details]" 'komanda DISTINCT osigurava da se podatak orderID ne ponavlja
Adodc1.Refresh

'punim list kontrolu
Adodc1.Recordset.MoveFirst
Do
List1.AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF

End Sub

Private Sub List1_Click()

Adodc2.ConnectionString = Adodc1.ConnectionString
Adodc2.RecordSource = "SELECT * FROM [Order Details] WHERE OrderID = " & List1
Adodc2.Refresh

Set MSHFlexGrid1.DataSource = Adodc2

End Sub

* napomena -> koristio sam nwind.mdb i na formu stavio dvije ADO kontrole, Listbox i MSHFlexGrid

Mislim da ćeš lako preurediti code za svoje potrebe

Odgovor na temu

abozic

Član broj: 121513
Poruke: 2
87.250.115.*

Profil

Re: MSHFlexGrid i ListBox

^{20.01.2007. u 07:09 - pre 210 meseci}

evo jedan od nacina

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Adodc1.RecordSource = "SELECT DISTINCT orderID FROM [Order Details]" 'komanda DISTINCT osigurava da se podatak orderID ne ponavlja
Adodc1.Refresh

'punim list kontrolu
Adodc1.Recordset.MoveFirst
Do
List1.AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF

End Sub

Private Sub List1_Click()

Adodc2.ConnectionString = Adodc1.ConnectionString
Adodc2.RecordSource = "SELECT * FROM [Order Details] WHERE OrderID = " & List1
Adodc2.Refresh

Set MSHFlexGrid1.DataSource = Adodc2

End Sub

* napomena -> koristio sam nwind.mdb i na formu stavio dvije ADO kontrole, Listbox i MSHFlexGrid

Mislim da ćeš lako preurediti code za svoje potrebe

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.

Profil

Re: MSHFlexGrid i ListBox

^{20.01.2007. u 16:55 - pre 210 meseci}

Hvala ti za ovo sto si napisao. Ne znam kako da uradim da List1 ide od 1 do 50, a ne da bude vezan za ID.
Imam jos jedno pitanje ako mozes da mi pomognes.
Da li je moguce sabrati podatke po kolonama MSHFlexGrida, tako da budu prikazani u poslednjem redu MSHFlexGrida ili u zasebnoj labeli?

_{[Ovu poruku je menjao zormar dana 20.01.2007. u 18:42 GMT+1]}

Odgovor na temu

abozic

Član broj: 121513
Poruke: 2
87.250.115.*

Profil

Re: MSHFlexGrid i ListBox

^{21.01.2007. u 01:41 - pre 210 meseci}

izvini za ovoliko postova imao sam problem sa internetom (mislio sam da nijedan nije postavljen)

prvo pitanje:
'brisanje liste
List1.Clear

'punim listu brojevima od 1 do 50
Dim t As Integer
For t = 1 To 50
List1.AddItem t
Next t

drugo pitanje:

Dim rezultat As Double
Dim red As Integer 'red u MSHFlex
Dim col As Integer 'kolona u MSHFlex

MSHFlexGrid1.AddItem "" ' dodajem jos jedan red u koji upisujem rezultate

For col = 0 To MSHFlexGrid1.Cols - 1
rezultat = 0 'reset rezultata

For red = 0 To MSHFlexGrid1.Rows - 2
rezultat = rezultat + CDbl(MSHFlexGrid1.TextMatrix(red, col))
Next red

MSHFlexGrid1.TextMatrix(red, col) = rezultat
Next col

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.

Profil

Re: MSHFlexGrid i ListBox

^{21.01.2007. u 18:02 - pre 210 meseci}

Hvala ti za ovo sto si napisao.

Da li bi mogao jos malo da mi pomognes?
Na koji nacin mogu da dobijem sumu celija u koloni koje imaju istu brojcanu vrednost, i da ta suma bude prikazana u zasebnoj labeli na Form1?

_{[Ovu poruku je menjao zormar dana 21.01.2007. u 19:14 GMT+1]}

_{[Ovu poruku je menjao zormar dana 21.01.2007. u 19:17 GMT+1]}

Odgovor na temu

abozic

Član broj: 121513
Poruke: 2
87.250.115.*

Profil

Re: MSHFlexGrid i ListBox

^{23.01.2007. u 00:23 - pre 210 meseci}

komanda MSHFlexGrid1.TextMatrix(red, col) ti daje vrijednost celije sa koordinata red, col

Nije mi bas najjasnije ono ''sumu celija u koloni koje imaju istu brojcanu vrednost'',

u prethodnom primjeru dobijas zbir citave kolone, a zbir samo za odredjenu vrijednost možeš dobiti
uz jednu if naredbu

Code:

Dim rezultat As Double
Dim red As Integer 'red u MSHFlex
Dim col As Integer 'kolona u MSHFlex
dim TraziVrijednost as Double

TraziVrijednost  = 12      'npr 12

MSHFlexGrid1.AddItem "" ' dodajem jos jedan red u koji upisujem rezultate

For col = 0 To MSHFlexGrid1.Cols - 1
     rezultat = 0 'reset rezultata
     For red = 0 To MSHFlexGrid1.Rows - 2
          if  CDbl(MSHFlexGrid1.TextMatrix(red, col)) = TraziVrijednost Then
               rezultat = rezultat + CDbl(MSHFlexGrid1.TextMatrix(red, col))
          end if
     Next red
     MSHFlexGrid1.TextMatrix(red, col) = rezultat
Next col

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl.sezampro.yu.

Profil

Re: MSHFlexGrid i ListBox

^{23.01.2007. u 15:19 - pre 210 meseci}

Nismo se razumeli, u stvari ja nisam dobro objasnio sta mi treba.
Evo sad od pocetka.
U bazi imam redne brojeve zapisa koji se ponavljaju, zato sto je obuhvaceno vise godina i svaka godina krece od 1 do 50.
Kada napravim filter u MSHFG za neki redni broj, tada u kolonama (imam ih 5) dobijem sve zapise pod tim rednim brojem za sve godine koje sam uneo u bazu.
Podaci koji su uneti u bazu su brojevi. Potrebno mi je da u Labelama (ukupno 5),koje su na Form1, dobijem zbir svih celija (fja Count), iz iste kolone, koje imaju istu brojcanu vrednost.
Ako ti nije tesko napisi mi kompletan kod, jer ne znam kako da napisem tu SQL naredbu i kako da prikazem rezultat te SQL naredbe u Labelama.
Zahvaljujem ti na trudu i utrosenom vremenu.

Odgovor na temu