📄 northwinddataset.designer.vb
字号:
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace NorthwindDataSetTableAdapters
<System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class CategoriesTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents m_adapter As System.Data.SqlClient.SqlDataAdapter
Private m_connection As System.Data.SqlClient.SqlConnection
Private m_commandCollection() As System.Data.SqlClient.SqlCommand
Private m_clearBeforeFill As Boolean
Public Sub New()
MyBase.New
Me.m_clearBeforeFill = true
End Sub
Private ReadOnly Property Adapter() As System.Data.SqlClient.SqlDataAdapter
Get
If (Me.m_adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me.m_adapter
End Get
End Property
Friend Property Connection() As System.Data.SqlClient.SqlConnection
Get
If (Me.m_connection Is Nothing) Then
Me.InitConnection
End If
Return Me.m_connection
End Get
Set
Me.m_connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),System.Data.SqlClient.SqlCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
Protected ReadOnly Property CommandCollection() As System.Data.SqlClient.SqlCommand()
Get
If (Me.m_commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me.m_commandCollection
End Get
End Property
Public Property ClearBeforeFill() As Boolean
Get
Return Me.m_clearBeforeFill
End Get
Set
Me.m_clearBeforeFill = value
End Set
End Property
Private Sub InitAdapter()
Me.m_adapter = New System.Data.SqlClient.SqlDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Categories"
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
tableMapping.ColumnMappings.Add("Description", "Description")
tableMapping.ColumnMappings.Add("Picture", "Picture")
Me.m_adapter.TableMappings.Add(tableMapping)
Me.m_adapter.DeleteCommand = New System.Data.SqlClient.SqlCommand
Me.m_adapter.DeleteCommand.Connection = Me.Connection
Me.m_adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Categories] WHERE (([CategoryID] = @Original_CategoryID) AND ("& _
"[CategoryName] = @Original_CategoryName))"
Me.m_adapter.DeleteCommand.CommandType = System.Data.CommandType.Text
Me.m_adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryID", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryID", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me.m_adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryName", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryName", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me.m_adapter.InsertCommand = New System.Data.SqlClient.SqlCommand
Me.m_adapter.InsertCommand.Connection = Me.Connection
Me.m_adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Categories] ([CategoryName], [Description], [Picture]) VALUES "& _
"(@CategoryName, @Description, @Picture);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CategoryID, CategoryName, Descr"& _
"iption, Picture FROM Categories WHERE (CategoryID = @@IDENTITY)"
Me.m_adapter.InsertCommand.CommandType = System.Data.CommandType.Text
Me.m_adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryName", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryName", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Description", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Picture", System.Data.SqlDbType.VarBinary, 0, System.Data.ParameterDirection.Input, 0, 0, "Picture", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand = New System.Data.SqlClient.SqlCommand
Me.m_adapter.UpdateCommand.Connection = Me.Connection
Me.m_adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Categories] SET [CategoryName] = @CategoryName, [Description] = @De"& _
"scription, [Picture] = @Picture WHERE (([CategoryID] = @Original_CategoryID) AND"& _
" ([CategoryName] = @Original_CategoryName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CategoryID, CategoryName, D"& _
"escription, Picture FROM Categories WHERE (CategoryID = @CategoryID)"
Me.m_adapter.UpdateCommand.CommandType = System.Data.CommandType.Text
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryName", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryName", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Description", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Picture", System.Data.SqlDbType.VarBinary, 0, System.Data.ParameterDirection.Input, 0, 0, "Picture", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryID", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryID", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryName", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "CategoryName", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me.m_adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, 0, 0, "CategoryID", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
Private Sub InitConnection()
Me.m_connection = New System.Data.SqlClient.SqlConnection
Me.m_connection.ConnectionString = DataGridViewImagesNW.Settings.Default.NorthwindConnectionString
End Sub
Private Sub InitCommandCollection()
Me.m_commandCollection = New System.Data.SqlClient.SqlCommand(0) {}
Me.m_commandCollection(0) = New System.Data.SqlClient.SqlCommand
Me.m_commandCollection(0).Connection = Me.Connection
Me.m_commandCollection(0).CommandText = "SELECT CategoryID, CategoryName, Description, Picture FROM dbo.Categories"
Me.m_commandCollection(0).CommandType = System.Data.CommandType.Text
End Sub
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As NorthwindDataSet.CategoriesDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.m_clearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As NorthwindDataSet.CategoriesDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As NorthwindDataSet.CategoriesDataTable = New NorthwindDataSet.CategoriesDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
Public Overloads Overridable Function Update(ByVal dataTable As NorthwindDataSet.CategoriesDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
Public Overloads Overridable Function Update(ByVal dataSet As NorthwindDataSet) As Integer
Return Me.Adapter.Update(dataSet, "Categories")
End Function
Public Overloads Overridable Function Update(ByVal dataRow As System.Data.DataRow) As Integer
Return Me.Adapter.Update(New System.Data.DataRow() {dataRow})
End Function
Public Overloads Overridable Function Update(ByVal dataRows() As System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal Original_CategoryID As Integer, ByVal Original_CategoryName As String) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CategoryID,Integer)
If (Original_CategoryName Is Nothing) Then
Throw New System.ArgumentNullException("Original_CategoryName")
Else
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CategoryName,String)
End If
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
Me.Adapter.DeleteCommand.Connection.Open
Try
Return Me.Adapter.DeleteCommand.ExecuteNonQuery
Finally
If (previousConnectionState = System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close
End If
End Try
End Function
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal CategoryName As String, ByVal Description As String, ByVal Picture() As Byte) As Integer
If (CategoryName Is Nothing) Then
Throw New System.ArgumentNullException("CategoryName")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(CategoryName,String)
End If
If (Description Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(1).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String)
End If
If (Picture Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(2).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Picture,Byte())
End If
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
Me.Adapter.InsertCommand.Connection.Open
Try
Return Me.Adapter.InsertCommand.ExecuteNonQuery
Finally
If (previousConnectionState = System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close
End If
End Try
End Function
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal CategoryName As String, ByVal Description As String, ByVal Picture() As Byte, ByVal Original_CategoryID As Integer, ByVal Original_CategoryName As String, ByVal CategoryID As Integer) As Integer
If (CategoryName Is Nothing) Then
Throw New System.ArgumentNullException("CategoryName")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CategoryName,String)
End If
If (Description Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Description,String)
End If
If (Picture Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(2).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Picture,Byte())
End If
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_CategoryID,Integer)
If (Original_CategoryName Is Nothing) Then
Throw New System.ArgumentNullException("Original_CategoryName")
Else
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_CategoryName,String)
End If
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CategoryID,Integer)
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
Me.Adapter.UpdateCommand.Connection.Open
Try
Return Me.Adapter.UpdateCommand.ExecuteNonQuery
Finally
If (previousConnectionState = System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close
End If
End Try
End Function
End Class
End Namespace
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -