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):Dim CON As New ADODB.Connection
Dim RsCountry As New ADODB.Recordset
Dim RsState As New ADODB.Recordset
Dim RsDist As New ADODB.Recordset
Private Sub Form_Load()
Dim PATH
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
Dim Country As String
Dim State As String
Dim Dist As String
PATH = App.PATH & "\COUNTRY.MDB"
CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & PATH & ";Persist Security Info=False"
CON.Open
Call RsCountry.Open("COUNTRY", CON, 1, 2, -1)
Call RsState.Open("STATE", CON, 1, 2, -1)
Call RsDist.Open("DISTRICT", CON, 1, 2, -1)
TreeView1.Nodes.Add , , "root", "COUNTRY'S NAME"
'Country
For X = 1 To RsCountry.RecordCount
Country = RsCountry(0)
TreeView1.Nodes.Add "root", tvwChild, Country, RsCountry(1)
'State
RsState.Filter = 0
RsState.Filter = "c_no='" + RsCountry(0) + "'"
For Y = 1 To RsState.RecordCount
TreeView1.Nodes.Add Country, tvwChild, RsState(1), RsState(2)
'Dist
State = RsState(1)
RsDist.Filter = 0
RsDist.Filter = "s_no='" + RsState(1) + "'"
For Z = 1 To RsDist.RecordCount
TreeView1.Nodes.Add State, tvwChild, RsDist(1), RsDist(2)
RsDist.MoveNext
Next Z
RsState.MoveNext
Next Y
RsCountry.MoveNext
Next X
End Sub
Prilozi:
Sift.zip
Preuzimanja:341
Velicina datoteke:6.65 KB
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.