vb 地磅 数据库

来源：百度知道 编辑：UC知道 时间：2024/06/11 21:39:20
我用VB+ACCESS做了个程序，其中想加入地磅连接，仪表是上海耀华XK3190-a9。在窗口1上有许多文本框，其中t1是毛重，t2是皮重，t3是净重，t4是车号，我想实现的是，做三个按钮，分别对应毛皮净三个文本框，点击后就会出现对应的毛，皮或净重。在access数据库的字段，相对应的是，车号，毛重，皮重，净重。如何能实现，谢谢，希望给具体说明一下代码，十分感谢！
我用的是data控件，这里面不仅有查询的功能，还有采集地磅数据的功能啊，谢谢回复！

貌似A9的不能做吧~~好象是要D2+的才可以~以前见到过的都是D2+的~`自己也没做过呵呵`~

不就是点击三个按钮，然后调出access数据库中的数据，然后显示在vb界面中吗？如果是这个意思的话，很简单代码。建立一个查询模块就行。 需要ado控件，和datagrid 控件，用来存放显示结果。

你会用到select语句。Adodc1.RecordSource = "select * from 地磅数据库的名称 where t1."

以前见过的一段码，可以读到数据，你看看吧

Private form_load()
MSComm1.Settings = "1200,N,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.RThreshold = 8
end sub
Private Sub mscomm1_OnComm()
MSComm1.InputMode = comInputModeText
Buffer = MSComm1.Input

If InStr(Buffer, "+") > 0 Or InStr(Buffer, "-") > 0 Then
Wz = InStr(Buffer, "+")
If Wz = 0 Then Wz = InStr(Buffer, "-")
Zl = Left(Buffer, Wz - 1)
Zl = Mid(Buffer, Wz, Len(Buffer) - Wz) + Zl
End If

Zl = Left(Zl, 7)
text1=Zl
end sub