Set C = CreateObject („ADODB.Connection“)
C.CommandTimeout = 720
'gehen, sich auf folgender Linie zu wenden, um Adresse zu sehen, die durch geführt wird
C.Open „Driver= {SQL-Server}; Server=1111.111.11.111. ; Database=IRS 433f; Uid=sa; password= *****; “
Einstellen R = CreateObject („ADODB.RecordSet“)
'Parameter wurden mir vom Klienten gegeben
R.Open „führen usp_v1“, C durch
R.Open „führen usp_v1“, C durch
Wenn nicht R.EOF dann
Zellen (1, „A) = R (0)
|