Insert-Statement dynamisch für das InsertCommand generieren

[Visual Basic]
Private Sub Generate_Insert_Statement()

Quellcode

[Visual Basic]
        Private Sub Generate_Insert_Statement() 
            Dim col As DataColumn 
            Dim col1 As DataColumn 
            Dim UseCol As Boolean = False 
 
            InsertCommand.CommandText = Me.Insert_Proc 
            InsertCommand.CommandType = System.Data.CommandType.StoredProcedure 
            InsertCommand.Connection = connection 
 
            InsertCommand.Parameters.Clear() 
            For Each col In Me.Tabledata.Tables(0).Columns 
                UseCol = False 
                For Each col1 In Me.BaseData.Tables(0).Columns 
                    If col.ColumnName = col1.ColumnName Then 
                        UseCol = True 
                        Exit For 
                    End If 
                Next 
                If UseCol Then InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName)) 
            Next 
            InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4)) 
            InsertCommand.Parameters("@iErrorcode").Value = 0 
            da.InsertCommand = InsertCommand 
        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

DomainTable