重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
目前创新互联已为上千余家的企业提供了网站建设、域名、雅安服务器托管、网站托管、服务器托管、企业网站设计、宁都网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
首先说一下你不明白的地方,那个rand.Next(0,
129),其实就是产生一个随机数
Dim
rand
=
New
System.Random()
这个是产生随机数初始化的地方
方法名称:next(i,j);功能描述:返回一个i~j之间的整数
String$(129,
0)的作用和你注释掉的地方一样,也是产生一个0-129之间的随机数
至于为什么报错,问题就多了
因为产生的值是一个随机的,而且,程序别的地方的处理我不知道,但只根据这段代码来看,这个就是个报错时候的显示信息处理,那么最好你都能明白错误信息的显示方法,提示一下,这个显示出来的内容,哪怕传进去的参数一样,在中文系统,日文系统,英文系统上显示出来的信息内容,都是不一样的
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='cc'"
这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数
改为:
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='" cc "'"
建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"
使用ACCESS数据库的日期列比较,应为:
"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"
注意前后两个“#”号
使用sqlserver
"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"
当然日期格式要注意,如长短日期等。
日期期间:between 小日期 and 大日期(记得加#号)
串口通信最终都是用二进制传输的,你用代码把二进制转化成十六进制就可以了。不需要额外设置。
Dim strFilePath As String =SaveFileDialog1.FileName
Dim sw As StreamWriter = New StreamWriter(strFilePath, True) 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing
看你的描述,既然Gb2312能取得中文,说明你收到的文字编码是Gb2312。
字符和数字却使用unicode编码,不正常。你可以把char数组中的00去掉,
再用gb2312转换就应该没问题了。
去掉就是把有用的字符向前移动。