原创 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 '刷新数据源，列表也会随之刷新