Vertragsverwaltung-Klassenbibliothek  

frmSysadminTableSelector.InitializeComponent -Methode

[Visual Basic]
<System.Diagnostics.DebuggerStepThrough()> _ 
Private Sub InitializeComponent()

Quellcode

[Visual Basic]
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSysadminTableSelector)) 
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter 
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand 
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection 
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand 
Me.DataSet1 = New System.Data.DataSet 
Me.ListBox1 = New System.Windows.Forms.ListBox 
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() 
Me.SuspendLayout() 

'SqlDataAdapter1 

Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1 
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1 
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "sysobjects", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("xtype", "xtype"), New System.Data.Common.DataColumnMapping("uid", "uid"), New System.Data.Common.DataColumnMapping("info", "info"), New System.Data.Common.DataColumnMapping("status", "status"), New System.Data.Common.DataColumnMapping("base_schema_ver", "base_schema_ver"), New System.Data.Common.DataColumnMapping("replinfo", "replinfo"), New System.Data.Common.DataColumnMapping("parent_obj", "parent_obj"), New System.Data.Common.DataColumnMapping("crdate", "crdate"), New System.Data.Common.DataColumnMapping("ftcatid", "ftcatid"), New System.Data.Common.DataColumnMapping("schema_ver", "schema_ver"), New System.Data.Common.DataColumnMapping("stats_schema_ver", "stats_schema_ver"), New System.Data.Common.DataColumnMapping("type", "type"), New System.Data.Common.DataColumnMapping("userstat", "userstat"), New System.Data.Common.DataColumnMapping("sysstat", "sysstat"), New System.Data.Common.DataColumnMapping("indexdel", "indexdel"), New System.Data.Common.DataColumnMapping("refdate", "refdate"), New System.Data.Common.DataColumnMapping("version", "version"), New System.Data.Common.DataColumnMapping("deltrig", "deltrig"), New System.Data.Common.DataColumnMapping("instrig", "instrig"), New System.Data.Common.DataColumnMapping("updtrig", "updtrig"), New System.Data.Common.DataColumnMapping("seltrig", "seltrig"), New System.Data.Common.DataColumnMapping("category", "category"), New System.Data.Common.DataColumnMapping("cache", "cache")})}) 

'SqlInsertCommand1 

Me.SqlInsertCommand1.CommandText = "[pv_sysobjects_insert]" 
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure 
Me.SqlInsertCommand1.Connection = Me.SqlConnection1 
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.NVarChar, 128, "name"), New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"), New System.Data.SqlClient.SqlParameter("@xtype", System.Data.SqlDbType.VarChar, 2, "xtype"), New System.Data.SqlClient.SqlParameter("@uid", System.Data.SqlDbType.Int, 2, "uid"), New System.Data.SqlClient.SqlParameter("@info", System.Data.SqlDbType.Int, 2, "info"), New System.Data.SqlClient.SqlParameter("@status", System.Data.SqlDbType.Int, 4, "status"), New System.Data.SqlClient.SqlParameter("@base_schema_ver", System.Data.SqlDbType.Int, 4, "base_schema_ver"), New System.Data.SqlClient.SqlParameter("@replinfo", System.Data.SqlDbType.Int, 4, "replinfo"), New System.Data.SqlClient.SqlParameter("@parent_obj", System.Data.SqlDbType.Int, 4, "parent_obj"), New System.Data.SqlClient.SqlParameter("@crdate", System.Data.SqlDbType.DateTime, 8, "crdate"), New System.Data.SqlClient.SqlParameter("@ftcatid", System.Data.SqlDbType.Int, 2, "ftcatid")}) 

'SqlConnection1 

Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _ 
"station id=SHU;packet size=4096" 
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False 

'SqlSelectCommand1 

Me.SqlSelectCommand1.CommandText = "[pv_sysobjects_select]" 
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure 
Me.SqlSelectCommand1.Connection = Me.SqlConnection1 
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) 

'DataSet1 

Me.DataSet1.DataSetName = "NewDataSet" 
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH") 

'ListBox1 

Me.ListBox1.Location = New System.Drawing.Point(8, 16) 
Me.ListBox1.Name = "ListBox1" 
Me.ListBox1.Size = New System.Drawing.Size(240, 316) 
Me.ListBox1.TabIndex = 0 

'frmSysadminTableSelector 

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) 
Me.ClientSize = New System.Drawing.Size(256, 349) 
Me.Controls.Add(Me.ListBox1) 
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 
Me.Name = "frmSysadminTableSelector" 
Me.Text = "Tabelle auswählen" 
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() 
Me.ResumeLayout(False) 
 
End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmSysadminTableSelector