http://www.mcgarvie.net Welcome to Brian and Laura McGarvie's homepage, find out more information on Brian M McGarvie and his it consultancy, and about our personal adventures and experiances... Fri, 09 May 2008 20:11:03 +0000 http://wordpress.org/?v=2.3.3 http://www.mcgarvie.net/2007/07/25/genealogy/history-of-the-mcgarvie-name/#comment-13 Paul McGarvie Thu, 22 Nov 2007 07:53:30 +0000 http://www.mcgarvie.net/2007/07/25/genealogy/history-of-the-mcgarvie-name/#comment-13 small piece of history for you then. Mundy McGarvie was in the first Roll of the Gordon Highlanders in 1794. small piece of history for you then. Mundy McGarvie was in the first Roll of the Gordon Highlanders in 1794.

]]> http://www.mcgarvie.net/2007/08/23/programming/sql-select-using-current-day/#comment-12 logicbox symba Wed, 21 Nov 2007 20:43:45 +0000 http://www.mcgarvie.net/2007/08/23/programming/sql-select-using-current-day/#comment-12 <p>Private Sub lm_Click()<br /> s1 = "select prof.nom_prof from ((((classe inner join r_pc on classe.code_classe=r_pc.code_classe) "<br /> s2 = "inner join prof on r_pc.code_prof=prof.cde_prof) "<br /> s3 = "inner join r_pm on prof.cde_prof=r_pm.code_prof)"<br /> s4 = " inner join module on r_pm.code_module=module.code_mod )"<br /> s5 = " where module.lib_mod='" + lm + "'"<br /> r_sql = s1 & s2 & s3 & s4 & s5<br /> Set tabl = bd.OpenRecordset("select prof.nom_prof from ((((classe inner join r_pc on classe.code_classe=r_pc.code_classe) inner join prof on r_pc.code_prof=prof.cde_prof)inner join r_pm on prof.cde_prof=r_pm.code_prof)inner join module on r_pm.code_module=module.code_mod )where module.lib_mod='" + lm + "'")<br /> While Not tabl.EOF<br /> lp.AddItem tabl![nom_prof]<br /> tabl.MoveNext<br /> Wend</p> Private Sub lm_Click()
s1 = “select prof.nom_prof from ((((classe inner join r_pc on classe.code_classe=r_pc.code_classe) “
s2 = “inner join prof on r_pc.code_prof=prof.cde_prof) “
s3 = “inner join r_pm on prof.cde_prof=r_pm.code_prof)”
s4 = ” inner join module on r_pm.code_module=module.code_mod )”
s5 = ” where module.lib_mod=’” + lm + “‘”
r_sql = s1 & s2 & s3 & s4 & s5
Set tabl = bd.OpenRecordset(”select prof.nom_prof from ((((classe inner join r_pc on classe.code_classe=r_pc.code_classe) inner join prof on r_pc.code_prof=prof.cde_prof)inner join r_pm on prof.cde_prof=r_pm.code_prof)inner join module on r_pm.code_module=module.code_mod )where module.lib_mod=’” + lm + “‘”)
While Not tabl.EOF
lp.AddItem tabl![nom_prof]
tabl.MoveNext
Wend

]]>