小弟做的是基于RFID的仓储信息系统，硬件已经用串口助手调试好了，发送过来的是一串16位的数，但是现在我只能将他们显示出来却没有办法将他们实时更新存储进access数据库。
希望各位大侠不吝赐教，小弟也是菜鸟一个啊，基本的语言都没学好就被老师逼着做这个，希望哪位大哥能帮帮忙，谢谢啦。
-
等级
本版专家分：0结帖率 75% -
小弟最近做一个小程序，碰到了个问题，找遍图书馆也没找到答案，只好求助万能的网络了。
小弟做的是基于RFID的仓储信息系统，硬件已经用串口助手调试好了，发送过来的是一串16位的数，但是现在我只能将他们显示出来却没有办法将他们实时更新存储进access数据库。
希望各位大侠不吝赐教，小弟也是菜鸟一个啊，基本的语言都没学好就被老师逼着做这个，希望哪位大哥能帮帮忙，谢谢啦。展开阅读全文
-
等级
本版专家分：1184 -
Imports System.Data.OleDb
Public Class Form4
'Application.StartupPath：程序启动目录，带密码
Dim CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\Test.mdb;Jet OLEDB:Database Password=admin"
'或者写出实际的数据库文件地址，无密码的：="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Test.mdb"
Dim MyConnection As New OleDbConnection(CONNECTION_STRING) '实例化连接对象
Dim MyCommand As OleDbCommand
Dim SQLString As String
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Int64最大值为 9,223,372,036,854,775,807；即十六进制的 0x7FFFFFFFFFFFFFFF
'可以保存15位数据
Dim data As Int64 = 123456789012345
'或者用字符串,数据库中相应字段类型也要改为文本
'Dim data as string="123456789012345"
Dim m As Integer = 0 '记录SQL语句执行行数
SQLString = "INSERT INTO tb(ID1) VALUES('" & data & "')" 'Test.mdb中 tb表
MyConnection.Open() '打开数据连接
MyCommand = New OleDbCommand(SQLString, MyConnection) '定义新的操作命令
Try '尝试执行
m = MyCommand.ExecuteNonQuery() '执行插入操作，并返回受影响的行数
Catch ex As Exception '获取异常
MsgBox(ex.ToString) '显示异常信息
End Try
If m = 1 Then
MsgBox("保存数据成功")
Else
MsgBox("保存数据失败")
End If
MyConnection.Close() '关闭连接
MyCommand.Dispose() '释放对象
End Sub
End Class
Test.mdb 数据库有 tb表，一个字段：ID1，字段类型为数字 双精度，小数位数0.
如果程序中data用string的话，就用文本。
-
等级
本版专家分：1184
-
补充一下，tb表没有设置主键。
以上仅为示例。
-
等级
本版专家分：0
-
O(∩_∩)O谢谢啦
刚刚才看到
我回去研究哈
有不懂的还要麻烦你O(∩_∩)O哈！
-
等级
本版专家分：0
-
您好，我刚刚测试了下您的代码，我一运行就会保存数据到数据库
可是我还有个问题，我如果把这段代码直接加入到串口接收程序窗体的 Private Sub Form1_Load 里，然后将 Dim data As Int64 = 123456789012345 改成 Dim data As Int64 = textbox.text
按照我的理解，这样就可以把textbox中的数据存储到数据库，可是每次运行的时候开始都会显示存储错误，因为这样就是先存后打开串口，所以每次都先显示存储错误。
然后我又尝试了添加一个按钮，将您的 Private Sub Form4_Load 中的代码放入botton的事件中，这样就变成了按一次这个按钮就存储textbox中的数据到数据库中，您说对吗？
我想要实现的是打开串口后，数据在textbox中显示出来并同时存入数据库。是不是一定要使用timer之类的控件呢？
我把我的代码贴出来 您能帮忙看下吗？
我的邮箱longzai0803@gmail.com QQ:84041820
很希望能得到您的帮助
-
等级
本版专家分：0
-
Imports System.Data.OleDb
Public Class Form1
Dim strData As String
Dim strDat As String
Dim strDate As String
Dim mRecvByte() As Byte
'Application.StartupPath：程序启动目录，带密码
Dim CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Test.mdb"
'或者写出实际的数据库文件地址，无密码的：="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Test.mdb"
Dim MyConnection As New OleDbConnection(CONNECTION_STRING) '实例化连接对象
Dim MyCommand As OleDbCommand
Dim SQLString As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 '初始化串口数
cboCommPorts.Items.Add(My.Computer.Ports.SerialPortNames(i))
Next
Button2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '连接
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
Try
With SerialPort1 '初始化串口设置
.PortName = cboCommPorts.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None '无校验位
.DataBits = 8
.StopBits = IO.Ports.StopBits.One '停止位1位
.ReadBufferSize = 1024 '接收缓冲区大小
End With
SerialPort1.Open()
lblMessage.Text = SerialPort1.PortName & " connected"
Button2.Enabled = True
Button1.Enabled = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '断开
Try
SerialPort1.Close()
lblMessage.Text = SerialPort1.PortName & " disconnected"
Button2.Enabled = False
Button1.Enabled = True
Catch ex As Exception
End Try
End Sub
Public Sub updateTextBox(ByVal sender As System.Object, ByVal e As System.EventArgs) 'ascII.10进制与16进制显示
strDat = ""
textbox1.Text = ""
Dim i As Integer '处理为16进制
For i = 0 To UBound(mRecvByte) 'mSize - 1
'strData = strData & IIf(mRecvByte(i) > 15, Hex(mRecvByte(i)), "0" & Hex(mRecvByte(i))) & " " 滚动显示模式
strData = IIf(mRecvByte(i) > 15, Hex(mRecvByte(i)), "0" & Hex(mRecvByte(i))) & " " '静止显示模式
strDate = mRecvByte(i) '处理为10进制
Next
Dim sj As Byte
For i = 1 To Len(strData) Step 3 '处理为ASCII字符
sj = Val("&H" & Mid(strData, i, 2))
If sj < 32 Or sj > 128 Then '当接收字节中有Chr(0)时，其后字符被切割
'strDat = strDat & "."
strDat = "."
Else
'strDat = strDat & Chr(sj)
strDat = Chr(sj)
End If
Next
textbox1.Text = strDat '显示字符
TextBox2.Text = strData '显示为16进制
TextBox3.Text = strDate '显示为10进制
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim mSize As Integer = Me.SerialPort1.BytesToRead
ReDim mRecvByte(mSize - 1)
SerialPort1.Read(mRecvByte, 0, mSize)
BeginInvoke(New EventHandler(AddressOf updateTextBox), SerialPort1.BytesToRead()) '使用委托方式显示接收到的字符串
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '退出
Me.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Int64最大值为 9,223,372,036,854,775,807；即十六进制的 0x7FFFFFFFFFFFFFFF
'可以保存15位数据
'Dim data As Int64 = 123456789012345
'或者用字符串, 数据库中相应字段类型也要改为文本
Dim data As String = TextBox2.Text
Dim m As Integer = 0 '记录SQL语句执行行数
SQLString = "INSERT INTO tb(ID1) VALUES('" & data & "')" 'Test.mdb中 tb表
MyConnection.Open() '打开数据连接
MyCommand = New OleDbCommand(SQLString, MyConnection) '定义新的操作命令
Try '尝试执行
m = MyCommand.ExecuteNonQuery() '执行插入操作，并返回受影响的行数
Catch ex As Exception '获取异常
MsgBox(ex.ToString) '显示异常信息
End Try
If m = 1 Then
MsgBox("保存数据成功")
Else
MsgBox("保存数据失败")
End If
MyConnection.Close() '关闭连接
MyCommand.Dispose() '释放对象
End Sub
End Class
-
等级
本版专家分：1184
-
代码如下，注意改动。
Imports System.Data.OleDb
Public Class Form5
Dim strData As String
Dim strDat As String
Dim strDate As String
Dim mRecvByte() As Byte
'Application.StartupPath：程序启动目录，带密码
Dim CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Test.mdb"
'或者写出实际的数据库文件地址，无密码的：="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Test.mdb"
Dim MyConnection As New OleDbConnection(CONNECTION_STRING) '实例化连接对象
Dim MyCommand As OleDbCommand
Dim SQLString As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 '初始化串口数
cboCommPorts.Items.Add(My.Computer.Ports.SerialPortNames(i))
Next
Button2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '连接
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
Try
With SerialPort1 '初始化串口设置
.PortName = cboCommPorts.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None '无校验位
.DataBits = 8
.StopBits = IO.Ports.StopBits.One '停止位1位
.ReadBufferSize = 1024 '接收缓冲区大小
End With
SerialPort1.Open()
lblMessage.Text = SerialPort1.PortName & " connected"
Button2.Enabled = True
Button1.Enabled = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '断开
Try
SerialPort1.Close()
lblMessage.Text = SerialPort1.PortName & " disconnected"
Button2.Enabled = False
Button1.Enabled = True
Catch ex As Exception
End Try
End Sub
'********************************************************************************
'保存数据事件
Private Sub SaveData(ByVal _data As String)
'或者用字符串, 数据库中相应字段类型也要改为文本
Dim data As String = _data
Dim m As Integer = 0 '记录SQL语句执行行数
SQLString = "INSERT INTO tb(ID1) VALUES('" & data & "')" 'Test.mdb中 tb表
MyConnection.Open() '打开数据连接
MyCommand = New OleDbCommand(SQLString, MyConnection) '定义新的操作命令
Try '尝试执行
m = MyCommand.ExecuteNonQuery() '执行插入操作，并返回受影响的行数
Catch ex As Exception '获取异常
MsgBox(ex.ToString) '显示异常信息
End Try
If m = 1 Then
MsgBox("保存数据成功")
Else
MsgBox("保存数据失败")
End If
MyConnection.Close() '关闭连接
MyCommand.Dispose() '释放对象
End Sub
'****************************************************************************************
Public Sub updateTextBox(ByVal sender As System.Object, ByVal e As System.EventArgs) 'ascII.10进制与16进制显示
strDat = ""
textbox1.Text = ""
Dim i As Integer '处理为16进制
For i = 0 To UBound(mRecvByte) 'mSize - 1
'strData = strData & IIf(mRecvByte(i) > 15, Hex(mRecvByte(i)), "0" & Hex(mRecvByte(i))) & " " 滚动显示模式
strData = IIf(mRecvByte(i) > 15, Hex(mRecvByte(i)), "0" & Hex(mRecvByte(i))) & " " '静止显示模式
strDate = mRecvByte(i) '处理为10进制
Next
Dim sj As Byte
For i = 1 To Len(strData) Step 3 '处理为ASCII字符
sj = Val("&H" & Mid(strData, i, 2))
If sj < 32 Or sj > 128 Then '当接收字节中有Chr(0)时，其后字符被切割
'strDat = strDat & "."
strDat = "."
Else
'strDat = strDat & Chr(sj)
strDat = Chr(sj)
End If
Next
textbox1.Text = strDat '显示字符
TextBox2.Text = strData '显示为16进制
TextBox3.Text = strDate '显示为10进制
'***********************************
'添加保存数据事件
SaveData(TextBox2.Text)
'***********************************
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim mSize As Integer = Me.SerialPort1.BytesToRead
ReDim mRecvByte(mSize - 1)
SerialPort1.Read(mRecvByte, 0, mSize)
BeginInvoke(New EventHandler(AddressOf updateTextBox), SerialPort1.BytesToRead()) '使用委托方式显示接收到的字符串
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '退出
Me.Close()
End Sub
End Class
-
等级
本版专家分：1184
-
textbox.text 是string类型，需要转换才行：Dim data As Int64 = CType(textbox2.text, Int64)
-
等级
本版专家分：0
-
原来是这样的啊，这个还真不知道
太感谢了，刚在自己电脑上试了下 程序没什么错误 星期天实验室没开门
明天我去实验室试试 要有问题还得向您请教
真是太麻烦您了
-
等级
本版专家分：0
-
调了一上午 居然都不能显示了 不过还是谢谢了
-
等级
本版专家分：0
-
你好 ，刚才我换了个程序，加上您的代码，终于可以保存成功了 真是太感谢啦！
不过保存的时候还是有点小问题 ，每次开始保存的时候都会有“由于将在索引、 主关键字、或关系中创建重复的值”这个问题是数据库的原因，我自己应该可以解决
有时又提示"标准表达式中数据类型不匹配"从串口传过来的是如a110099ce176这串 用string应该是对的吧
最重要的是每次传过来的都是这串数，但怎么样才能将他们保存在数据表中不同的单元格呢，是否因为它没有结束符而很难办到呢？
可能我的问题实在太菜了 不要见笑 下午大部分时候都能保存成功 真的非常感谢你 我的代码在下面 麻烦看看 就把这当做这次开发的笔记簿吧 O(∩_∩)O~
- VB读取ACCESS数据库数据
1.注意datagrid名称和adodc名称的修改 2.此程序为vb实时读取Access数据库的内容。
- 通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中
通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中 作者：工控自动化老王 关注同名V–X公//众//号：工控自动化老王获取更多技术文档及工控资源，交流、学习，另外老王承接PLC毕业设计，欢迎咨询！ 配置...
- VB直接保存和显示ACCESS数据库中的图像数据
我见过许多代码，在从ACCESS数据库读取图像数据后，往往需要借助一个临时文件进行转换才能显示，其实借助API，完全可以直接显示，而不需要临时文件，此外，大家还可以使用OleCreatePictureIndirect函数转图像数据...
- VB6将Excel中的数据导入到Access数据库 代码求解
```Dim Row As Integer CD1.Filter = "Excel文件(*.xls)|*.xls" CD1.ShowOpen If Trim(CD1.FileName) <> "" Then Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel....
- vb.net利用SerialPort进行读取串口操作
mports SystemImports System.IO.PortsPublic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '获取计算机有效串口 Dim ports As S
- 基于ZigBee 的多点温度采集系统设计与实现
协议栈构建无线网络实现主从节点之间数据的采集与传输,利用串口通信技术与PC 机通信,并编程实现数据处理、存储与显示。 1 引言 随着生产技术的提高, 环境温度指标越来越多的影响到生产效率、能源
- 软考网络工程师上午考试知识点总结整理
楼主顺利通过了软考网络工程师中级资格考试，在复习过程中对上午考试的知识点进行了总结，总结了很多，但可能条理性不够强，但都是一些难掌握或者重点，常考的点，所以分享出来，可以帮助大家复习准备~ ...
- 第二章：WINDOWS的一些技巧
第二章：WINDOWS的一些技巧 .... 2.在保存网页前，可以按一下"ESC"键(或脱机工作)再保存,这样保存很快 3.用电脑听CD可以不用任何的播放软件，把音箱线直接接到光驱的耳机孔，放入 CD，按光驱上的play键就可以直接听...
- C＋＋Builder 资料库
1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder 3制作屏幕保护程序 7...
- 自我保护第一课加密与防破解
本文为全中文编写，不需要有PE文件格式知识，不需要掌握汇编或C语言的编程技巧，一些加密算法直接由易语言提供，特殊的加密算法大家可以翻译C语言代码、汇编代码或VB代码。 本文中将“Cracker”一词翻译为...
- 许多代码段，没准儿有你需要的 C++ Builder
1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder 3制作屏幕保护程序 7...
- 红旗Linux中文教程
——红旗Linux授权培训中心指定用书—— 红旗Linux指定培训教材 红旗Linux用户基础教程 中科红旗软件技术有限公司编著 红旗Linux授权培训管理中心监制 Publishing House of Electronics Industry ...
- ]许多代码段，没准儿有你需要的 C++ Builder
[code:1:d5dc046d55] 1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6....
- 什么是BIOS？
什么是BIOS？w//计算机用户在使用计算机的过程中，都会接触到BIOS，它在计算机系统中起着非常重要的作用。nZD?BIOS，完整地说应该是ROM－BIOS，是只读存储器基本输入／输出系统的简写，它实际上是被固化到计算机中的...
- VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，...
vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
- Java线程池
Java线程池 线程池编程 java.util.concurrent多线程框架---线程池编程（一） 一般的服务器都需要线程池，比如Web、FTP等服务器，不过它们一般都自己实现了线程池，比如以前介绍过的Tomcat、Resin和Jetty等，现在...
- 60个BCB（C++Build）初学者 应用实例
1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder 3制作屏幕保护...
- C++ Builder 杂项
1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder 3制作屏幕保护程序 7...
- 关于Delphi通用涵数
DELPHI程序注册码设计（转载） 思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则... 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下: u
- [转载]60个BCB（C++Build）初学者 应用实例
原文地址：60个BCB（C++Build）初学者 应用实例作者：网罗杂谈 1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 ...
- 笔记，后期整理
VM 虚拟各种系统的工具 安装目录 不要放在C盘 需要下载的镜像Windows NT win7 xp server08R2 server12类Nnix centos 6/7/8 ubuntu 14/16/18 kali安装 win7 1g=1024M1M=1024KB1KB=1024bit1bit 是一个字节 一个...
- Visual Basic开发实战1200例(第Ⅱ卷)pdf
下载地址：网盘下载内容简介编辑本书以开发人员在项目开发中经常遇到的问题和必须掌握的技术为核心，介绍了应用Visual Basic进行程序开发的多方面的知识和技巧，主要包括Visual Basic的多媒体开发、数据库应用、网络...
- C＋＋Builder 资料库 （转载）
C＋＋Builder 资料库 2005-03-03 15:14 13115人阅读 评论(3) 收藏 举报 1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 ...6.用C++ Builder
- 【STM32H7教程】第31章 STM32H7的USART应用之RS485
tid=86980 第31章 STM32H7的USART应用之RS485 本章教程为大家讲解USART应用之485总线。虽然这几年无线网络的使用率有所上升，有线的串行网络仍然提供最有力、最可靠的通信，特别是在恶劣的环境中。...
- Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part2
书名：《Visual Basic开发实战1200例(第II卷)》(清华大学出版...实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 将SQL Server数据库中的表插入 Access数据库 392 实例223 SQL...
- Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1
书名：《Visual Basic开发实战1200例(第II卷)》(清华大学出版...实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 将SQL Server数据库中的表插入 Access数据库 392 实例223 SQL...
- 阿里linux内核月报2014-07-08
Capsicum for Linux Capsicum: 一种基于文件句柄的新安全模型 Capsicum是一种源自FreeBSD的安全模型，与Linux下众多LSM的相同之处在于它们都是基于权限管理...例如，一个fd必须带有CAP_READ才能被读取，必须带有C...
- 鸟哥的私房菜 笔记备份
《鸟哥的linux私房菜》...***********************************第1章 linux是什么*********************************************************************** 硬件->内核->系统调用-&g...
- 加密解密
本文为全中文编写，不需要有PE文件格式知识，不需要掌握汇编或C语言的编程技巧，一些加密算法直接由易语言提供，特殊的加密算法大家可以翻译C语言代码、汇编代码或VB代码。本文中将“Cracker”一词翻译为“奸人”，...
- Xshell6完美破解版，亲测可用
Xshell6破解版，亲测可用，分享给大家。直接解压即可使用