-
-
Save spellancer/4050878 to your computer and use it in GitHub Desktop.
| Sub zap(oEvent) | |
| Dim i as Integer | |
| i=0 | |
| oForm = oEvent.Source.getModel().getParent() | |
| oCon=oForm.ActiveConnection 'объект для доступа к базе данных | |
| oStatement=oCon.CreateStatement() 'объект для выполнения запросов | |
| sSQLL= "SELECT ""Название"" FROM ""Вид соревнований"" " | |
| sSQL= "SELECT ""Место"" , ""Страна"" FROM ""Ведомость"" " | |
| oRes=oStatement.executeQuery(sSQLL) | |
| oResult=oStatement.executeQuery(sSQL) | |
| oStatement.executeQuery(sSQLL) | |
| oStatement.executeQuery(sSQL) | |
| Do While oRes.next() | |
| Do While oResult.next() | |
| if (oRes.getstring(1)="Чемпионат Европы") and (oResult.getstring(2)="Россия") and (oResult.getstring(1)<=3) then | |
| i=i+1 | |
| End If | |
| Loop | |
| Loop | |
| oForm.getByName("output").text=i | |
| msgBox("ready") | |
| End Sub |
Dim i as Integer
i=0
oForm = oEvent.Source.getModel().getParent()
oCon=oForm.ActiveConnection 'объект для доступа к базе данных
'выполняем запрос
sSQLL= "SELECT ""Название"" FROM ""Вид соревнований"" "
sSQL= "SELECT ""Место"" , ""Страна"" FROM ""Ведомость"" "
oRes=oStatement.executeQuery(sSQLL)
oResult=oStatement1.executeQuery(sSQL)
Do While oResult.next()
Do While oRes.next()
if (oRes.getstring(1)="Чемпионат Европы") and (oResult.getstring(2)="Россия") and (oResult.getstring(1)<=3) then
i=i+1
End If
Loop
Loop
oForm.getByName("output").text=i
msgBox("ready")
End Sub
Dim i as Integer
i=0
oForm = oEvent.Source.getModel().getParent()
oCon=oForm.ActiveConnection 'объект для доступа к базе данных
'выполняем запрос
sSQLL= "SELECT ""Название"" FROM ""Вид соревнований"" "
sSQL= "SELECT ""Место"" , ""Страна"" FROM ""Ведомость"" "
oRes=oStatement.executeQuery(sSQLL)
oResult=oStatement1.executeQuery(sSQL)
Do While oResult.next()
Do While oRes.next()
if (oRes.getstring(1)="Чемпионат Европы") and (oResult.getstring(2)="Россия") and (oResult.getstring(1)<=3) then
i=i+1
End If
Loop
Loop
oForm.getByName("output").text=i
msgBox("ready")
End Sub
Sub zap(oEvent)
Dim i as Integer
i=0
oForm = oEvent.Source.getModel().getParent()
oCon=oForm.ActiveConnection 'объект для доступа к базе данных
oStatement=oCon.CreateStatement() 'объект для выполнения запросов
oStatement1=oCon.CreateStatement() 'объект для выполнения запросов
Dim i as Integer
i=0
oForm = oEvent.Source.getModel().getParent()
oCon=oForm.ActiveConnection 'объект для доступа к базе данных
'выполняем запрос
sSQLL= "SELECT ""Название"" FROM ""Вид соревнований"" "
sSQL= "SELECT ""Место"" , ""Страна"" FROM ""Ведомость"" "
oRes=oStatement.executeQuery(sSQLL)
oResult=oStatement1.executeQuery(sSQL)
Do While oResult.next()
Do While oRes.next()
if (oRes.getstring(1)="Чемпионат Европы") and (oResult.getstring(2)="Россия") and (oResult.getstring(1)<=3) then
Loop
Loop
oForm.getByName("output").text=i
msgBox("ready")
End Sub