VB6 - Shfaqja e kërkesave në flexgrid

[GinoTheGodFather]

Po mundohem ta sqaroj disi edhe pse eshte pak e veshtire. Kam krijuar nje db ne access. psh. Field1, Field2, Field3. Kolona Fileld3 merr 4 vlera te caktuara. psh 1,2,3,4. Te gjithe te dhenat e db shfaqen ne nje msflexgrid. Une dua qe me ane te nje combomox me permbajtje 1,2,3,4 te shfaq ne kete msflexgrid te dhenat e db me karakteristike Fileld3. A ka njeri te me ndihmoje se cfare kodi duhet te perdor? Shpresoj te jem treguar i qarte. Faleminderit

[qoska]

Ideja eshte e tille me ane te nje event te combobox psh OnClick() ose OnSelection() ti me ndihmen e nje ADODB.Recordset leshon nje query ne database duke u bazuar ne te dhenat e reja dhe thjesht msflexgrid i ve si datasource Recordset e ri.

Ne kod pak a shume do te ishte

Sub ComboField3_OnSelection(ByRef ............) 
        Dim pergjigje as Adodb.Recordset
        Dim Query  as String

        query = "select Field1, field2, field3, field4 from database where field3 like '%                      "+field3.value+"%' order by field3"
         pergjigje.open query, adocon, LockTypeOptimistic 'adocon eshte nje lidhje e krijuar ne database qe e ruan ne nje variablel globale
         set flexgrid.datasource = pergjigje

end sub

Pask a shume ky do te ishte kodi.
Megjithese duhet verifikuar.

Me te mira e shpresoj te te hyje ne pune.

[GinoTheGodFather]

hey qoska me duket sikur une nuk jam sqaruar mire ose ti nuk e ke kuptuar mire ate cfare une desha te them prandaj po mundohem ta provoj ta sqaroj duke e konkretizuar me shembuj...
ta zeme se kam krijuar nje database me keto fields: emri, mbiemri, gjinia. gjinia merr vetem dy vlera m ose f. Programi im lidhet me ane te adodc code dhe i shfaq te dhenat ne nje msflexgrid me dy kollona ku eshte emri dhe mbiemri. Une dua qe me ane te combobox_Clilk() e cila ka si text ne vetvete vetem dy vlerat m dhe f, te shfaqe ne msflexgrid sipas rastit te gjithe emrat dhe mbiemrat qe jane ose m ose f. Dmth dua kodin qe duhet ti ve Combo_Click() Programi im eshte me i zgjeruar se kaq por te dhashe kete shembull te vogel sepse nese e marr kodin per kete shembull e kam shume me te thjeshte ta pershtas me programin tim. Shpresoj te jem treguar me i qarte kete here. Faleminderit dhe ja kalofsh mire

[qoska]

Gjej nje liber mbi VB6 dhe lexoje pasi ai kodi qe kam shkruar une siper eshte llogjika qe duhet te ndjekesh.
Nuk ka rendesi ne perdor adodc, adodb, odbc, oledb, a u di une.

Gjithcka qe ti duhet te besh eshte qe kur perdoruesi te zgjedhi ne combobox ti kap event-in perkates formon nje query per databasen tend dhe e leshon sipas komponentit qe ke zgjedhur te perdoresh. Funksionet perkatese per seicilin komponent(activex) qe perdor per te komunikuar me databasen i ke tek "object manager" te VB IDE.

Nuk ka ndonje komplikacion te madh.
psh

[GinoTheGodFather]

Faleminderit per sygjerimin

[GinoTheGodFather]

O qoska une e provova ate qe me thate ju po nuk funksionoji dhe nuk e di pse. Nese ke mundesi
une po te jap kodin e plote dhe ti te me japesh pergjigjien per combo1_change() per ate cfare
dua te bej une. Faleminderit

***************************************

Dim WithEvents Con As Adodb.Connection
Dim WithEvents rst As Adodb.Recordset
Dim cmd As Adodb.Command

Private Sub Form_Load()

