vb里，怎么用ado读取mdb数据库？

'连接字串
Adodc1ConnectionString = "Provider=MSDASQL1;Password=密码，无密码时为空;Persist Security Info=True;Data Source=MS Access Database;Initial Catalog="yourDatabasePathmdb"
'开始查询
Adodc1RecordSource = "select from table"'这里是你的sql语句
Adodc1Refresh
debugprint Adodc1RecordsetFields(你的字段名或者字段index)
当Adodc1Recordset记录条数为多条时还可通过MoveFirst,movenext,moveprevious,movelast==来定位，定位时需要检查Bof或EOF属性看是否已到第一笔或已到最后一笔。

一 关于ADO 在基于Client/Server结构的数据库环境中 通过OLE DB接口可以存取数据 但它定义的是低层接口 不仅不易使用 而且不能被VB VBA VBScript等高级编程工具访问 而使用ADO则可以很容易地使VB等编程语言直接访问数据（通过OLE DB接口） ADO是基于面向对象方法的 其对象模型如下图所示(略) 由上图可见 ADO对象模型总共才包括六个对象 相对于数据访问对象（DAO）来说简单得多 因此实际中常常使用它来访问数据库 二 ADO访问数据库实例 下面 我们以Oracle为例 使用VB 来访问其数据库中的存储过程 在此例中 我们首先在Oracle数据库上创建有两个存储过程 一个不带参数 另一个带有参数 然后 使用ADO来访问这两个存储过程 步骤如下 在Oracle服务器上运行以下DDL脚本: DROP TABLE person; CREATE TABLE person (ssn NUMBER( ) PRIMARY KEY fname VARCHAR ( ) lname VARCHAR ( )); INSERT INTO person VALUES( Sam Goodwin ); INSERT INTO person VALUES( Kent Clark ); INSERT INTO person VALUES( Jane Doe ); MIT; / 在Oracle服务器上创建包（package）: CREATE OR REPLACE PACKAGE packperson AS TYPE tssn is TABLE of NUMBER( ) INDEX BY BINARY_INTEGER; TYPE tfname is TABLE of VARCHAR ( ) INDEX BY BINARY_INTEGER; TYPE tlname is TABLE of VARCHAR ( ) INDEX BY BINARY_INTEGER; PROCEDURE allperson (ssn OUT tssn fname OUT tfname lname OUT tlname); PROCEDURE oneperson (onessn IN NUMBER ssn OUT tssn fname OUT tfname lname OUT tlname); END packperson; / 在Oracle服务器上创建以下包体（package body） CREATE OR REPLACE PACKAGE BODY packperson AS PROCEDURE allperson (ssn OUT tssn fname OUT tfname lname OUT tlname) IS CURSOR person_cur IS SELECT ssn fname lname FROM person; percount NUMBER DEFAULT ; BEGIN FOR singleperson IN person_cur LOOP ssn(percount) := singleperson ssn; fname(percount) := singleperson fname; lname(percount) := singleperson lname; percount := percount + ; END LOOP; END; PROCEDURE oneperson (onessn IN NUMBER ssn OUT tssn fname OUT tfname lname OUT tlname) IS CURSOR person_cur IS SELECT ssn fname lname FROM person WHERE ssn = onessn; percount NUMBER DEFAULT ; BEGIN FOR singleperson IN person_cur LOOP ssn(percount) := singleperson ssn; fname(percount) := singleperson fname; lname(percount) := singleperson lname; percount := percount + ; END LOOP; END; END; / 在 VB 中打开一个新的工程 缺省创建表单 Form 在表单上添加二个按钮 cmdGetEveryone和cmdGetOne 在代码窗口中添加以下代码: Option Explicit Dim Cn As ADODB Connection Dim CPw As ADODB Command Dim CPw As ADODB Command Dim Rs As ADODB Recordset Dim Conn As String Dim QSQL As String Dim inputssn As Long Private Sub cmdGetEveryone_Click() Set Rs Source = CPw Rs Open While Not Rs EOF MsgBox Person data: & Rs( ) & & Rs( ) & & Rs( ) Rs MoveNext Wend Rs Close End Sub Private Sub cmdGetOne_Click() Set Rs Source = CPw inputssn = InputBox( Enter the SSN you wish to retrieve: ) CPw ( ) = inputssn Rs Open MsgBox Person data: & Rs( ) & & Rs( ) & & Rs( ) Rs Close End Sub Private Sub Form_Load() 使用合适的值代替以下用户ID 口令（PWD）和服务器名称（SERVER） Conn = UID=;PWD=;driver= _ & {Microsoft ODBC for Oracle};SERVER=dseOracle; Set Cn = New ADODB Connection 创建Connection对象 With Cn ConnectionString = Conn CursorLocation = adUseClient Open End With QSQL = {call packperson allperson( {resultset ssn fname _ & lname})} Set CPw = New ADODB Command 创建Command对象 With CPw Set ActiveConnection = Cn CommandText = QSQL CommandType = adCmdText End With QSQL = {call packperson oneperson( {resultset ssn _ & fname lname})} 调用存储过程 Set CPw = New ADODB Command With CPw Set ActiveConnection = Cn CommandText = QSQL CommandType = adCmdText Parameters Append CreateParameter( adInteger _ adParamInput) 添加存储过程参数 End With Set Rs = New ADODB Recordset With Rs CursorType = adOpenStatic LockType = adLockReadOnly End With End Sub Private Sub Form_Unload(Cancel As Integer) Cn Close Set Cn = Nothing Set CPw = Nothing Set CPw = Nothing Set Rs = Nothing End Sub 运行程序 当点下cmdGetEveryone按钮时 程序调用Oracle数据库中不带参数的存储过程packperson allperson 点下cmdGetOne按钮时调用packperson oneperson存储过程 lishixinzhi/Article/program/Oracle/201311/16721

首先在页面上拖个数据控件，如DataGridView，然后从数据库中取出数据进行绑定。
部分代码如下：
string cmdText="select from 表名";
DataSet ds=new DataSet();
SqlDataAdapter ad =new SqlDataAdapter(conn,cmdText); //其中conn为SqlConnection对象
adFill(ds);
DataGridViewDataSource=ds;

1添加一个配置文件Appconfig 代码：<connectionStrings>
<add name="strconn" connectionString="server=\sqlexpress;database=数据库名;uid=用户名;pwd=密码"/> //数据库的连接
</connectionStrings>2添加一个类文件（这里叫db）封装方法 代码：Using SystemDate;Using SystemDataSqlClient; static string strConn = ConfigurationManagerConnectionStrings["strconn"]ConnectionString ;static SqlConnection conn = new SqlConnection(strConn); //在类文件中调用配置文件打开数据库 static void Execonn() //写一方法判断数据库是否打开，没有则打开
{
if (connState == ConnectionStateClosed)
{
connOpen();
}
}
public static DataSet ExecDS(string sql) //获取数据库中的数据源 {
Execonn();
SqlDataAdapter sdr = new SqlDataAdapter();
DataSet ds = new DataSet();
sdrSelectCommand = new SqlCommand(sql, conn);
sdrFill(ds);
return ds;
}3在主窗体中调用就行了，这样可以达到代码量少，效率高的效果 private void Form1_Load(object sender, EventArgs e)
{
string sql = "你要执行的语句";
DataSet ds = dbExecDS(sql); //调用类文件中的方法 thisdataGridView1DataSource = dsTables[0]; }

---