小编Dic*_*ika的帖子

SQL注入攻击似乎有些歇斯底里.最近,在这里

如何根据另一个字段中的查找值返回一个字段中的值

如果我在Excel中创建一个连接到Access数据库的宏,我真的必须关注SQL注入吗？它不在网上,它在我的办公室使用(你们还记得台式机吗？).我并不担心我的同事会破坏我.如果他们足够聪明,可以进行SQL注入,他们是否足够聪明,无法破解我的加载密码并只是更改代码？

我有以下vba代码在以下列中查找出现"0":

For Each c In Range("B:B")

        If c.Value = "0" Then
            MsgBox "0 found at " & (c.Address)
        End If
    Next c

如何修改代码,以便当它在B6处找到"0"时,它会显示C7？即.它显示与找到"0"的那个对角相邻的单元格.

我以编程方式在VBA中选择一行,但它在此给我一个TYPE MISMATCH错误:

Rows(Str(i) & ":" & Str(i)).Select

我究竟做错了什么？

For i = 5 To 1000
    If Worksheets("5470").Cells(i, 2) = "" Then
        Rows(Str(i) & ":" & Str(i)).Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Delete Shift:=xlUp
        Exit For
    End If
Next i

我在Access 2013中使用VBA.

在常规模块中有2个程序,RunProc()和PopulateCollection()

当RunProc执行它调用PopulateCollection所传入的参数是一个名为收藏instace MyCol.

PopulateCollection添加3个项目,然后RunProc继续迭代Collection.

我的问题是:

我想争论MyCol中RunProc,以不被填充PopulateCollection.完成此任务的正确方法是什么？

为什么要PopulateCollection填充参数和参数？

' --------Module1------------------
Option Compare Database
Option Explicit

Dim i As Integer
Dim MyCol As VBA.Collection

Sub RunProc()
    Set MyCol = New VBA.Collection

    PopulateCollection MyCol

    For i = 1 To MyCol.Count
        Debug.Print MyCol.Item(i)
    Next i
End Sub

Function PopulateCollection(ByRef pMyCol As VBA.Collection)
    For i = 1 To 3
       pMyCol.Add "Item" & i
    Next …