Prikazi cijelu temu 15.12.2010 16:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Povezivanje FE-BE
Evo ti moj jedan exe sto koristim. Moze se desiti da ti zafali neki dll ako nemas vb instalisan ali ti ga mogu poslati.
A evo ti i kod iz njega sirov.
Nadam se da ces se snaci. Ako ne uspijes nemoj se muciti samo napisi kako si to zamislio zakljucavanje i otkljucavanje.
Ovo je zamisljeno sa forme.
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim CON As New ADODB.Connection
  2. Dim RsCountry As New ADODB.Recordset
  3. Dim RsState As New ADODB.Recordset
  4. Dim RsDist As New ADODB.Recordset
  5.  
  6. Private Sub Form_Load()
  7. Dim PATH
  8. Dim X As Integer
  9. Dim Y As Integer
  10. Dim Z As Integer
  11. Dim Country As String
  12. Dim State As String
  13. Dim Dist As String
  14. PATH = App.PATH & "\COUNTRY.MDB"
  15. CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & PATH & ";Persist Security Info=False"
  16. CON.Open
  17.  
  18. Call RsCountry.Open("COUNTRY", CON, 1, 2, -1)
  19. Call RsState.Open("STATE", CON, 1, 2, -1)
  20. Call RsDist.Open("DISTRICT", CON, 1, 2, -1)
  21.  
  22. TreeView1.Nodes.Add , , "root", "COUNTRY'S NAME"
  23. 'Country
  24. For X = 1 To RsCountry.RecordCount
  25.     Country = RsCountry(0)
  26.     TreeView1.Nodes.Add "root", tvwChild, Country, RsCountry(1)
  27.    
  28.     'State
  29.    RsState.Filter = 0
  30.     RsState.Filter = "c_no='" + RsCountry(0) + "'"
  31.     For Y = 1 To RsState.RecordCount
  32.         TreeView1.Nodes.Add Country, tvwChild, RsState(1), RsState(2)
  33.        
  34.         'Dist
  35.        State = RsState(1)
  36.         RsDist.Filter = 0
  37.         RsDist.Filter = "s_no='" + RsState(1) + "'"
  38.         For Z = 1 To RsDist.RecordCount
  39.             TreeView1.Nodes.Add State, tvwChild, RsDist(1), RsDist(2)
  40.             RsDist.MoveNext
  41.         Next Z
  42.         RsState.MoveNext
  43.     Next Y
  44.    
  45.     RsCountry.MoveNext
  46. Next X
  47. End Sub


Prilozi:
Sift.zip
Preuzimanja:341
Velicina datoteke:6.65 KB

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.