哪位老师有采用VB.net写的数据库连接类以及使用方法

Question

我是刚刚开学使用ASP.NET做网站.
从论坛及网上找了半天发现下面的这个类功能比较全面,但是它好像是由C#写的,而我现在做的项目是用VB.NET写的,想问问大家有没有类似下面的用VB.NET写的类?
以及在页面中是如何调用的?(如果能有在VS中的具体使用方法是最好)问题提的可能有些简单,但真的很迫切知道,麻烦大家了,谢谢!
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Data.SqlClient;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;namespace zz
{
 /// <summary>
 /// ClassConn 的摘要说明。
 /// </summary>
 public class conn       //数据库连接类
 {
  public conn()
  {
   //
   // TODO: 在此处添加构造函数逻辑
   //
  }
  public SqlConnection connstr;   //连接字符串
  public string getconnstr()    //获取连接字符串
  {
   string constr;
   constr=System.Configuration.ConfigurationSettings.AppSettings["connstring"];
   return constr;
  }
  public void open()      //打开数据库
  {
   string constr;
   constr=getconnstr();
   connstr=new SqlConnection(constr);
   connstr.Open();
  }
  public void close()      //关闭数据库
  {
   connstr.Dispose();
   connstr.Close();
  }
  public void execsql(string sql)   //执行sql语句
  {
   open();
   SqlCommand cmd=new SqlCommand(sql,connstr);
   cmd.ExecuteNonQuery();
   close();
  }
  public DataSet dataset(string sql)  //返回DataSet对象
  {
   open();
   SqlDataAdapter rs=new SqlDataAdapter(sql,connstr);
   DataSet ds=new DataSet();
   rs.Fill(ds);
   return ds;
  }
  public DataView dataview(string sql) //返回DataView对象
  {
   DataSet ds=new DataSet();
   ds=dataset(sql);
   DataView dv=new DataView(ds.Tables[0]);
   return dv;
  }
  public SqlDataReader datareader(string sql) //返回DataReader对象
  {
   open();
   SqlCommand cmd=new SqlCommand(sql,connstr);
   SqlDataReader dr=cmd.ExecuteReader();
   return dr;
  }
 }
}

Answer 1

Dim con As SqlConnection()
Dim strConn as string
strConn = "Data Source=admin\sqlexpress;Initial Catalog=bookstore;Persist Security Info=True;User ID=sa;Password=amingo"
con = new SqlConnection(strConn)
con.open()
        Dim strCmd as string
        strCmd = "select * from bookInfo"
        Dim da As New SqlDataAdapter(strCmd , con)
        Dim ds As New Data.DataSet()
        da.Fill(ds)
        Me.GridView1.DataSource = ds.Tables(0)
        Me.GridView1.DataBind()
CON.CLOSE()

Answer 2

给你转了一下
Namespace zz
    Imports System
    Imports System.Collections
    Imports System.ComponentModel
    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Drawing
    Imports System.Web
    Imports System.Web.SessionState
    Imports System.Web.UI
    Imports System.Web.UI.HtmlControls
    Imports System.Web.UI.WebControls
    
    
    ''' <summary>
    ''' ClassConn X
    ''' </summary>
    Public Class conn
        
        Public connstr As SqlConnection
        
        Public Sub New()
            MyBase.New
            '
            ' TODO: (d p;
            '
        End Sub
        
        '&#1957;W&2
        Public Function getconnstr() As String
            Dim constr As String
            constr = System.Configuration.ConfigurationSettings.AppSettings("connstring")
            Return constr
        End Function
        
        Public Sub open()
            Dim constr As String
            constr = getconnstr
            connstr = New SqlConnection(constr)
            connstr.Open
        End Sub
        
        Public Sub close()
            connstr.Dispose
            connstr.Close
        End Sub
        
        Public Sub execsql(ByVal sql As String)
            open
            Dim cmd As SqlCommand = New SqlCommand(sql, connstr)
            cmd.ExecuteNonQuery
            close
        End Sub
        
        Public Function dataset(ByVal sql As String) As DataSet
            open
            Dim rs As SqlDataAdapter = New SqlDataAdapter(sql, connstr)
            Dim ds As DataSet = New DataSet
            rs.Fill(ds)
            Return ds
        End Function
        
        Public Function dataview(ByVal sql As String) As DataView
            Dim ds As DataSet = New DataSet
            ds = dataset(sql)
            Dim dv As DataView = New DataView(ds.Tables(0))
            Return dv
        End Function
        
        Public Function datareader(ByVal sql As String) As SqlDataReader
            open
            Dim cmd As SqlCommand = New SqlCommand(sql, connstr)
            Dim dr As SqlDataReader = cmd.ExecuteReader
            Return dr
        End Function
    End Class
End Namespace

Answer 3

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports system.Data.CommonPublic Class Dbms
    Private Shared mTrans As DbTransaction = Nothing
    Private Shared mConn As New SqlConnection()
    Private Shared mCmd As SqlCommand
    Private Shared mAdapt As SqlDataAdapter
    Private Shared mOpenCount As Integer = 0    ''' <summary>
    ''' ＤＢに接続する
    ''' </summary>
    ''' <res></res>
    Public Shared Sub Open()        If mOpenCount <= 0 Then
            mConn.ConnectionString = System.Configuration.ConfigurationManager.AppSettings.Get("DBConnectionString")
            mConn.Open()
            mCmd = mConn.CreateCommand
            mAdapt = New SqlDataAdapter(mCmd)
        End If        mOpenCount = mOpenCount + 1
    End Sub    ''' <summary>
    ''' ＤＢから切断する
    ''' </summary>
    ''' <res></res>
    Public Shared Sub Close()
        Try
            mOpenCount = mOpenCount - 1
            If mOpenCount <= 0 Then
                mConn.Close()
            End If
        Catch ex As Exception
            '' 何もしない
        End Try
    End Sub    ''' <summary>
    ''' クエリを実行する
    ''' </summary>
    ''' <param name="pSql">SELECT SQL 文</param>
    ''' <returns>SqlDataReader</returns>
    ''' <res></res>
    Public Shared Function Query(ByVal pSql As String) As SqlDataReader
        Try
            mCmd.CommandText = pSql
            mCmd.CommandType = CommandType.Text
            Return mCmd.ExecuteReader
        Catch ex As Exception
            Throw ex
        End Try
    End Function    ''' <summary>
    ''' クエリを実行する
    ''' </summary>
    ''' <param name="pSql">SELECT SQL 文</param>
    ''' <param name="pTable">データを格納用 DataTable</param>
    ''' <res></res>
    Public Shared Sub Query(ByVal pSql As String, ByVal pTable As DataTable)
        Try
            mCmd.CommandText = pSql
            mAdapt.Fill(pTable)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
End Class

Answer 4

还有,即使你们的是正确的,那在页面中如何调用呢?之前的那个类是用USING ZZ 调用的,现在这个呢?(请不要见笑,我是初学)