Hvordan laver jeg en ASP-fil der benytter en Stored procedure til at slette en obs i et recordset ?
Jeg har en ASP-fil der henter alle obs i rs og håber at den kan bruges med få tilretninger. Den ser sådan ud:
---
<%@ Language=VBScript %>
<%
Dim objConn
Dim objCommand
Dim objRecordset
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "FILE NAME=C:\Program Files\Common Files\ODBC\Data Sources\ForbindASPtilSQL.DSN"
Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.CommandType = 4
objCommand.CommandText = "HentGrundData"
objCommand.ActiveConnection = objConn
Set objRecordset = Server.CreateObject("ADODB.Recordset")
Set objRecordset = objCommand.Execute
Do While Not objRecordset.EOF
Response.Write objRecordset.Fields("Kundenr")
response.write "<br>"
objRecordset.MoveNext
Loop
%>
---
Min Stored procedure "HentGrundData" ser sådan ud:
---
CREATE PROCEDURE
HentGrundData
AS
SET NOCOUNT ON
SELECT Bruger,
Regnr,
Navn,
Kundenr,
Modedato,
Produktgrp,
Produkttyp,
Indt,
RegTime,
ID
FROM GrundData
ORDER BY Bruger, Regnr, Kundenr, Modedato, Produktgrp, Produkttyp, Indt
SET NOCOUNT OFF
GO
---
...og den stored procedure der anvendes til at slette obs med ser sådan ud:
---
CREATE PROCEDURE [delete_Grunddata_1]
(@ID_10 int)
AS
PRINT @Kundenr_1
DELETE [Finansraadgiv].[dbo].[Grunddata]
WHERE
( [ID] = @ID_10)
GO
---
Mit ID skal overføres til ASP-siden via JavaScript når der trykkes på en knap.
|