Access存储过程,环境:VB 2005+.NET2.0+ACCESS2003(转载)

简介: 简化程序,仅有创建读取查询,读取查询语句,创建存储过程模块CreateSP.vb=======================================================Imports SystemImports System.

简化程序,仅有创建读取查询,读取查询语句,


创建存储过程模块CreateSP.vb
=======================================================

Imports System
Imports System.Data
Imports System.Data.OleDb

Module CreateSP
Sub Main()
ProductsProcs()
End Sub

'为DB创建存储过程.
Sub ProductsProcs()
Dim sSQL As String

'查询
sSQL = "CREATE PROC procProductsList AS SELECT * FROM datas;"
CreateStoredProc(sSQL)

End Sub

'创建
Sub CreateStoredProc(ByVal sSQL As String)
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand
Dim da As OleDbDataAdapter
Dim sConStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb"
con = New OleDbConnection(sConStr)
cmd.Connection = con
cmd.CommandText = sSQL
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Module





调用模块
===========================================================


Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class DBTier

Shared connectionString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb"


'库存查询
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, "datas")
Return ds
End Function

End Class




实例
=================================================================

Option Strict Off
Option Explicit On
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Text

Public Class manager

Inherits System.Windows.Forms.Form
Dim Stored As New DBTier
Dim statusok As Boolean
Dim frmStatusMessage As New status
'Public Event TextChanged As EventHandler


Private Sub manager_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not statusok = True Then
frmStatusMessage.Show("正在构建数据表,请稍候.")
End If

'建立表,只需执行一次.
'----------------------------------------
'ProductsProcs()
End Sub

Private Sub dbview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dbview.Click
dbdg.DataSource = Stored.ProductsList.Tables(0)
End Sub

End Class

目录
相关文章
|
监控 物联网 API
【.NET+MQTT】.NET6 环境下实现MQTT通信,以及服务端、客户端的双边消息订阅与发布的代码演示
MQTT广泛应用于工业物联网、智能家居、各类智能制造或各类自动化场景等。MQTT是一个基于客户端-服务器的消息发布/订阅传输协议,在很多受限的环境下,比如说机器与机器通信、机器与物联网通信等。好了,科普的废话不多说,下面直接通过.NET环境来实现一套MQTT通信demo,实现服务端与客户端的双边消息发布与订阅的功能和演示。
1133 0
【.NET+MQTT】.NET6 环境下实现MQTT通信,以及服务端、客户端的双边消息订阅与发布的代码演示
|
存储 开发框架 关系型数据库
Windows Server 2008 R2配置.Net环境
Windows Server 2008 R2配置.Net环境
230 0
Windows Server 2008 R2配置.Net环境
|
存储 数据采集 网络协议
【.NET6+Modbus】Modbus TCP协议解析、仿真环境以及基于.NET实现基础通信
随着工业化的发展,目前越来越多的开发,从互联网走向传统行业。其中,工业领域也是其中之一,包括各大厂也都在陆陆续续加入工业4.0的进程当中。
322 0
【.NET6+Modbus】Modbus TCP协议解析、仿真环境以及基于.NET实现基础通信
|
消息中间件 运维 数据可视化
【Kafka】基于Windows环境的Kafka有关环境(scala+zookeeper+kafka+可视化工具)搭建、以及使用.NET环境开发的案例代码与演示
基于Windows系统下的Kafka环境搭建;以及使用.NET 6环境进行开发简单的生产者与消费者的演示。
425 0
【Kafka】基于Windows环境的Kafka有关环境(scala+zookeeper+kafka+可视化工具)搭建、以及使用.NET环境开发的案例代码与演示
|
Linux Shell 开发工具
CentOS下安装.net core环境并部署WebAPI
CentOS下安装.net core环境并部署WebAPI
527 0
CentOS下安装.net core环境并部署WebAPI
|
开发框架 .NET 应用服务中间件
|
开发框架 前端开发 JavaScript
ASP.NET Core 2.1以上Bootstr ap4前端模板文件,开发环境与发布环境前端模板environment的使用
ASP.NET Core 2.1以上Bootstr ap4前端模板文件,开发环境与发布环境前端模板environment的使用
221 0
ASP.NET Core 2.1以上Bootstr ap4前端模板文件,开发环境与发布环境前端模板environment的使用
mono,让C#脱离.NET环境
mono,让C#脱离.NET环境
362 0
|
jenkins Java Linux
|
Java 程序员
在Java大环境下.NET程序员如何夺得一线生机
在Java大环境下.NET程序员如何夺得一线生机先来看一组数据,从某招聘网站直接检索3-4w的岗位,会看到Java与.NET社会需求量的巨大差异,这里就不再对比高薪的岗位了,.NET的高薪岗位更是少的可怜:   笔者从业十余年,一直是在.NET圈子摸爬滚打,曾经也有几次机会可以转Java,但或许是懒惰,或许出于对微软的信任,也或许是相信市场供求关系的调整,总之,没有换过语言,一直追寻微软脚步,实践各种新技术并扩充知识面。
2354 0