vb高手!我vb 用DAO连接到数据库,怎样实现将串口数据存储到数据库问题!
请高手过来指点,简单描述一下:我用单片机和pc机串行通信,将单片机采集的数据通过串口发送到计算机,通过vb实现将数据存储到数据库.我现在已经将数据通过进制转换,存放在数组...
请高手过来指点,简单描述一下:我用单片机和pc 机串行通信,将单片机采集的数据通过串口发送到计算机,通过vb实现将数据存储到数据库.我现在已经将数据通过进制转换,存放在数组变量中,怎样将数组里的数存进数据库并能实现对数据库里的数据求最大,最小值. 如果满意将追加分数!!
最好有比较详细的代码,主要是将数组里的数存进数据库和存储成功后对数据的处理这两个方面的代码.
请大声尖叫能不能说具体一点呢?对于数据库我了解的很少。求代码啊!谢谢! 展开
最好有比较详细的代码,主要是将数组里的数存进数据库和存储成功后对数据的处理这两个方面的代码.
请大声尖叫能不能说具体一点呢?对于数据库我了解的很少。求代码啊!谢谢! 展开
3个回答
展开全部
假设你有表test={ID,数值}
假设你已经连接上了数据库,你的连接对象为cnn
假设你的数组为arrlngData(),里面存了数据
1,写入数据库
dim i as long
dim strsql as string
dim rst as object
set rst=creatobject("adodb.recordset")
strsql="select top 1 * from test where 1=2"
rst.open strsql,cnn
for i=0 to ubound(arrlngData)
rst.addnew
rst.fields("数值")=arrlngdata(i)
rst.update
next
'要查询最大值
strsql="select max(数值) as 最大数值 from test"
取结果用下面的代码
rst.open strsql,cnn
if rst.recordcount>0 then
msgbox "最大数值=" & rst.fields("最大数值") & ""
end if
'要查询最小值
strsql="select min(数值) as 最小数值 from test"
取结果用下面的代码
rst.open strsql,cnn
if rst.recordcount>0 then
msgbox "最小数值=" & rst.fields("最小数值") & ""
end if
假设你已经连接上了数据库,你的连接对象为cnn
假设你的数组为arrlngData(),里面存了数据
1,写入数据库
dim i as long
dim strsql as string
dim rst as object
set rst=creatobject("adodb.recordset")
strsql="select top 1 * from test where 1=2"
rst.open strsql,cnn
for i=0 to ubound(arrlngData)
rst.addnew
rst.fields("数值")=arrlngdata(i)
rst.update
next
'要查询最大值
strsql="select max(数值) as 最大数值 from test"
取结果用下面的代码
rst.open strsql,cnn
if rst.recordcount>0 then
msgbox "最大数值=" & rst.fields("最大数值") & ""
end if
'要查询最小值
strsql="select min(数值) as 最小数值 from test"
取结果用下面的代码
rst.open strsql,cnn
if rst.recordcount>0 then
msgbox "最小数值=" & rst.fields("最小数值") & ""
end if
展开全部
把数组赋值给显示控件,然后通过记录源完成UPDATE。至于求最大值,最小值,还打把数据库里的数据通过记录源读取给数组,然后再求最大和最小值
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我可以帮你写个函数处理最大值与最小值..(如果你只想要某一数据库中的最大值与最小值的话)..加我为好友..俺帮你写个!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询