[已解决]这代码怎么不会正确执行啊？请高人看看！！！

ybc76

求助.zip (97.38 KB, 下载次数: 8)

2014-5-8 08:18 上传

点击文件名下载附件
Sub 权限()   '问题代码
Application.DisplayAlerts = False
  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset
  Dim pthStr, SQL As String
  Dim Jcount, a As Integer
   'pthStr = ThisWorkbook.Path & "\mg.mdb"
  Stpath = "1.mdb"
    cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\" & Stpath
    SQL = "select * from yftab"
  rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
  SQL = "select * from yftab where name='" & Sheet1.Range("B6").Value & "'"
If rst.EOF = False Then
  If rst.Fields("name").Value = Sheet1.Range("B6").Value And rst.Fields("权限更新").Value < 1 Then
    Sheet2.Shapes("圆角矩形 1").Visible = True
    End If
If rst.Fields("name").Value = Sheet1.Range("B6").Value And rst.Fields("权限更新").Value > 0 Then
    Sheet2.Shapes("圆角矩形 1").Visible = False
    End If
    rst.MoveNext
End If
      rst.Close
      cnn.Close
      Set rst = Nothing
      Set cnn = Nothing
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-8 08:34

1. Sub 权限()   '问题代码
   
2.     Application.DisplayAlerts = False
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rst As New ADODB.Recordset
   
5.     Dim pthStr, SQL As String
   
6.     Dim Jcount, a As Integer
   
7.     'pthStr = ThisWorkbook.Path & "\mg.mdb"
   
8.     Stpath = "1.mdb"
   
9.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "" & Stpath
   
10.     SQL = "select * from yftab where name='" & Sheet1.Range("B6").Value & "'"
    
11.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
12. 
    
13.     If rst.EOF = False Then
    
14.         If rst.Fields("权限更新").Value < 1 Then
    
15.             Sheet2.Shapes("圆角矩形 1").Visible = True
    
16.         End If
    
17.         If rst.Fields("权限更新").Value > 0 Then
    
18.             Sheet2.Shapes("圆角矩形 1").Visible = False
    
19.         End If
    
20.         rst.MoveNext
    
21.     End If
    
22.     rst.Close
    
23.     cnn.Close
    
24.     Set rst = Nothing
    
25.     Set cnn = Nothing
    
26.     Application.DisplayAlerts = True
    
27. End Sub

复制代码

形状没隐藏应该是你保护了工作表。

跳转到最佳答案楼层

hwc2ycy

rst.Fields("name").Value = Sheet1.Range("B6").Value
这个条件不需要吧，你在SQL查询时就已经指明了条件了。

hwc2ycy

1. Sub 权限()   '问题代码
   
2.     Application.DisplayAlerts = False
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rst As New ADODB.Recordset
   
5.     Dim pthStr, SQL As String
   
6.     Dim Jcount, a As Integer
   
7.     'pthStr = ThisWorkbook.Path & "\mg.mdb"
   
8.     Stpath = "1.mdb"
   
9.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "" & Stpath
   
10.     SQL = "select * from yftab where name='" & Sheet1.Range("B6").Value & "'"
    
11.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
12. 
    
13.     If rst.EOF = False Then
    
14.         If rst.Fields("权限更新").Value < 1 Then
    
15.             Sheet2.Shapes("圆角矩形 1").Visible = True
    
16.         End If
    
17.         If rst.Fields("权限更新").Value > 0 Then
    
18.             Sheet2.Shapes("圆角矩形 1").Visible = False
    
19.         End If
    
20.         rst.MoveNext
    
21.     End If
    
22.     rst.Close
    
23.     cnn.Close
    
24.     Set rst = Nothing
    
25.     Set cnn = Nothing
    
26.     Application.DisplayAlerts = True
    
27. End Sub

复制代码

形状没隐藏应该是你保护了工作表。

hwc2ycy

形状可以隐藏，刚没看效果。

su45

对SQL，咱始终没闹明白，唉…………