asp.net(vb.net)连接sql server 2000数据库的连接模块(module)

[复制链接]

望月

20 主题	0 听众	26 积分

应届毕业生

Rank: 1

性别: 保密
听众数: 0
买家信用
卖家信用
在线时间: 0 小时
相册: 0

发表于 2006-8-9 10:32:00 |显示全部楼层

Module MdlCommon Public txtsql As String @#存放SQL语句 Public DBSet As DataSet @#查询得到的记录集 Public ErrorMsg As String @#存放错误信息 Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet Dim cnn As SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand() Dim adpt As SqlClient.SqlDataAdapter Dim rst As New DataSet() Dim SplitSQL() As String errMsg = "" Try SplitSQL = Split(strSQL) cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234") If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then cmd.Connection = cnn cmd.Connection.Open() cmd.CommandText = strSQL cmd.ExecuteNonQuery() Else adpt = New SqlClient.SqlDataAdapter(strSQL, cnn) adpt.Fill(rst) ExecuteSQL = rst End If Catch ex As Exception errMsg = ex.Message Finally rst = Nothing cnn = Nothing End Try End Function End Module 调用时在asp.net后台写上txtSQL="SELECT ....FROM........"; DBSet=ExecuteSQL(txtSQL,ErrorMsg)

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报