[已解决]sql查询出现至少一个参数未被指定值

黑山上的鹰

产量台账.zip (64.22 KB, 下载次数: 6)

2014-9-9 22:37 上传

点击文件名下载附件 ，请看录入修改窗体的测试按钮，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-9-10 09:25

1. Private Sub CommandButton4_Click()    '修改
   
2.     Dim cnn As ADODB.Connection
   
3.     Dim rs As ADODB.Recordset
   
4.     Dim myworkname As String, n As Integer, sql As String
   
5.     Dim ws As Worksheet
   
6. 
   
7.     Application.ScreenUpdating = False
   
8.     Set cnn = New ADODB.Connection
   
9.     With cnn
   
10.         .Provider = "Microsoft.Jet.Oledb.4.0"
    
11.         .Connectionstring = "Extended Properties=Excel 8.0;" & "Data Source=" & ThisWorkbook.FullName    '建立数据库连接
    
12.         .Open
    
13.     End With
    
14.     myworkname = Worksheets("产量库").Name
    
15.     sql = "select * from [" & myworkname & "$] where 日期='" & ComboBox1.Text & ComboBox2.Text & "' and 类别='" & ComboBox3.Text & "'"
    
16.     Set rs = New ADODB.Recordset
    
17.     rs.Open sql, cnn, adOpenKeyset, adlockoptimistic
    
18. 
    
19.     n = rs.RecordCount
    
20.     If n = 0 Then
    
21.         'MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!", vbInformation
    
22.         MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!"
    
23.     End If
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

先检查下字体名是否写证确吧。

hwc2ycy

sql赋值那一句有问题

1. sql = "select * from [" & myworkname & "$] where 日期='" & ComboBox1.Text & ComboBox2.Text & "' and 类别='" & ComboBox3.Text & "'"

复制代码

hwc2ycy

1. MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!", vbInformation

复制代码

这一句写法有误
建议全部用常量，后面的,vbinformation位置错了。

1. MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!"

复制代码

hwc2ycy

1. Private Sub CommandButton4_Click()    '修改
   
2.     Dim cnn As ADODB.Connection
   
3.     Dim rs As ADODB.Recordset
   
4.     Dim myworkname As String, n As Integer, sql As String
   
5.     Dim ws As Worksheet
   
6. 
   
7.     Application.ScreenUpdating = False
   
8.     Set cnn = New ADODB.Connection
   
9.     With cnn
   
10.         .Provider = "Microsoft.Jet.Oledb.4.0"
    
11.         .Connectionstring = "Extended Properties=Excel 8.0;" & "Data Source=" & ThisWorkbook.FullName    '建立数据库连接
    
12.         .Open
    
13.     End With
    
14.     myworkname = Worksheets("产量库").Name
    
15.     sql = "select * from [" & myworkname & "$] where 日期='" & ComboBox1.Text & ComboBox2.Text & "' and 类别='" & ComboBox3.Text & "'"
    
16.     Set rs = New ADODB.Recordset
    
17.     rs.Open sql, cnn, adOpenKeyset, adlockoptimistic
    
18. 
    
19.     n = rs.RecordCount
    
20.     If n = 0 Then
    
21.         'MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!", vbInformation
    
22.         MsgBox "没有可供修改的数据！！！", 1 + 64, "产量台账!!!"
    
23.     End If
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

黑山上的鹰

hwc2ycy 发表于 2014-9-10 09:25

谢谢各位，最终结果见附件 产量台账 (1).rar (57.6 KB, 下载次数: 8)

2014-9-10 12:39 上传

点击文件名下载附件