连接SQL SERVER的公共类(VB.NET)

转载 2004年06月29日 21:41:00

Option Explicit On 

'Option Strict On

'//***********************************************************************
Imports System.Data.SqlClient


'//*************************************************************************

'//Begin defined namespace

Namespace Sunerp.CommClass.Comm


    '//Defined Structure  PublicApplicationVal

    '//Structure descriptoin

    '//本结构存取 数据库服务器名(Dbserver)、数据库用户ID(UserId)、

    '//数据库用户密码(UserPWD)、数据库名(Dbase),为联接数据库提供参数。

    '//为了满足某些简单查询的需要,提供了扩展的变量 常用表名(DBTable)、

    '//查询字段名(QueryFieldName)、查询字段值


    '//Begin define Structure PublicApplicationVal

    Public Structure PublicApplicationVal

        ' Public Dbserver, UserId UserPWD Dbase DBTable Account.

        Public Dbserver As String

        Public UserId As String

        Public UserPWD As String

        Public Dbase As String

        Public DBTable As String

        Public QueryFieldVale As String

        Public QueryFieldName As String

    End Structure

    '//End define Structure PublicApplicationVal

    '//********************************************************************

    '//Begin defined Class

    Public Class DBaseBindComm

        ''*****************************************************************

        ''//**定义连接SQL Server Database的通用函数**//

        '//本函数创建一个到指定数据库的连接对象 SqlConnection 

        '//本函数有1个参数,IPublicApplication 为公共数据结构 PublicApplicationVal,


        '//Begin define Function LinkedSqlServer

        Public Overloads Function LinkedSqlServer() As System.Data.SqlClient.SqlConnection


            Dim strconn As String

            Dim conn As New SqlConnection()

            strconn = "server=" & "erp" & _

                      ";user id=" & "erpsa" & _

                      ";password=" & "erpsa" & _

                      ";database=" & "erpdata" & ";"


            Try

                conn = New SqlConnection(strconn)

                conn.Open()

                StateVal = True

                LinkedSqlServer = conn

            Catch ex As Exception

                ' MsgBox(ex.ToString)

                StateVal = False

                LinkedSqlServer = Nothing

                Exit Function

            End Try

        End Function

 

        ''End defined LinkedSqlServer

        ''***********************************************************************

        ''//**定义连接SQL Server Database的通用函数**//

        '//本函数创建一个到指定数据库的连接对象 SqlConnection 

        '//本函数有1个参数,IPublicApplication 为公共数据结构 PublicApplicationVal,


        '//Begin define Function LinkedSqlServer

        Public Overloads Function LinkedSqlServer( _

                 ByVal IPublicApplication As PublicApplicationVal) _

                 As System.Data.SqlClient.SqlConnection


            Dim strconn As String

            Dim conn As New SqlConnection()

            strconn = "server=" & IPublicApplication.Dbserver & _

                      ";user id=" & IPublicApplication.UserId & _

                      ";password=" & IPublicApplication.UserPWD & _

                      ";database=" & IPublicApplication.Dbase & ";"


            Try

                conn = New SqlConnection(strconn)

                conn.Open()

                StateVal = True

                LinkedSqlServer = conn

            Catch ex As Exception

                ' MsgBox(ex.ToString)

                StateVal = False

                LinkedSqlServer = Nothing

                Exit Function

            End Try

        End Function

        ''End defined LinkedSqlServer

        ''**************************************************************

 

        ''定义类DBaseBindComm的ReadOnly属性State(创建连接的状态)

        ''True(创建成功),False(创建失败)

        Private StateVal As Boolean

        Public ReadOnly Property State() As Boolean

            Get

                Return StateVal

            End Get

        End Property


    End Class


    Public Class OrganComm


        '//Defined Structure  PublicOrganIDStructure

        '//Structure descriptoin

        '//本结构存取 企业组织机构Id 

        '//顶层(DeptTopID)、一级(DeptMidId),二级ID(DeptLowId)        


        '//Begin define Structure PublicOrganIDStructure

        Public Structure PublicOrganIDStructure

            Public DeptTopID As String

            Public DeptMidId As String

            Public DeptLowId As String

        End Structure

        '//End define Structure PublicOrganIDStructure

        '//******************************************************************

        ''//**定义连接SQL Server Database的通用函数**//

        '//本函数创建一个到指定数据库的连接对象 SqlConnection 

        '//本函数有1个参数,IPublicApplication 为公共数据结构 PublicApplicationVal,


        '//Begin define Function IParseDeptOrgid

        Public Function IParseDeptOrgid(ByVal IDeptOrgid As String) As PublicOrganIDStructure

            Dim OrganID As New PublicOrganIDStructure()

            Dim Orgid As String


            IDeptOrgid = Trim(IDeptOrgid)

            Orgid = Microsoft.VisualBasic.Left(Trim(IDeptOrgid), 12)


            OrganID.DeptTopID = Microsoft.VisualBasic.Left(Orgid, 6)

            OrganID.DeptMidId = Microsoft.VisualBasic.Right(Orgid, 6)

            OrganID.DeptLowId = Microsoft.VisualBasic.Right(IDeptOrgid, 6)


            IParseDeptOrgid = OrganID

        End Function

        '//End define Function IParseDeptOrgid


    End Class

 

