use [DatenbankX]
GO
 
if exists (select * from dbo.sysobjects where id = object_id( _
  N'[dbo].[Prozedur_Y]') and OBJECTPROPERTY(id, N'IsProcedure') = 
 
1)
drop procedure [dbo].[Prozedur_Y]
GO
 
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
 
CREATE PROCEDURE [dbo].[Prozedur_Y] AS
SELECT XX_Kategorien.Bezeichnung, Count(XX_Kategorien.ID) AS Anzahl
FROM XX_Kategorien
GROUP BY XX_Kategorien.Bezeichnung;
 
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO
 
if not exists (select * from dbo.sysobjects where id = object_id( _
  N'[dbo].[Prozeduren]') and OBJECTPROPERTY(id, 
 
N'IsUserTable') = 1)
CREATE TABLE [dbo].[Prozeduren] (
	[ID]  uniqueidentifier ROWGUIDCOL  NOT NULL ,
	[Proc_Name] [nvarchar] (255) COLLATE Latin1_General_CI_AS NULL ,
	[Var1] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var1_Typ] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var2] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var2_Typ] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var3] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var3_Typ] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var4] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[Var4_Typ] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL 
) ON [PRIMARY]
GO
 
INSERT INTO [dbo].[Prozeduren] ([ID], [Proc_Name]) VALUES (NEWID(), _
  'Prozedur_Y')
GO

                        Dim sqlcn As New SqlClient.SqlConnection( _
                          GetConnectString(, True))
                        Dim trans As SqlClient.SqlTransaction
                        Dim cmd As New SqlClient.SqlCommand
                        sqlcn.Open()
                        trans = sqlcn.BeginTransaction
 
                        Try
                            cmd.Connection = sqlcn
                            cmd.CommandText = SQLSKRIPT
                            cmd.Transaction = trans
                            cmd.ExecuteNonQuery()
                            trans.Commit()
                        Catch ex As Exception
                            trans.Rollback()
                            MsgBox(ex.Message)
                        Finally
                            sqlcn.Close()
                        End Try