Comandos de procedimientos almacenados.

Hola, en los libros online de SQLServer tiene todos los comandos y con
ejemplos, mejor manual que eso...


Salu2

Microsoft MVP SQL Server
Culminis Speaker
www.sqltotalconsulting.com

"Benjack Bowel" <Benjack escribió en el
mensaje news:

Estimados:

Es posible de su ayuda para encontrar algun manual de sql server 7, con
respecto a comandos de procedimientos almacenados ?
Lo que estoy necesitando es la sintaxis de comandos de proc.almacenados.
ya
que debo realizar un p.a que compruebe el codigo verificador de un rut
(Chile).

Se que existe un comando 'substring' pero no dispongo de la sintaxis.

Si alguien conoce alguna pagina con esta informacion o algun manual donde
los expliquen le estaria muy agradecido.

Ojo: no necesito que me den las respuestas del codigo completo, solo la
sintaxis del comando... ya que necesito aplicar y desarrolar el p.a por mi
cuenta... (la idea es aprender)

Muchas Gracias

Benjack Bowel

Estimado Benjack
Esto está en Visual Basic, lo debes cambiar a SQL, pero basicamente
debes tener:
LEN
LEFT
RIGHT
La funcion CSTR y la funcion VAL lo cambias por CONVERT (revisa los
BOL) es simple.
La funcion MOD que es el resto la suples con %

Bueno ya esta practicamente echo, te pediria que cuando lo tengas
operativo lo postees para que nos sirva a todos.

Salu2.
Penta.

Ya se que pusiste que no querias el codigo, pero bueno ya que
necesitas el digito del rut, aca te lo pego.
Si no quieres saber como se hace el algoritmo NO sigas leyendo :)
.
.
.
.
.
.
.
.
.
.
.
.



Public Function Devuelve_Digito(rut As String) As String
Dim AUX As Long
Dim i As Integer
Dim h As Integer
Dim j As Integer
Dim sum As Integer
h = Len(rut)
j = 2
sum = 0
For i = 1 To h
sum = sum + (Val(Left(Right(rut, i), 1)) * j)
j = j + 1
If j > 7 Then
j = 2
End If
Next
AUX = sum Mod 11
auxdv = 11 - AUX
If auxdv = 11 Then
Devuelve_Digito = "0"
ElseIf auxdv = 10 Then
Devuelve_Digito = "K"
Else
Devuelve_Digito = CStr(auxdv)
End If

End Function