般是Sql语句,也有存储过程
''' 判断Sql语句的类型,一般都不是存储过程
''' 传入的参数
'''
'''
Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable
Dim sqlAdapter As SqlDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
'还是给cmd赋值
cmd.CommandText = cmdText
cmd.CommandType = cmdType
cmd.Connection = conn
cmd.Parameters.AddRange(paras) '参数添加
sqlAdapter = New SqlDataAdapter(cmd) '实例化adapter
Try
sqlAdapter.Fill(ds) '用adapter将dataSet填充
dt = ds.Tables(0) 'datatable为dataSet的第一个表
cmd.Parameters.Clear() '清除参数
Catch ex As Exception
MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
Finally '最后一定要销毁cmd
Call CloseCmd(cmd)
End Try
Return dt
End Function
抽象工厂+接口+配置文件 Factory层
Imports System.Configuration
Imports System.Reflection '添加配置文件引用
Imports IDAL
Public Class DataAccess
'配置文件，抽象工厂
Private ReadOnly assemblyName As String = "DAL"
Private ReadOnly db As String = ConfigurationManager.AppSettings("DB")
Dim ClassName As String
'创建退卡的抽象工厂
Public Function CreateOnline() As IDAL.IOnline
ClassName = assemblyName + "." + db + "CancelCardDAL"
Return CType(Assembly.Load(assemblyName).CreateInstance(ClassName), ICancelCard)
End Function
End Class
配置文件
< xml version="1.0" encoding="utf-8" >
因为这里介绍的是存储结构和事务，所以只是把相关的代码给大家，因为B层和U层和没有存储过程一样，这里就不再浪费大家的时间，其时大家也可以发现，他在程序中就是当成了一条SQL语句来执行的，具体的效果确不是在程序里边加几条SQL语句就能比的了的。 1.首先他的结构固定，学习也方便，我们需要改动的没有很 2.事务的作用尽管和If语句很想，但是我们在D层加太多的If难免就会觉得冗杂，但是事务不会。 3.运行效果他会更快，至于为什么，存储过程只在创造时进行编译，以后每次执行存储过程都不需要重新编译，而一般SQL语句每执行一次就编译一次，所以使用存储提高
数据库的执行速度。
|