如何从数据库中读取数据

1、新建或者打开要连接数据库的脚本。在下面的Global数据域中或者本地数据表中任选一个表格后，点击鼠标右键依次选择“数据表”“导入”“来自数据库”；

2、点击“创建”，打开选择数据源页，选择“机器数据源”，点击“新建”；

3、点击下一步打开选择数据源驱动程序页，选择完成后点击下一步；

4、名称字段可以任意命名，服务器为数据库所在非服务器地址等信息后，点击下一步；

5、选择“使用用户输入登陆ID和密码的SQL Server验证”，录入要连接数据库的用户

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语句结束

---