End Namespace

'*******************************************************************************

vb.net中对数据库操作的公共类

在开发中通过总结自己编写了一个关于数据操作的公共类,在实际操作中觉得使用起来非常方便。实现在module中定义。使用时直接调用即可这里数据连接采用sqlConnection一 数据连接 Public ...
  • jsnicle
  • jsnicle
  • 2005年09月08日 16:16
  • 2511

VB.NET连接sql server数据库

之前没有学过vb语言,这两天接手了一个vb的项目,最开始做的当然就是连接数据库了,可是我在网上找各种资料就是找不到一个能解决我问题的连办法,连接数据库的基本原理都知道。用给的几个接口,写几条语句就完了...
  • wangxupeng2008
  • wangxupeng2008
  • 2015年03月23日 11:25
  • 405

连接SQL SERVER公共类

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 03:32
  • 115

VB连接SQL数据库实例

Dim Cmd As New ADODB.Command Dim conn As ADODB.Connection Dim rs As New ADODB.Recordset Set conn = ...
  • sjrhero
  • sjrhero
  • 2011年08月25日 12:55
  • 5411

vb.net 安装部署以及远程连接sql server2005数据库

       Vb.net工程做完了,打包好了。但是前一段时间一直连接不上数据库,我是指连接远程的数据库。       对于原先用vb6.0做的东西来说,直接通过控制面板中的数据源设定就可以了,但是现...
  • the_fire
  • the_fire
  • 2010年02月21日 13:23
  • 3624

访问数据库通用类 VB.NET

访问数据库通用类  VB.NET    这是在学习的 NET 的时候写的一个数据访问类 不完善的地方请网友指正。同样也适合初学者参考Imports System.DataImports System....
  • heimaoxiaozi
  • heimaoxiaozi
  • 2007年08月13日 14:08
  • 1953

[VisualStudio] Visual Basic6.0 动态操作 Crystal Report8.0 连接SQL Server

不知道现在是否还有人需要这个提示,我在一些旧程序升级时用到的。 - 首先需要一个Report文件; - 然后你需要把数据库连接字符串写好; - 在使用程序中调用这个文件之前先要引入控件; ...
  • doublecells
  • doublecells
  • 2007年06月20日 08:25
  • 1556

VB.NET连接SQL server数据库解决方案(转载+亲自实践)

原文来自:http://hi.baidu.com/mwd_3330410/blog/item/ba0ccd240a0902184c088d83.html    Microsoft Visual B...
  • bigheadsheep
  • bigheadsheep
  • 2012年07月04日 10:57
  • 2152

VB.NET操作SQL Server完全模块

Module ModSql    Function GetIntByStr(ByVal FieldName As String, ByVal TableName As String, ByVal Pa...
  • iwebsms
  • iwebsms
  • 2004年09月28日 19:26
  • 1243

连接SQL SERVER的公共类

****************************************************************************************************...
  • blestwq
  • blestwq
  • 2002年07月15日 09:42
  • 620
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:连接SQL SERVER的公共类(VB.NET)
举报原因:
原因补充:

(最多只允许输入30个字)