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
  • 相关阅读:
    一个JAVA数据库连接池实现源码
    PL/SQL Developer去掉启动时自动弹出的Logon弹出框方法
    解决tomcat启动Socket监听端口死循环被hold问题
    JavaMelody应用监控使用指南
    ha456.jar打开dump文件报Unsupported major.minor version 51.0异常
    分布式并行数据库将在OLTP 领域促进去“Oracle”
    Oracle查找全表扫描的SQL语句
    Oracle 11g RAC客户端使用SCAN IP无法连接问题
    Oracle存储过程执行update语句不报错不生效问题
    Oracle外键不加索引会引起死锁问题
  • 原文地址:https://www.cnblogs.com/callbin/p/1637760.html
Copyright © 2011-2022 走看看