zoukankan      html  css  js  c++  java
  • VB.NET DBHELP

    代码
    DbHelper.vb


    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration
    Public Class DbHelper   
        
    '' Connection to perform database activity
    #Region "Open Sqlconnection"
        
    Public Function openConnection() As SqlConnection
            
    Dim con As SqlConnection
            con 
    = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            
    If (con.State = ConnectionState.Open) Then
                
    If (con.State = ConnectionState.Open) Then
                    con.Close()
                
    End If
            
    End If
            con.Open()
            
    Return con
        
    End Function
    #End Region
     
    #Region "Close Connection"
        
    Public Function closeConnection(ByVal con As SqlConnection)
            
    If (con.State = ConnectionState.Open) Then
                con.Close()
            
    End If
        
    End Function
    #End Region
     
    #Region "getDataset"
        
    Public Function getDataSet(ByVal strSql As StringAs DataSet
     
            
    Dim con As SqlConnection
            
    Dim sda As SqlDataAdapter
            
    Dim scb As SqlCommandBuilder
     
            
    Try
                
    Dim dtst = New DataSet
                con 
    = New SqlConnection
                con 
    = openConnection()
                
    Dim cmd = New SqlCommand(strSql, con)
                sda 
    = New SqlDataAdapter(cmd)
                scb 
    = New SqlCommandBuilder(sda)
                sda.Fill(dtst)
                
    Return dtst
     
            
    Catch ex As Exception
                
    Throw New Exception(ex.Message)
            
    Finally
                sda.Dispose()
                scb.Dispose()
                closeConnection(con)
            
    End Try
     
        
    End Function
    #End Region
     
    #Region "getDataTable"
        
    Public Function getDataTable(ByVal strSql As StringAs DataTable
            
    Dim con As SqlConnection
            
    Dim sda As SqlDataAdapter
            
    Dim scb As SqlCommandBuilder
     
            
    Try
                
    Dim dtst As New DataSet
                
    Dim dt As New DataTable
                con 
    = New SqlConnection
                con 
    = openConnection()
                
    Dim cmd As New SqlCommand(strSql, con)
                sda 
    = New SqlDataAdapter(cmd)
                scb 
    = New SqlCommandBuilder(sda)
                sda.Fill(dtst)
                dt 
    = dtst.Tables(0)
                
    Return dt
     
            
    Catch ex As Exception
                
    Throw New Exception(ex.Message())
            
    Finally
                sda.Dispose()
                scb.Dispose()
                closeConnection(con)
            
    End Try
        
    End Function
    #End Region
     
    End Class 
    代码
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          
    Dim objServ As New DbService.Db_Webserv
          
    Dim retVal As Integer
          retVal 
    = objServ.connectToDB()
          
    If retVal = 1 Then
              txtMessage.Text 
    = "Connected to database successfully."
              
    Dim dtst As New DataSet
              dtst 
    = objServ.getProducts()
              dtgrdProducts.DataSource 
    = dtst.Tables(0)
          
    Else
              txtMessage.Text 
    = "Unable to connect to the database, check the connection information"
          
    End If
    End Sub
  • 相关阅读:
    Demo源码放送:打通B/S与C/S !让HTML5 WebSocket与.NET Socket公用同一个服务端!
    WebSocket 网页聊天室的实现(服务器端:.net + windows服务,前端:Html5)
    数据科学求职准备
    c#使用MethodInvoker解决跨线程访问控件
    zedboard--Opencv移植和zedboard测试(十一)
    浅谈C++调用C#的DLL程序方法
    linux内核--进程空间(二)
    Windows 下如何安装配置Snort视频教程
    十分钟搭建自己的hadoop2/CDH4集群
    MFC调用c#的dll
  • 原文地址:https://www.cnblogs.com/callbin/p/1637760.html
Copyright © 2011-2022 走看看