从数据库中获得表中的数据

Adodc1.RecordSource = "select * from Table1" 'Adodc1是一个用来绑定数据库的控件，RecordSource是他的一个属性，用来指定所用的记录源，这里记录源是一个select的SQL查询语句 Adodc1.Refresh '刷新记录源，一般绑定后不会立即显示，需要刷新 If Adodc1.Recordset.RecordCount >0 Then '如果记录源的行数大于零，也就是不为空的意思 Do While Adodc1.Recordset.EOF = False 'DO While 。。。。loop 是一个循环语句， Adodc1.Recordset.EOF = False 是他的循环条件，意思是记录源不到最后，则循环继续 MS1.TextMatrix(MS1.Row, 0) = Adodc1.Recordset.Fields("学号") '用记录源给MsflexGrid赋值，也算是绑定的意思吧，MS1.Row是一个行的变量，0是第一列（依此类推，1是第二列），意思是MsflexGrid的当前行第一列数据是记录集中的 学号 字段的值 MS1.TextMatrix(MS1.Row, 1) = Adodc1.Recordset.Fields("姓名") '解释同上 MS1.TextMatrix(MS1.Row, 2) = Adodc1.Recordset.Fields("性别") '解释同上 MS1.TextMatrix(MS1.Row, 3) = Adodc1.Recordset.Fields("年龄") '解释同上 MS1.TextMatrix(MS1.Row, 4) = Adodc1.Recordset.Fields("籍贯") '解释同上 MS1.TextMatrix(MS1.Row, 5) = Adodc1.Recordset.Fields("班级") '解释同上 MS1.TextMatrix(MS1.Row, 6) = Adodc1.Recordset.Fields("学校") '解释同上 MS1.TextMatrix(MS1.Row, 7) = Adodc1.Recordset.Fields("备注") '解释同上 MS1.Row = MS1.Row + 1 '所 *** 作的表格行数自动加1，也就是下移一行 Adodc1.Recordset.MoveNext '记录集的指针下移一行 LOOP '继续循环，达到退出循环条件时就会退出，条件是前面继续循环条件的否定，也就是到达记录集最后一条 END IF 'IF语句结束

第一步：你要知道那台电脑的计算机名或者ip地址；

第二步：共享数据库所在的文件夹，要将共享权限设置为能够读写的权限；

第三步：在你的电脑上运行一下那个共享路径：\\计算机名\

共享文件夹

，看能不能打开，如果能

打开，说明共享成功，才能调用代码连接，如果需要用户名和密码你要输入那台电脑的一组用户名和密码；

第四步：在第三步成功的情况下，调用以下代码：

dim

数据库路径

as

string

dim

数据库密码

as

string

数据库路径="\\计算机名\共享文件夹\数据库.mdb"

数据库密码=你的数据库密码（如果没设密码，就为空）

adodc1.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0Data

source

="

_

&

数据库路径0

&

"Jet

OLEDB:Database

Password="

&

数据库密码

adodc1.recordsource="select

*

from

user"

adodc1.Refresh

插入一个数据库控件adodc1，设置connectionstring属性与你的数据库绑定，设置recordsource属性，输入sql语句，比如：

select

姓名

from

数据库

再插入一个combox控件，设置datasource为

adodc1，设置datafiled为

姓名

这样就OK了。

---