《建立数据库并在VB中读取数据.docx》由会员分享，可在线阅读，更多相关《建立数据库并在VB中读取数据.docx（2页珍藏版）》请在三一办公上搜索。
1、建立数据库并在VB中读取数据可以找一本VB的书，找到创建数据库的章节，根据步骤，建立一个数据库。建成的数据库是可以在office access中打开的如图。视化数据管理器是VB提供的一个非常实用的、可视化的数据库管理工具。使用它可以非常方便地完成创建数据库、建立数据表、数据库查询等工作。可视化的工作界面为用户带来了极大的方便。本设计中建立一个名为“记录数据.mdb”的数据库，并在其中创建了表“监测数据”，在表中设计了五个字段的数据列，分别是转速、电机电流、直流母线电压、有功功率和无功功率。如图3-17所示。 调用数据库的程序如下： Private Sub Timer1_Timer 每隔一秒从数
2、据库中读取一行数据 TimeCount = TimeCount + 1 Dim m As String Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:VBa保存的文件记录数据.mdb;Persist Security Info=False 打开数据库 Adodc1.RecordSource = select * from 监测数据 选择数据库中的监测数据表格 Adodc1.Refresh Adodc1.Recordset.MoveFirst 读首行数据 N = Adodc1.Recordset.Rec
3、ordCount For i = 0 To N - 1 m = Adodc1.Recordset.Fields(0) If m = TimeCount Then 读取m列的数据 Text1.Text = Adodc1.Recordset.Fields(1) 转速读取 Text2.Text = Adodc1.Recordset.Fields(2) 电流读取 Text4.Text = Adodc1.Recordset.Fields(3) 电压读取 Text5.Text = Adodc1.Recordset.Fields(4) 温度读取 Text6.Text = Adodc1.Recordset.Fields(5) 无功功率读取 Text14.Text = Adodc1.Recordset.Fields(6) 有功功率读取 Exit Sub Else Adodc1.Recordset.MoveNext End If Next i End Sub 电流的波形为近似的正弦波，如图3-12所示。 图3-12 电机电流实时波形 图3-13 直流母线电压实时波形 图3-14 转速实时波形 图3-15 有功功率实时波形 图3-16 无功功率实时波形
