[已解决]求通过sql count查询数据表记录数自动生成编号问题

hwc2ycy

这个语名，在查询条件时，字段名的值如果是字符串，需要用单引号包围。

Sql = "Select count(1) AS 分类记录 from 供方分类 where 分类='" & ComboBox1 & "'"

hwc2ycy

1. Sub 编号()  '自动编号On Error Resume Next
   
2.     Dim y$
   
3.     y = HzToPy(ComboBox1, 1, "", 0, 1)
   
4.     If ComboBox1 = "" Then
   
5.         MsgBox "数据不完整,请输入要修改内容", vbCritical, ""
   
6.         Exit Sub
   
7.     End If
   
8.     Call mydata
   
9.     Sql = " Select count(1) AS 分类记录 from 供方分类 where 分类='" & ComboBox1 & "'"
   
10.     With RST
    
11.         .Open Sql, CNN, adOpenKeyset, adLockOptimistic
    
12.         MsgBox .EOF
    
13.         If .EOF Then
    
14.             TextBox1.Value = y & "001"
    
15.         Else
    
16.             TextBox1.Value = y & Format(.Fields("分类记录") + 1, "000")
    
17.             '忘了字段名是0开始还是1开始了，这样更简单
    
18.             'TextBox1.Value = y & Format(.Fields(0) + 1, "000")
    
19.             'TextBox1.Value = y & Format(.Fields(1) + 1, "000")
    
20.         End If
    
21.     End With
    
22.    
    
23.     Set RST = Nothing
    
24.     CNN.Close
    
25. End Sub
    

复制代码

hwc2ycy

测试了下，是0开始的。所以字段的话也可以直接用RST.FIELDS(0)
如果记录号显示不对的话，val(.Fields(0)) + 1，这个应该不会存在问题，会做自动转换的。

1. Sub 编号()  '自动编号On Error Resume Next
   
2.     Dim y$
   
3.     y = HzToPy(ComboBox1, 1, "", 0, 1)
   
4.     If ComboBox1 = "" Then
   
5.         MsgBox "数据不完整,请输入要修改内容", vbCritical, ""
   
6.         Exit Sub
   
7.     End If
   
8.     Call mydata
   
9.     Sql = " Select count(1) AS 分类记录 from 供方分类 where 分类='" & ComboBox1 & "'"
   
10.     With RST
    
11.         .Open Sql, CNN, adOpenKeyset, adLockOptimistic
    
12.         MsgBox .EOF
    
13.         If .EOF Then
    
14.             TextBox1.Value = y & "001"
    
15.         Else
    
16.             TextBox1.Value = y & Format(.Fields(0) + 1, "000")
    
17.         End If
    
18.     End With
    
19.    
    
20.     Set RST = Nothing
    
21.     CNN.Close
    
22. End Sub
    

复制代码

lmj8260

谢谢，测试成功。
但我不知道原来错在什么地方，我以前的程序中用过此相同语句，但能运行成功。

hwc2ycy

第1个问题是单引号的问题
第2个问题是字段名的问题。

其实设置通过ADODB.CONNECTION对象的游标属性，在查询后，通过RECOREDSET的RECORDCOUNT属性就可返回记录数。