DefStevo1985
Grünschnabel
Gibt es beim SQL Server 2000 bzw. SQL Server 2005 eine Möglichkeit in einer SQL Abfrage ein VB-Script einzubauen bzw. eine andere Art einer Schleife.
Abfrage:
Select Referenznummer, Modula10(Refernznummer, 0) as Prüfziffer from Referenz
Die Funktion Modula10 soll nun ein VB-Script aufrufen, das wie folgt aussieht:
Function Modula10(Wert As String, mitWert As Integer) As String
Dim Kette as String = "09468271350946827135"
Dim i As Integer
Dim HilfZahl As Integer
HilfZahl = 0
For i = 1 To Len(Wert)
HilfZahl = Mid(Kette, HilfZahl + Mid(Wert, i, 1) + 1, 1)
Next
If mitWert = 0 Then Modula10 = Right(10 - HilfZahl, 1) Else Modula10 = (Wert * mitWert) & Right(10 - HilfZahl, 1)
End Function´
Danke für eure Mühe
Lg
Abfrage:
Select Referenznummer, Modula10(Refernznummer, 0) as Prüfziffer from Referenz
Die Funktion Modula10 soll nun ein VB-Script aufrufen, das wie folgt aussieht:
Function Modula10(Wert As String, mitWert As Integer) As String
Dim Kette as String = "09468271350946827135"
Dim i As Integer
Dim HilfZahl As Integer
HilfZahl = 0
For i = 1 To Len(Wert)
HilfZahl = Mid(Kette, HilfZahl + Mid(Wert, i, 1) + 1, 1)
Next
If mitWert = 0 Then Modula10 = Right(10 - HilfZahl, 1) Else Modula10 = (Wert * mitWert) & Right(10 - HilfZahl, 1)
End Function´
Danke für eure Mühe
Lg
