那操作这个数据集就可以了。可以把查询得到的记录集转到一个表中，操作表就可以。如表的记录数，每条记录的值等。
站在用户的角度思考问题，与客户深入沟通，找到海南网站设计与海南网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、成都做网站、企业官网、英文网站、手机端网站、网站推广、空间域名、网络空间、企业邮箱。业务覆盖海南地区。
然后根据这个值的类型，就可以赋给相应的变量了。
date是一个类型。。。似乎不能赋值吧
由Sting转换成 Integer 可以这样写
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
语法是正确的。。。但你要是把 几个字符转硬转换为 数字整型 但这几个字符串又不是数子 一定要出错的
如果是下面就没错了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
VB.NET 整型 i 转化为字符串 s , 字符串 s 转化为字符数组 CharArr :
Dim i As Integer = 12345
Dim s As String
Dim CharArr As Char()
s = i.ToString()
CharArr = s.ToCharArray()
将 CharArr 数组反转:
Array.Reverse(CharArr)
这个需要看你使用的编程工具是什么如果是VB6.0的可以这样就变成了
right("000" cstr(1),3)
这样就可以变成你要的效果了.如果是其它语言虽然差不多,但是并不通用.比如说VB.NET
它是这样的 "00" number.tostring()
不同的工具可能并不一样,所以需要指明一下你使用的是什么语言.VB6的代码在VBA下也通用.VBA经常用来编写EXCEL WORD ACCESS的宏代码
VB6.0可使用Hex函数将Byte型数据转换为十六进制String型数据，并使用Right 函数获取Byte型数据转换为标准两字符的十六进制字符串。
1）Hex 函数，返回代表十六进制数值的 String。
2）Byte 数据类型，Byte 变量存储为单精度型、无符号整型、8 位（1个字节）的数值形式，范围在 0 至 255 之间。
3）Right 函数，返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。
4）十六进制，十六进制（英文名称：Hexadecimal），是计算机中数据的一种表示方法。同我们日常生活中的表示法不一样。它由0-9，A-F组成，字母不区分大小写。与10进制的对应关系是：0-9对应0-9；A-F对应10-15；N进制的数可以用0~(N-1)的数表示，超过9的用字母A-F。
5）串口接收实际代码：
Private Sub MSComm1_OnComm() '接收数据
Dim strBuff As String
Select Case MSComm1.CommEvent
Case 2
MSComm1.InputLen = 0
strBuff = MSComm1.Input
BytReceived() = strBuff
jieshou
lenInput = Len(strData)
'数据处理代码
End Select
End Sub
Public Function jieshou() '接收数据处理为16进制字符串
Dim i As Integer
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData "0" Hex(BytReceived(i)) " "
Else
strData = strData Hex(BytReceived(i)) " "
End If
Next
RichTextBox1.Text = strData
End Function
6）VB6.0使用CStr 函数将一Byte数值，转换为 String（文本型）。
CStr 函数示例：
Dim MyByte, MyString
MyByte =128 ' MyDouble 为 Byte 数据类型。
MyString = CStr(MyByte) ' MyString 的内容为“128”。
1、int类型数组转换为Integer类型的数组。
2、long类型数组转换为Integer类型的数组。
3、char类型数组转换为Integer类型的数组。
4、String类型数组转换为Integer类型的数组。
5、double类型数组转换为Integer类型的数组。
重庆分公司
重庆分公司
