Table. Function ProductsList() As DataSet Dim con As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Dim sSQL As String sSQL = "EXECUTE procProductsList" con = New OleDbConnection(connectionString) da = New OleDbDataAdapter(sSQL, con) ds = New DataSet() da.Fill(ds, "Products") Return ds End Function ' This Function adds one record to the Products table. Sub ProductsAddItem(ByVal ProductName As String, _ ByVal SupplierID As Integer, ByVal CategoryID As Integer) Dim con As OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand() Dim paramProductName As New OleDbParameter() Dim paramSupplierID As New OleDbParameter() Dim paramCategoryID As New OleDbParameter() con = New OleDbConnection(connectionString) cmd.Connection = con With paramProductName .ParameterName = "inProductName" .OleDbType = OleDbType.VarChar .Size = 40 .Value = ProductName End With cmd.Parameters.Add(paramProductName) With paramSupplierID .ParameterName = "inSupplierID" .OleDbType = OleDbType.Integer .Size = 4 .Value = SupplierID End With cmd.Parameters.Add(paramSupplierID) With paramCategoryID .ParameterName = "inCategoryID" .OleDbType = OleDbType.Integer .Size = 4 .Value = CategoryID End With cmd.Parameters.Add(paramCategoryID) cmd.CommandText = "EXECUTE procProductsAddItem" con.Open() cmd.ExecuteNonQuery() con.Close() End Sub ' This function Updates a specific JobTitle Record with new data. Sub ProductsUpdateItem(ByVal ProductID As Integer, _ ByVal ProductName As String) Dim con As OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand() Dim paramProductName As New OleDbParameter() Dim paramProductID As New OleDbParameter() con = New OleDbConnection(connectionString) cmd.Connection = con With paramProductID .ParameterName = "inProductID" .OleDbType = OleDbType.Integer .Size = 4 .Value = ProductID End With cmd.Parameters.Add(paramProductID) With paramProductName .ParameterName = "inProductName" .OleDbType = OleDbType.VarChar .Size = 40 .Value = ProductName End With cmd.Parameters.Add(paramProductName) cmd.CommandText = "EXECUTE procProductsUpdateItem" con.Open() cmd.ExecuteNonQuery() con.Close() End Sub ' This function deletes one record from the Products table. Sub ProductsDeleteItem(ByVal ProductID As Integer) Dim con As OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand() Dim paramProductID As New OleDbParameter() con = New OleDbConnection(connectionString) cmd.Connection = con With paramProductID .ParameterName = "inProductID" .OleDbType = OleDbType.Integer .Size = 4 .Value = ProductID End With cmd.Parameters.Add(paramProductID) cmd.CommandText = "EXECUTE procProductsDeleteItem" con.Open() cmd.ExecuteNonQuery() con.Close() End SubEnd Class
|
