Code:
Option Explicit
Private Const mcstrDSNBeg As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Private Const mcstrDSNEnd As String = ";Persist Security Info=False"
Private Const mcstrPath As String = "C:\Projects\XoranCAT\XoranData.mdb"
Private Const mcstrDSN As String = mcstrDSNBeg & mcstrPath & mcstrDSNEnd
Private Const mcstrSQLParent As String = "SELECT * FROM Patient"
Private Const mcstrSQLChild As String = "SELECT * FROM Study WHERE PatientID=<PatID>"
Private Sub Form_Load()
Call m_FillParent ' popuni parent view
Call lvwParent_Click ' da bi se child view popunio
End Sub
Private Sub m_FillParent()
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim Itm As ListItem
lvwParent.ListItems.Clear
Set adoConn = New ADODB.Connection
Set adoRS = New ADODB.Recordset
adoConn.Open mcstrDSN
adoRS.Open mcstrSQLParent, adoConn
While Not adoRS.EOF
Set Itm = lvwParent.ListItems.Add(, , adoRS("LastName") & ", " & adoRS("FirstName"))
Itm.Tag = adoRS("PatientID") ' u tag stavi kljuc koji je veza sa child tabelom
adoRS.MoveNext
Wend
adoRS.Close
adoConn.Close
Set adoRS = Nothing
Set adoConn = Nothing
End Sub
Private Sub m_FillChild(ParentKey As Long)
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim Itm As ListItem
Dim Qry As String
lvwChild.ListItems.Clear
Qry = Replace(mcstrSQLChild, "<PatID>", ParentKey)
Set adoConn = New ADODB.Connection
Set adoRS = New ADODB.Recordset
adoConn.Open mcstrDSN
adoRS.Open Qry, adoConn
While Not adoRS.EOF
Set Itm = lvwChild.ListItems.Add(, , adoRS("Title"))
adoRS.MoveNext
Wend
adoRS.Close
adoConn.Close
Set adoRS = Nothing
Set adoConn = Nothing
End Sub
Private Sub lvwParent_Click()
Dim ParentKey As Long
If Not lvwParent.SelectedItem Is Nothing Then
ParentKey = lvwParent.ListItems.Item(lvwParent.SelectedItem.Index).Tag
m_FillChild ParentKey
End If
End Sub
Listview =Listview