请教：VC如何往ACCESS中写入一个Function

[nn8087]

下面问题请教下高手，多谢！

VC已经可以连接读取ACCESS数据库的表了。现在需知道字段的最大长度。经试验len和lenB 不能返回正确的长度，可以创建一个function，然后调用返回正确的长度，最后通过max搞定。
现在的问题是，如果将该function用vc写入mdb。
表A：
序号 名字
1 张三
222 王麻子
222 王A

结果：
select LecC(名字) as L from 表A
名字 L
张三 4
王麻子 6
王A 3
select Max(LecC(名字)) as ML from 表A
6

函数：
Public Function LenC(str As String) As Integer
' 取混合字符串的实际长度:一个汉字占二个字节长度，一个ASCII占一个字节长度
' LenC("例ABCD") = 6
Dim abString() As Byte
Dim i As Integer
abString() = str
For i = LBound(abString) To UBound(abString) Step 2
If abString(i + 1) > 0 Then LenC = LenC + 2 Else LenC = LenC + 1
Next i
End Function

[zyq5945]

ACCESS没有这样的功能，换网络数据库SQL SERVER，MYSQL或者ORACLE就可以了。

[蒋晟]

就算你用VBA加了函数，在你的程序里也不能用，Access的函数只支持在Access里面用。