手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

Working with MS Access Stored Procedures in VB.NET Montaque(转贴)

来源:互联网 作者:西部数码 时间:2008-04-10
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
.Value = ProductID End With cmd.Parameters.Add(paramProductID) con.Open() cmd.ExecuteNonQuery() con.Close() Imports System.Data Imports System.Data.OleDb '''' Functions and subroutines for executing Stored Procedures in Access. Public Class DBTier '''' Change Data Source to the location of Northwind.mdb on your local '''' system. Shared connectionString As String = _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program " _ & "Files\Microsoft Office\Office10\Samples\Northwind.mdb" '''' This function returns a dataset containing all records in '''' the Products 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

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!