Call connect

Combo1.AddItem "m."
Combo1.AddItem "l."
Combo1.AddItem "kg."
Combo1.AddItem "cope"

End Sub

Public Sub connect()
Set Con = New Adodb.Connection
Con.CursorLocation = adUseClient
Con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Data\Data.mdb
DataEnvironment1.Connections(2).Open Con
Call dload
End Sub

Private Sub dload()

MSFlexGrid1.Rows = 1
Set rst = New Adodb.Recordset

rst.ActiveConnection = Con
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Source = "ARTIKUJT"
rst.Open

While Not rst.EOF() ' checking end of file

MSFlexGrid1.AddItem rst!ID & Chr(9) & rst!TIPI & Chr(9) & rst!Pershkrimi & Chr(9) & rst!CMIMI
rst.MoveNext

Wend
Set rst = Nothing

End Sub

Private Sub Combo1_Change()
???
End Sub

[renis_cerga]

Ka disa menyra per ta bere... por me mire kontrollo ketu...

http://vbnet.mvps.org/index.html?cod...boflexgrid.htm

[qoska]

database im ne kete rast ka vetem nje tabele me keto parametra:
emri -> Text
mbiemri -> Text
mf -> Yes/No
datelindja -> Date me stil formatimi (short date)

Dim WithEvents con As adodb.Connection
Dim WithEvents rst As adodb.Recordset



Private Sub Form_Load()

Call connect


MSFlexGrid1.Appearance = flexFlat
MSFlexGrid1.BackColor = Form1.BackColor
MSFlexGrid1.AllowUserResizing = flexResizeColumns
MSFlexGrid1.BorderStyle = flexBorderNone
MSFlexGrid1.CellAlignment = 2
MSFlexGrid1.Left = 0
MSFlexGrid1.Width = Form1.Width
MSFlexGrid1.FixedCols = 0
Combo1.AddItem "mashkull"
Combo1.AddItem "femer"
'Combo1.AddItem "kg."
'Combo1.AddItem "cope"
Combo1.Text = "mashkull"

End Sub

Public Sub connect()
Set con = New adodb.Connection
con.CursorLocation = adUseClient
'con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Data\Data.mdb"
'DataEnvironment1.Connections(2).Open con
MSFlexGrid1.FormatString = "Emri             |" & _
        "Mbiemri                                 | M/F  |  Datelindja"

'con.CommandType = adCmdText
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\test.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
Set rst = con.Execute("select * from tabele")
'con.Refresh
    
Call dload(False, False)
End Sub

Private Sub dload(ByVal query As Boolean, ByVal mfquery As Boolean)
Dim mf As String

MSFlexGrid1.Rows = 1
If query Then
 Set rst = New adodb.Recordset

 rst.ActiveConnection = con
 rst.CursorLocation = adUseClient
 rst.CursorType = adOpenDynamic
 rst.LockType = adLockOptimistic
 If mfquery Then
    rst.Open "select * from tabele where mf = TRUE"
 Else
    rst.Open "select * from tabele where mf = FALSE"
 End If
End If
While Not rst.EOF() ' checking end of file
If rst!mf Then
     mf = "mashkull"
Else
     mf = "femer"
End If
MSFlexGrid1.AddItem rst!emri & Chr(9) & rst!mbiemri & Chr(9) & mf & Chr(9) & Str(rst!Datelindja)
rst.MoveNext

Wend
Set rst = Nothing

End Sub

Sub combo1_click()
    Dim st As Boolean
    
    If Combo1.SelText = "mashkull" Then
        st = True
    Else
        st = False
    End If
    dload True, st
End Sub

Renis mos jep shembuj te veshtire pasi stili i kodimit te atij linku qe ke dhene ti eshte si ne C/C++, ngaqe merret me mesazhet e windowsit!

Shembuj ka sa te duash, nese te del i pari ne google ai te pakten verifiko ne eshte me i miri ne stilin e gjuhes qe po perdoret.

[GinoTheGodFather]

Faleminderit shume