将经典ASP ADODB脚本转换为TSQL

时间:2013-08-22 11:25:49

标签: tsql asp-classic vbscript

您好我继承了一些旧的经典ASP代码,在我认为旧的MS访问数据库中对某些表进行了一些更新。

数据库现在已经转换为SQL并且工作正常,但是我需要将一些旧的ASP代码转换为等效的TSQL。 TSQL不是我的强项,并且会感谢一些帮助将vb脚本转换为等效的TSQL以用于称为“UpdateCircuitOrdersComments”的存储过程,这不是我正在努力的基本语法,它可以做更多的事情IE FOR的IF案例,循环等,以便在sql中实现以下。

我知道下面的代码不是很好,或者可以做得更好,但这就是我继承的遗憾。

除了“合约期”之外,使用ajax传递给sproc的c#参数可以使用每个字段

期待从你们的任何合理建议中学习......

脚本如下:

Dim connect2, Class2, Query2, Counter
Dim indate1, indate2, indate3, aday1, amonth1, ayear1, aday2, amonth2, ayear2, aday3, amonth3, ayear3, length, maintrate, equiprate, stqrrate, startserial, liveserial, endserial

Dim splitArray


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open QuotebaseDB

Set Class1 = Server.CreateObject("ADODB.Recordset")
Query =    "SELECT * FROM circuits WHERE ID=" & Request("ID")
Class1.Open Query,Connect,adOpenDynamic,adLockOptimistic

if Class1("Contract Period") <> "" Then
    length = Class1("Contract Period")
    splitArray = split(length, " ")
    length = CInt(splitArray(0))
else
    length = 1
end if

Class1("actual live date") = Request("actuallivedate")
Class1("lastupdater") = Session("username")
Class1("lastupdate") = Date()
Class1("Contract Period") = length

Class1.Update

'=========================================
' Add Rate Information - Based On Actuals
'=========================================

   indate1 = Request("actuallivedate")   
   indate2 = Request("actuallivedate")
   indate3 = Request("actuallivedate")

   aday1 = Left(indate1, 2)
   amonth1 = Mid(indate1, 4, 2)
   ayear1 = Right(indate1, 2)
   aday2 = Left(indate2, 2)
   amonth2 = Mid(indate2, 4, 2)
   ayear2 = Right(indate2, 2)
   aday3 = Left(indate3, 2)
   amonth3 = Mid(indate3, 4, 2)
   ayear3 = Right(indate3, 2) + length

   startserial = dateserial(ayear1, amonth1, aday1)
   liveserial = dateserial(ayear2, amonth2, aday2)
   endserial = dateserial(ayear3, amonth3, aday3)


'========================================================
' Check that current maintenance rate will be superseded
'========================================================


Dim MaintConnect1, MaintRS1, MaintQuery1 

Set MaintConnect1 = Server.CreateObject("ADODB.Connection")
MaintConnect1.Open QuotebaseDB

Set MaintRS1 = Server.CreateObject("ADODB.Recordset")
MaintQuery1 =    "SELECT * FROM maintenancetable WHERE CircuitID=" & Request("ID")
MaintRS1.Open MaintQuery1,MaintConnect1,adOpenDynamic,adLockOptimistic

Do while not MaintRS1.eof

If (MaintRS1("startdate") < startserial) OR (MaintRS1("enddate") > endserial) Then

MaintRS1("startdate") = StartSerial
MaintRS1("enddate") = EndSerial
MaintRS1("circuitnum") = Class1("circuit number")
MaintRS1("modifieddate") = now

MaintRS1.Update

End If

MaintRS1.movenext

Loop

MaintRS1.close
set MaintRS1 = nothing

MaintConnect1.close
set MaintConnect1 = nothing

'========================================================
' Check that current equipment rate will be superseded
'========================================================


Dim EquipConnect1, EquipRS1, EquipQuery1 

Set EquipConnect1 = Server.CreateObject("ADODB.Connection")
EquipConnect1.Open QuotebaseDB

Set EquipRS1 = Server.CreateObject("ADODB.Recordset")
EquipQuery1 =    "SELECT * FROM [equipment table] WHERE CircuitID=" & Request("ID")
EquipRS1.Open EquipQuery1,EquipConnect1,adOpenDynamic,adLockOptimistic

Do while not EquipRS1.eof

If (EquipRS1("startdate") < startserial) OR (EquipRS1("enddate") > endserial) Then

EquipRS1("startdate") = StartSerial
EquipRS1("enddate") = EndSerial
EquipRS1("circuitnum") = Class1("circuit number")
EquipRS1("modifieddate") = now

EquipRS1.Update

End If

EquipRS1.movenext

Loop

EquipRS1.close
set EquipRS1 = nothing

EquipConnect1.close
set EquipConnect1 = nothing

'========================================================
' Check that current rental rate will be superseded
'========================================================

Dim STQRConnect1, STQRRS1, STQRQuery1 

Set STQRConnect1 = Server.CreateObject("ADODB.Connection")
STQRConnect1.Open QuotebaseDB

Set STQRRS1 = Server.CreateObject("ADODB.Recordset")
STQRQuery1 =    "SELECT * FROM STQRtable WHERE CircuitID=" & Request("ID")
STQRRS1.Open STQRQuery1,STQRConnect1,adOpenDynamic,adLockOptimistic

Do while not STQRRS1.eof

If (STQRRS1("startdate") < startserial) OR (STQRRS1("enddate") > endserial) Then

STQRRS1("startdate") = StartSerial
STQRRS1("enddate") = EndSerial
STQRRS1("circuitnum") = Class1("circuit number")
STQRRS1("modifieddate") = now

STQRRS1.Update

End If

STQRRS1.movenext

Loop

STQRRS1.close
set STQRRS1 = nothing

STQRConnect1.close
set STQRConnect1 = nothing

'===========================================
' Update Connection Charge As A One Off Charge
'===========================================

Dim OneConnect, OneRS, OneQuery 

Set OneConnect = Server.CreateObject("ADODB.Connection")
OneConnect.Open QuotebaseDB

Set OneRS = Server.CreateObject("ADODB.Recordset")
OneQuery = "SELECT * FROM OneOffCharges WHERE chargetype = 'Connection Charge' and CircuitID=" & Request("ID")

OneRS.Open OneQuery,OneConnect,adOpenDynamic,adLockOptimistic

If not oners.eof Then

OneRS("chargedate") = startserial
OneRS("modifieddate") = now
OneRS("chargetype") = "Connection Charge"

OneRS.Update

End If

OneRS.close
set OneRS = nothing

OneConnect.close
set OneConnect = nothing

Class1.close
set Class1 = nothing

Connect.close
set Connect = nothing

1 个答案:

答案 0 :(得分:3)

循环似乎没有做太多其他事情,然后迭代记录集。您不太可能需要在T-SQL中执行此操作,因为您可能会从查询中推断出所有内容。

大多数看起来像更新语句

-- Check that current maintenance rate will be superseded
UPDATE maintenancetable 
SET StartDate = @startSerial,
    EndDate = @endSerial,
    CircuitNum = @circuitNumber,
    ModifiedDate = CURRENT_TIMESTAMP
WHERE CircuitID=@circuitId
AND (Startdate < @startSerial OR EndDate > @endSerial)

合同期有点令人困惑,它似乎得到了数组的第一项,所以也许这相当于

SELECT TOP 1 ContractPeriod FROM circuits WHERE ID=@id
-- ? ORDER BY ContractPeriod ?