dim xlapp
dim nykyinen_kansio, asmallifilu

Set objFSO = CreateObject("Scripting.FileSystemObject")
nykyinen_kansio = objFSO.GetParentFolderName(WScript.ScriptFullName) & "\"

msgbox "Yritetään päivittää SQL-kanta PAR kirjautuminen.xltm -tiedoston perusteella"

set xlapp = CreateObject("Excel.Application") 'avataan uusi Excel-instanssi

avaa_par_kirjautuminen xlapp, nykyinen_kansio

sub avaa_par_kirjautuminen(xlapp, polku)
	dim xlwrk
	dim sqlar, sqltoimenpide
	
	Set xlwrk = xlapp.Workbooks.Open(polku & "PAR kirjautuminen.xltm") 'avataan asiakkaanmalli	

	xlwrk.sheets("asetukset").Range("B13") = "-1"
	'koitetaan päivittää versionumero
	sqlar = xlapp.run("sql_hae_arrayksi", "SELECT * FROM VERSIO")

	sqltoimenpide = "LISAA"

	If CStr(sqlar(0, 0)) < CStr(xlwrk.sheets("asetukset").range("B7") & "." & xlwrk.sheets("asetukset").range("B8") & "." & xlwrk.sheets("asetukset").range("B9")) Then

		xlapp.run "sql_suorita", "DELETE FROM VERSIO"
		
		sqlar(0, 0) = xlwrk.sheets("asetukset").range("B7") & "." & xlwrk.sheets("asetukset").range("B8") & "." & xlwrk.sheets("asetukset").range("B9")

		xlapp.run "sql_suorita_recordset_menetelma", cstr(sqltoimenpide), cstr("VERSIO"), sqlar
	End If		

	If xlapp.run("sql_paivita_tietokanta") = false Then
		MsgBox "Tietokannan päivitys epäonnistui"
		Exit Sub
	
	End If
	xlapp.run "loppusulku"
	msgbox "Valmis"
end sub