Question

我试图将Active Directory的结果导入我创建的列表框。

通常我在Excel VBA中编码，但在这种情况下我需要将我的项目移动到Visual Studio，以便稍后我可以将其编译为exe。

所以这是我的Excel VBA代码完美运行：

Private Sub CommandButton1_Click()

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
 "<LDAP://OU=ABC-computers,dc=ABC,dc=local>;(objectCategory=computer);name;subtree"
Set objRecordSet = objCommand.Execute

rcArray = objRecordSet.GetRows

With UserForm1.ListBox1
    .ColumnCount = 1
    .Clear
    .List = Application.Transpose(rcArray)
    .ListIndex = -1
End With

objConnection.Close

End Sub

我已经启动了一个新的Visual Studio项目（Visual Basic - ＆gt; Windows Form Application）并创建了“Form1”。但是当我尝试合并上面的代码时，它没有用。

以下是屏幕：

Error http://im54.gulfup.com/Yx9eME.png

经过几个小时的努力来适应它，我无法接近:(

任何帮助都将受到高度赞赏。谢谢，

Answer 1

正如错误消息所示，您首先需要声明变量才能使用它。 Else it wouldn't know the scope for example.

要在VB.NET中声明变量，您需要使用Dim关键字：

Dim objConnection = CreateObject("ADODB.Connection")

Some required reading on declaring variables

将AD结果检索到Listbox VisualStudio

1 个答案: