标签: vb,access,物联网

VB与ACCESS数据库 一直想做个后台服务器，可以收集和查询机器发来的所有信息，有两种方案一种是在PC上串口通信上接GPRS模块，接收机器信息然后保存，第二种方法是用VB的winsock编程,用TCP/IP协议，通过GPRS网络接收机器信息并保存到PC。当然这两种法都要安装上位机程序，而且电脑要一直运行着。最终公司选择第三种方式：网站数据库，所有机器GPRS信息发送到网站上，每个客户只要上网就可以查看自己机器信息，典型的物联网例子。 第一种方案VB与ACCESS： 要先建立一个ACCESS数据库，建个机器身份信息表，机器收到的信息表，和一个查询 在VB中按以按机器编号查询机器信息，   主窗体：     Check窗体：查询所有信息   Check窗体：查询单一机器信息       VB  ADODC1控件： 提拱连接数据库引擎的控件，在部件中添加 Microsoft ADO data control 加到窗体上，右键ADODC1,-属性-通用（使用连接字符串）-生成-选择数据库， 再返回通用栏，记录源- 命令类型选2，表名称选 Check表。   VB  DataGrid控件 datasouce 属性选ADODC1,即可把数据库里的数据反映到DataGrid表格里。也可设置更改，删除等功能 ‘’’’’’’’’’’’’’’’’’’’’’’’’’check窗体’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ Private Sub Form_Load() Dim strCheck As String Dim strSelect As String strCheck = Trim(Form1.CmbCheck.Text) 'Text1.Text = strSno If strCheck = "ALL" Then strSelect = "select * From Check1 " Else strSelect = "select * From Check1 Where  MachineNumber='" strCheck "'" End If     Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh Set DG1.DataSource = Adodc1 Adodc1.Recordset.MoveLast 'Call InitDG1 End Sub   在数据库里添加新数据操作： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面 \vbTest06\Database1.mdb;Persist Security Info=False")’打开数据库（这个路径可以在ADODC1“使用连接字符串”属性里复制） rs.Open "MessageReceived", conn, 3, 3’打开表 rs.AddNew rs("Message") =Message rs("MachineNumber") = machinenumber rs("Time") = Now() rs.Update rs.Close Adodc1.Refresh '刷新数据源，列表也会随之刷新