开发者社区> 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存储过程与函数
34 0
国家物联网与智慧城市研发专家张文生:智慧城市建设是一个漫长的过程
“现在的城市不能只谈我们的生活、商业,实际上应该与产业也是相结合的,如果不和产业结合,这个城市很难有大的发展。”
320 0
MySQL DAL(Data Access Layer)中间件总结
DAL是数据访问层的英文缩写,即为数据访问层(Data Access Layer)。用在这里可能不是特别恰当,因为本文主要介绍MySQL访问的中间件,不过也是属于DAL的范畴。本文不会去高可用相关的知识,主要聚焦于MySQL的横向扩展。
1218 0
通过代码审计找出网站中的XSS漏洞实战(三)
一、背景 笔者此前录制了一套XSS的视频教程,在漏洞案例一节中讲解手工挖掘、工具挖掘、代码审计三部分内容,准备将内容用文章的形式再次写一此,前两篇已经写完,内容有一些关联性,其中手工XSS挖掘篇地址为快速找出网站中可能存在的XSS漏洞实践(一)https://segmentfault.com/a/1190000016095198 本文主要记录通过代码审计的方式进行XSS漏洞挖掘,分为了找出关键位置,正向审计,反向审计三个部分,审计的系统为permeate渗透测试系统,测试系统的搭建可以参考笔者的第一篇文章。
1488 0
Silverlight 2.5D RPG游戏技巧与特效处理:(五“.NET研究”)圣赞之HLSL渲染动画
  或许大家依旧对上一节中的“黑夜”及“梦回过去”记忆犹新,追问下去HLSL到底是何方神圣能实现如此炫酷之效果?HLSL(高级着色器语言)上海企业网站设计与制作an>作为微软的独门兵器,仅供Direct3D使用。
1074 0
一起谈.NET技术,Silverlight 2.5D RPG游戏技巧与特效处理:(五)圣赞之HLSL渲染动画
  或许大家依旧对上一节中的“黑夜”及“梦回过去”记忆犹新,追问下去HLSL到底是何方神圣能实现如此炫酷之效果?HLSL(高级着色器语言)作为微软的独门兵器,仅供Direct3D使用。Silverlight无比幸运,从第二个版本开始便已获得了这把旷世利器,虽然目前仅能发挥其不到3层之功力,不过前辈Moonlight近期已向世界宣布全面突破技术壁垒,HLSL的威力提升至7层左右。
1012 0
+关注
157
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载