dbf数据库空白字段如何批量修改为99999

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim cnstr As String

cnstr = "Driver={Microsoft Visual FoxPro Driver}" &_

"SourceType=DBF" &_

"SourceDB=文件路径" &_

"Exclusive=No"

cn.Open cnstr

cn.Execute ("update 表名 set 字段 = 99999 where isnull(字段,'')=''")

提示开通失败一般有这些情况：

1）已开户，“经核实，号码已成功注册翼支付账户，直接登录翼支付官网或客户端即可使用，无需重新开户。”

2）未开户，常见问题为号码是170号段或错误提示为“99999”：

170号段除了1700开头的电信号段可开通翼支付，其余号段暂不支持开通翼支付，由于170属于新推出的虚拟号段，目前暂时不支持开通翼支付账户，我们已在处理加入数据库中，建议先使用其它号码进行开通，给带来的不便，敬请谅解。”

错误提示为“99999”，“很抱歉影响使用，根据报错提示，号码可能由于号码状态异常或受限制，未能成功注册翼支付账户，建议可联系当地电信查询号码是否有相关限制。”若还存在问题，请联系翼支付客服。

解问题一

如果表包含在数据库中，即数据库表，可以在该表的“表设计器”中，该字符型字段的“输入掩码”文本框中输入与字段宽度等宽位数的“9”,比如字段宽度为5,则输入掩码为“99999”。

解问题二

这里有个概念，如果 INDEX 的<索引表达式>是单个字段

1、数值型字段，按照数值的大小升序排列

2、字符型字段，按照字符的ASCII值的大小升序排列

3、日期或日期时间型字段，按照日期的远近，从远到近排列

如果 INDEX 的<索引表达式>中包含多个字段，那么首先必须要能求出该表达式的值，然后才能做到按什么顺序排列，为了简化讨论，略过日期或日期时间型，因为日期或日期时间型必能通过函数转换成数值型或字符型数据

1、如果这多个字段都是数值型，则按照索引表达式的数值运算的值的大小升序排列

2、如果这多个字段都是字符型，则各字段联接（+或-）后，按照联接的顺序各字段依字符串的大小（按照ASCII）升序排列

3、如果这多个字段中有数值型也有字符型，则索引表达式应将其统一到同一数据类型。

举例：设表T1.DBF，字段C1、C2为数值型，字段C3、C4为字符型

** 按C1+C2的和升序排列

INDEX ON C1+C2 TO T1

** 字段C3升序，相同时C4升序

INDEX ON C3+C4 TO T2

** 字段C1升序，相同时C2升序

INDEX ON STR(C1)+STR(C2) TO T3 &&将C1、C2都转成字符型，以字符串大小排列

** 字段C1升序，相同时C3升序

INDEX ON STR(C1)+C3 TO T4 &&将C1转成字符型，以字符串大小排列

** 字段C3升序，相同时C4降序

INDEX ON C3+STR(127-ASC(C4)) TO T5 &&127为ASCII的最大值

** 字段C1降序，相同时C3升序

INDEX ON STR(999-C1)+C3 TO T6 &&假设数值型字段C1的宽度为3位，999为该字段允许的最大值

---