UC知道在VB中怎么得到Access数据库中的某个字段的最大长度???...
来源：百度知道 编辑：UC知道 时间：2024/05/29 06:00:07
请高手指点:
我让用户在文本框中输入数据以添加到数据库,但是怎样检测字段长度,以免程序出错.不要事先设定文本框的MaxLength,这样太麻烦,因为字段太多太多太太多.如果用户输入的数据太长,只截取前面一部分,用户输入的数据仍然有效.
VB+Access
比如数据结构:编号、姓名、性别、住址、电话……
如何检测字段(编号、姓名、性别、住址、电话……)的最大长度,
直接用Access打开数据库查看是不好的,因为字段太多,再说程序也不通用,对于其它表的操作就不能直接用该程序了.
例如:
Set RstSave = New ADODB.Recordset
RstSave.Open mTable, Conn1, 1, 3
RstSave.AddNew
n = 1
For Each Fs In RstSave.Fields
RstSave.Fields(n - 1).Value = Text1(n).Text
n = n + 1
Next
RstSave.Update
RstSave.Close
MsgBox "成功添加了一条记录"
如何保证Text1(n).Text的长度不超过字段最大长度?
-----------------------------------------------
谢谢各位的回答
我让用户在文本框中输入数据以添加到数据库,但是怎样检测字段长度,以免程序出错.不要事先设定文本框的MaxLength,这样太麻烦,因为字段太多太多太太多.如果用户输入的数据太长,只截取前面一部分,用户输入的数据仍然有效.
VB+Access
比如数据结构:编号、姓名、性别、住址、电话……
如何检测字段(编号、姓名、性别、住址、电话……)的最大长度,
直接用Access打开数据库查看是不好的,因为字段太多,再说程序也不通用,对于其它表的操作就不能直接用该程序了.
例如:
Set RstSave = New ADODB.Recordset
RstSave.Open mTable, Conn1, 1, 3
RstSave.AddNew
n = 1
For Each Fs In RstSave.Fields
RstSave.Fields(n - 1).Value = Text1(n).Text
n = n + 1
Next
RstSave.Update
RstSave.Close
MsgBox "成功添加了一条记录"
如何保证Text1(n).Text的长度不超过字段最大长度?
-----------------------------------------------
谢谢各位的回答
VB里没有sizeof()
可以直接用Access打开数据库查看~~~ ^^
或者，在VB中用出错处理解决。。。比如写入时出错，就截一 部分重写，再出错，再截，如此循环~~
不知道VB里有没有sizeof()
再或者GGetLength()
这两个函数呢/？
len(trim(text1.text))
这个样子就可以判断其输入的字段的长度了。