CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

woodgaard Nybegynder

30. oktober 2004 - 15:31 Der er 25 kommentarer

Vbscript til VB6

Jeg bruger dette script her under i Vbscript jeg kunne godt tænke mig at bruge det i VB6 er der nogen der ved hvor dan det skal gøres.
-----------------------------

strUserName = "olsk"

objCommand.CommandText = _
"<LDAP://dc=vordbkom,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Set objRecordSet = objCmd.Execute

If objRecordSet.RecordCount = 0 Then
If strUserName = "" Then
MsgBox ("hmm")
Else
MsgBox ("Brugeren kunne ikke findes")
End If

-------------------

Det skal lige siges da jeg prøve at flytte scripte direkte over i VB6 gik den i fejl over dette stykke:
---------------------------------------

objCommand.CommandText = _
"<LDAP://dc=vordbkom,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Synes godt om

terry Ekspert

30. oktober 2004 - 15:43 #1

what error do you get?

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 15:45 #2

Run time Error '424':
Objeckt required

Synes godt om

terry Ekspert

30. oktober 2004 - 15:49 #3

have you declared objCommand?

Dim objCommand as object 'or what ever type it is

In VB, you MUST declare your variables IF you have Option explicit at the start of the module. It is always a good idea to have this to make sure that variables are declared

Synes godt om

terry Ekspert

30. oktober 2004 - 15:51 #4

If you look at the line

Set objRecordSet = objCmd.Execute

should objCmd be objCommand?

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 15:54 #5

Okay er hermed gjordt men nu får jeg denne fejl:
Run-time error '91'
Object variable or With block variable not set

??

Synes godt om

terry Ekspert

30. oktober 2004 - 15:55 #6

on which line?

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 15:56 #7

Den her:
----------
objCommand.CommandText = _
"<LDAP://dc=vordbkom,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Synes godt om

terry Ekspert

30. oktober 2004 - 15:56 #8

I would also use

If objRecordSet.RecordCount = 0 Then
If strUserName = "" Then
MsgBox ("hmm")
Else
MsgBox ("Brugeren kunne ikke findes")
End If
end if

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 16:01 #9

Sorry hele koden ser sådan her ud:
-----------------------
Dim objCommand As Object

Private Sub Command1_Click()
strUserName = "anja"

objCommand.CommandText = _
"<LDAP://dc=rfts,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If objRecordSet.RecordCount = 0 Then
If strUserName = "" Then
MsgBox ("hmm")
Else
MsgBox ("Brugeren kunne ikke findes")
End If

Else
stitil = objRecordSet.Fields("distinguishedName")
MsgBox ("Brugeren ligger i " & stitil)
End If
End Sub

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 16:18 #10

Men jeg får stadig denne fejl.
Run-time error '91'
Object variable or With block variable not set
-------------------
objCommand.CommandText = _
"<LDAP://dc=vordbkom,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Synes godt om

terry Ekspert

30. oktober 2004 - 16:20 #11

I must admit, I'm not quite sure what you are trying to do. If you declare all of you variables with the correct type then it may be easier to find the problem.

What type is objCommand? You may need a reference to it

If it is an ADODB command object then you will need a refrenece to ADO in your project, then yyou declare it as follows.

Dim objCommand as ADODB.Command

Synes godt om

terry Ekspert

30. oktober 2004 - 16:31 #12

Here is a start, and you need a reference to ADO in your project.

Dim objCommand As ADODB.Comand

Private Sub Command1_Click()
Dim strUserName as string
Dim objRecordset as ADODB.Recordset

strUserName = "anja"

set objCommand = New ADODB.Command
objCommand.CommandText = _
"<LDAP://dc=rfts,dc=dk>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));distinguishedName,samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If objRecordSet.RecordCount = 0 Then
If strUserName = "" Then
MsgBox ("hmm")
Else
MsgBox ("Brugeren kunne ikke findes")
End If

Else
stitil = objRecordSet.Fields("distinguishedName")
MsgBox ("Brugeren ligger i " & stitil)
End If
End Sub

Synes godt om

terry Ekspert

30. oktober 2004 - 16:32 #13

I have NO idea what the CommandText contains, so I cant say if it is correct!

Synes godt om

terry Ekspert

30. oktober 2004 - 16:32 #14

Dim objCommand As ADODB.Comand

=
Dim objCommand As ADODB.Command

Synes godt om

woodgaard Nybegynder

30. oktober 2004 - 16:50 #15

Jeg kan ikke finde ADO, hvad hedder den helt præcist

Synes godt om

terry Ekspert

30. oktober 2004 - 18:05 #16

OK, then you will need to download MDAC from Microsoft.

http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=en

Synes godt om

woodgaard Nybegynder

31. oktober 2004 - 11:35 #17

Jeg kan stadig ikke finde noget der hedder ADO, tænker du på "Microsoft ActiveX Data Objects 2.0 Library" eller.?

Synes godt om

terry Ekspert

31. oktober 2004 - 14:42 #18

Yes, but we are up to version 2.8 now I think. So it might be an idea to downlaod the newest version.

Synes godt om

terry Ekspert

31. oktober 2004 - 14:43 #19

Sorry, I should have paid a bit more attention to your comment 30/10-2004 16:50:29

Synes godt om

terry Ekspert

01. november 2004 - 18:53 #20

Are you still having problems?

Synes godt om

woodgaard Nybegynder

02. november 2004 - 15:18 #21

Hey Terry
Nu har jeg sat "Microsoft ActiveX Data Objects 2.8 Library" som refrenece.

Jeg får nu en fejl over dette stykke:
Set objRecordset = objCommand.Execute

Håber du har en ide ;-)

Synes godt om

martin_moth Mester

02. november 2004 - 15:27 #22

Fejlbesked?

Synes godt om

terry Ekspert

02. november 2004 - 19:01 #23

I dont know what the CommandText contains, so its hard to say exactly what the problem is, but it is very likely something to do with that.

Can you explain what the CommandText contains?

Synes godt om

terry Ekspert

10. november 2004 - 08:41 #24

Hi woodgaard, do you still need help here?

Synes godt om

terry Ekspert

08. januar 2005 - 12:44 #25

Hi woodgard, this question has been open for quite a while now, is it still relevant?

og godt nytår

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS