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
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	2	25/04/202414:26	25/04/202422:06
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	-
Filtrering af dato i Pivottabel driller Af TrinoJ. i Visual Basic	4	07/08/202310:40	10/08/202310:44

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

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

AP Pension

AP Pension søger domænearkitekt til vores arkitektur-afdeling

Formpipe Software A/S

Tekniske konsulenter søges - både nyuddannede og erfarne

KMD A/S

Technology Delivery Director

MAN Energy Solutions

Technical Project Manager – Oracle DB / OS & Middleware

Udviklings- og Forenklingsstyrelsen

Projektledere til nyetableret PMO-kontor

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 00:30	Fejl i Ark Af Morten_Jepsen i Excel
I går 16:56	Kan min mobil hackes Af SBS i Mobiltelefoner
I går 12:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
I går 11:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver