开发者社区> pensir> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
MySQL存储过程与函数(下)
MySQL存储过程与函数
27 0
国家物联网与智慧城市研发专家张文生:智慧城市建设是一个漫长的过程
“现在的城市不能只谈我们的生活、商业,实际上应该与产业也是相结合的,如果不和产业结合,这个城市很难有大的发展。”
318 0
MySQL DAL(Data Access Layer)中间件总结
DAL是数据访问层的英文缩写,即为数据访问层(Data Access Layer)。用在这里可能不是特别恰当,因为本文主要介绍MySQL访问的中间件,不过也是属于DAL的范畴。本文不会去高可用相关的知识,主要聚焦于MySQL的横向扩展。
1187 0
DuKBitmapImages 图片压缩处理技术
Android图片压缩上传系列 *压缩中的问题: --图片压缩上如果存在问题,势必造成消耗大量的流量,下载图片的速度慢等影响产品性能,那么如何解决?请看下面: 压缩图片一共多少张?一起压缩?分开压缩?尺寸? 压缩后的图片保存的路径? 对于多图压缩性能处理的问题?并发or线性处理? 能不能使用service来进行压缩处理,是local(本地)还是remote(远程)的方式来启动service? 如果需要压缩的图片非常多,如何使用线程池来处理?    其实做过图片压缩的朋友应该知道,这一块的技术点就那么几个,按照逻辑处理起来也是不一样的效果,主要是关注处理出来的图片的尺寸和质量。
1357 0
bboss aop 1.0.6 发布
bboss aop 1.0.6 发布,下载地址: https://sourceforge.net/project/showfiles.php?group_id=238653&package_id=290546&release_id=658454   新增了以下功能: 1.       增加远程管理组件 2.       实现aop 框架远程服务调用功能 3.       增加全局属性配置功能   更详细的介绍,请访问博客中新发布的相关文档。
663 0
一起谈.NET技术,Silverlight 2.5D RPG游戏技巧与特效处理:(五)圣赞之HLSL渲染动画
  或许大家依旧对上一节中的“黑夜”及“梦回过去”记忆犹新,追问下去HLSL到底是何方神圣能实现如此炫酷之效果?HLSL(高级着色器语言)作为微软的独门兵器,仅供Direct3D使用。Silverlight无比幸运,从第二个版本开始便已获得了这把旷世利器,虽然目前仅能发挥其不到3层之功力,不过前辈Moonlight近期已向世界宣布全面突破技术壁垒,HLSL的威力提升至7层左右。
1007 0
+关注
157
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载