大家好 能不能给个ACCESS的通用类库？？（VB）

Question

让我参考一下 或是网址 谢谢各位

Answer 1

<%@ Import Namespace="System.Data.OLEDB"%>

Answer 2

我要的是类库 要连接的是ACCESS的数据库 谢谢！！

Answer 3

是数据访问类,适用于Access数据库 要VB.NET的 谢谢各位

Answer 4

using System;
using System.Data;
using System.Data.OleDb;namespace Data.SqlHelper
{
/// <summary>
/// DataAccess 的摘要说明。
/// </summary>
public class DataAccess
{
//数据库连接字符串
private OleDbConnection myConn;
private int iNum = 0;
/// <summary>
/// 数据存取对象构造函数
/// </summary>
public DataAccess()
{
GetConnection("AccessConnection");
}
/// <summary>
/// 数据存取对象构造函数
/// </summary>
public DataAccess(string key)
{
GetConnection(key);
} private OleDbConnection GetConnection(string key)
{
if(System.Configuration.ConfigurationSettings.AppSettings[key] != null)
{
string conn = System.Configuration.ConfigurationSettings.AppSettings[key];
myConn = new OleDbConnection(conn);
return myConn;
}
else
{
throw(new Exception("WEB.config 不含连接数据库的字符串"));
}
}
/// <summary>
/// Open the connection.
/// </summary>
private void Open() 
{
// open connection
if (myConn == null) 
{
myConn = new OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings["AccessConnection"]);
myConn.Open();
}
} /// <summary>
/// 执行不带参数TSQL返回一个DataReader 此方法用于单纯的SQL语句检索操作
/// </summary>
/// <param name="cmdText"></param>
/// <returns></returns>
public int ExecuteCommand(string cmdText)
{
OleDbCommand myCommand = new OleDbCommand(cmdText,myConn);
myCommand.Connection.Open();
int iRow = myCommand.ExecuteNonQuery();
this.Close();
return iRow;
} /// <summary>
/// 执行不带参数TSQL返回一个DataReader 此方法用于单纯的SQL语句检索操作
/// </summary>
/// <param name="cmdText"></param>
/// <returns></returns>
public OleDbDataReader GetDataReader(string cmdText) 
{
OleDbCommand myCommand;
try 
{
OleDbDataReader rd;
myCommand =  new OleDbCommand(cmdText, myConn);
myCommand.Connection.Open();
rd = myCommand.ExecuteReader();
return rd;
}
catch(System.Data.OleDb.OleDbException ex)
{
throw(ex); //当异常发生时先关闭Connection对象，再抛出异常；
}
} /// <summary>
/// 执行一个sql 并把返回的数据集 填充DataView
/// </summary>
/// <param name="mySql"></param>
/// <returns>DataView</returns>
public DataView GetDataView(string mySql)
{
OleDbCommand myCommand;
try 
{
DataSet ds = new DataSet();
string sTableNum = ""; OleDbDataAdapter myAdpt = new OleDbDataAdapter();
myCommand =  new OleDbCommand(mySql, myConn);
myAdpt.SelectCommand = myCommand ;
new OleDbCommandBuilder(myAdpt); iNum++;
sTableNum = "Table" + iNum.ToString();
myAdpt.Fill(ds,sTableNum);
DataView dv = new DataView(ds.Tables[sTableNum]); this.Close();
return dv;
}
catch(System.Data.OleDb.OleDbException ex)
{
throw(ex); //当异常发生时先关闭Connection对象，再抛出异常；
}
finally
{
myConn.Close();
}
} /// <summary>
/// 执行一个sql 并把返回的数据集 填充DataSet
/// </summary>
/// <param name="mySql"></param>
/// <returns>DataSet</returns>
public DataSet GetDataSet(string mySql)
{
OleDbCommand myCommand;
try 
{
DataSet ds = new DataSet();
OleDbDataAdapter myAdpt = new OleDbDataAdapter();
myCommand =  new OleDbCommand(mySql, myConn);
myAdpt.SelectCommand = myCommand ;
new OleDbCommandBuilder(myAdpt);
myAdpt.Fill(ds);
this.Close();
return ds;
}
catch(System.Data.OleDb.OleDbException ex)
{
throw(ex); //当异常发生时先关闭Connection对象，再抛出异常；
}
finally
{
myConn.Close();
}
} /// <summary>
/// 执行一个sql 并把返回的数据集 table 填充DataSet
/// </summary>
/// <param name="mySql"></param>
/// <param name="table"></param>
/// <returns>DataSet</returns>
public DataSet GetDataSet(string mySql,string strTable)
{
OleDbCommand myCommand;
try 
{
DataSet ds = new DataSet();
OleDbDataAdapter myAdpt = new OleDbDataAdapter();
myCommand =  new OleDbCommand(mySql, myConn);
myAdpt.SelectCommand = myCommand ;
new OleDbCommandBuilder(myAdpt);
myAdpt.Fill(ds, strTable);
this.Close();
return ds;
}
catch(System.Data.OleDb.OleDbException ex)
{
throw(ex); //当异常发生时先关闭SqlConnection对象，再抛出异常；
}
finally
{
myConn.Close();
}
}

/// <summary>
/// Close the connection.
/// </summary>
public void Close() 
{
if (myConn != null)
myConn.Close();
} /// <summary>
/// 析构函数
/// </summary>
public void  Dispose()
{
if (myConn != null)
if (myConn.State != ConnectionState.Closed)
myConn.Close();
}
}
}

Answer 5

/// Web.Config中的数据库连接字符串
GetConnection("AccessConnection");

/// <summary>
/// 执行不带参数TSQL返回一个int 此方法用于单纯的SQL语句检索操作
/// </summary>
/// <param name="cmdText"></param>
/// <returns>所受影响的行数</returns>
public int ExecuteCommand(string cmdText){}

/// <summary>
/// 执行不带参数TSQL返回一个OleDBDataReader 此方法用于单纯的SQL语句检索操作
/// </summary>
/// <param name="cmdText"></param>
/// <returns></returns>
public OleDbDataReader GetDataReader(string cmdText){}

/// <summary>
/// 执行一个sql 并把返回的数据集 填充DataView
/// </summary>
/// <param name="mySql"></param>
/// <returns>DataView</returns>
public DataView GetDataView(string mySql){}

/// <summary>
/// 执行一个sql 并把返回的数据集 填充DataSet
/// </summary>
/// <param name="mySql"></param>
/// <returns>DataSet</returns>
public DataSet GetDataSet(string mySql){}

/// <summary>
/// 执行一个sql 并把返回的数据集 table 填充DataSet
/// </summary>
/// <param name="mySql"></param>
/// <param name="table"></param>
/// <returns>DataSet</returns>
public DataSet GetDataSet(string mySql,string strTable){}

Answer 6

复制上面文件可以直接成DLL文件，然后引入VB项目，直接可以使用