建立数据库并在VB中读取数据.doc

可以找一本VB的书，找到创建数据库的章节，根据步骤，建立一个数据库。
建成的数据库是可以在office access中打开的如图。
视化数据管理器是VB提供的一个非常实用的、可视化的数据库管理工具。使用它可以非常方便地完成创建数据库、建立数据表、数据库查询等工作。可视化的工作界面为用户带来了极大的方便。本设计中建立一个名为“记录数据.mdb”的数据库，并在其中创建了表“监测数据”，在表中设计了五个字段的数据列，分别是转速、电机电流、直流母线电压、有功功率和无功功率。如图3-17所示。
调用数据库的程序如下：
Private Sub Timer1_Timer() '每隔一秒从数据库中读取一行数据
TimeCount = TimeCount + 1
Dim m As String
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\VB\a保存的文件\记录数据.mdb;Persist Security Info=False" ‘打开数据库
Adodc1.RecordSource = "select * from 监测数据 " ‘选择数据库中的监测数据表格
Adodc1.Refresh
Adodc1.Recordset.MoveFirst ‘读首行数据
N = Adodc1.Recordset.RecordCount
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 无功功率实时波形