'Declaration im Modul
 
Public Con As New ADODB.Connection 'Connection
Public CatADO As New ADOX.Catalog 'ADOX Catalog
Public Cmd As New ADODB.Command 'ADO Command
 
'Functionen im Modul
 
'SP wird erstellt
Private Sub CreateSP
    Set Cmd.ActiveConnection = Con
    Set CatADO.ActiveConnection = Con
    If Trim(Text4.Text) <> "" And InStr(1, LCase(Text3.Text), "[parameter]", _
      vbBinaryCompare) > 0 Then
     If IsNumeric(Text4.Text) Then
      P = "PARAMETERS @IntVal INTEGER;"
     Else
      P = "PARAMETERS @TxtVal TEXT(255);"
     End If
      Cmd.CommandText = P & Text3.Text
    Else
     Cmd.CommandText = Text3.Text
    End If
    CatADO.Procedures.Append vData, Cmd
End Sub
 
'SP und View#s werden ausgelesen
Private Function GetSP as Variant
On Error GoTo ErrHandler
Dim i As Long
Dim vData As Variant
Dim Count As Long
 Set CatADO.ActiveConnection = Con
 Set Cmd.ActiveConnection = Con
 For i = 0 To CatADO.Procedures.Count - 1
  If i = 0 Then
   ReDim vData(0)
  Else
   ReDim Preserve vData(i)
  End If
  vData(i) = CatADO.Procedures.Item(i).Name
 Next i
 If IsArray(vData) Then
  Count = 1
 Else
  Count = 0
  End If
 For i = 0 To CatADO.Views.Count - 1
  If Count = 0 And i = 0 Then
   ReDim vData(0)
  Else
   ReDim Preserve vData(UBound(vData) + 1)
  End If
  vData(UBound(vData)) = CatADO.Views.Item(i).Name
 Next i
 If IsArray(vData) Then
GetSP=vdata
else
getSP=Empty
ErrHandler:
GetSP=Empty
End Function