1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub getInformation(con As Connection)
Dim rec As Recordset
Dim sql As String
sql = "SELECT "
sql = sql & "ifdcls.ifdcls_ptr_id As Code, "
sql = sql & "ifdcls.ifdcls_dsc_fr As Description, "
sql = sql & "ifmcls.ifmcls_ptr_id as Cls "
sql = sql & "FROM ifdcls, ifmcls "
sql = sql & "WHERE ((ifdcls.ifdcls_ptr_id=ifmcls.ifmcls_ptr_chld) AND "
sql = sql & "(ifmcls.ifmcls_fk_ptr_id=105430) AND "
sql = sql & "(ifmcls.ifmcls_typ_cls = 'EQTX') AND "
sql = sql & "(ifmcls.ifmcls_ptr_id = (SELECT max(Verif.ifmcls_ptr_id) as id "
sql = sql & "FROM ifmcls as Verif "
sql = sql & "where Verif.ifmcls_fk_ptr_id = ifmcls.ifmcls_fk_ptr_id))) "
Set rec = con.OpenRecordset(sql, dbOpenDynamic)
wshPTF.Select
wshPTF.Range("Start").CopyFromRecordset rec
rec.Close
End Sub |
