[Centraal] Visual Basic 6

Index

» digital corner

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
pi_29205829
quote:
Op donderdag 28 juli 2005 16:30 schreef Xsysstar het volgende:

[..]

Dat Set = nothing is overbodig; VB doet dat zelf.
Het probleem zal hem wel in adocon liggen. Goede RecordType ofzo (Unknown, Table, enz, Command) gekozen?
Probeer anders eens een debug.print van de Query; misschien ziet u het dan ineens.
Wat op dat moment in mn variabele staat klopt volgens mij wel, nl:

INSERT INTO worldinfo (worldstring) VALUES ('base#0#0#0#0#<knip>0#0#') WHERE username = 'Jeroen'
pi_29206293
quote:
Op donderdag 28 juli 2005 16:42 schreef LeeHarveyOswald het volgende:

[..]

Wat op dat moment in mn variabele staat klopt volgens mij wel, nl:

INSERT INTO worldinfo (worldstring) VALUES ('base#0#0#0#0#<knip>0#0#') WHERE username = 'Jeroen'
De heer des huizes kwam even langs en zei dat het aan de hekjes zou kunnen liggen. Volgens mij moet je voor het hekje, de bijbehorende HTML-code gebruiken (bijv.). Natuurlijk kunt u ook gewoon een ander teken gebruiken (of een gewone letter).
pi_29206363
hmmm maar dan zou er dus een aparte VB code moeten zijn voor een hekje?
pi_29206510
Nee, dat maakt niet uit. Het gaat erom dat u waarschijnlijk een teken gebruikt dat niet wordt toegestaan. Probeert u eens het En-teken & i.p.v. het hekje.

Tip! Defineer in uw hoofdmodule (elk programma zou er één moeten hebben; meestal modMain genoemd) een constante voor dat scheidingsteken:
1Public Const sSep as string = "&"

Als u overal waar u nu het hekje gebruikt verwijst naar sSep, is er minder kans op typfouten en kunt u sneller veranderingen doorvoeren.

P.S. Ik ben benieuwd naar waarvoor dit alles dient. Wat voor soort spel moet het worden? En wat is al klaar? Ik heb namelijk zelf wel eens wat geprobeerd, maar als ik dan naga hoeveel er gebeuren moet, ben ik vrij snel genezen .
pi_29206585
quote:
Op donderdag 28 juli 2005 17:06 schreef Xsysstar het volgende:
Nee, dat maakt niet uit. Het gaat erom dat u waarschijnlijk een teken gebruikt dat niet wordt toegestaan. Probeert u eens het En-teken & i.p.v. het hekje.

Tip! Defineer in uw hoofdmodule (elk programma zou er één moeten hebben; meestal modMain genoemd) een constante voor dat scheidingsteken:
[ code verwijderd ]

Als u overal waar u nu het hekje gebruikt verwijst naar sSep, is er minder kans op typfouten en kunt u sneller veranderingen doorvoeren.

P.S. Ik ben benieuwd naar waarvoor dit alles dient. Wat voor soort spel moet het worden? En wat is al klaar? Ik heb namelijk zelf wel eens wat geprobeerd, maar als ik dan naga hoeveel er gebeuren moet, ben ik vrij snel genezen .
kent u het online spel nukezone? Zoiets maar dan iets grafischer...
pi_29206624
Ik ga even alle #jes zowel in de server als in de client vervangen met en tekens, daarna zet ik de exec. wel even online
pi_29206675
zelfde foutmelding met & ipv. #
pi_29206773
Jammer; ik zal zo eens kijken naar nukezone. Eerst even wat nuttigen . afk tot 6:30 (hooguit)
pi_29206889
Smakelijk
pi_29208691
Dank en daar ben ik weer. Ik heb even gekeken op http://www.nukezone.info/, aannemende dat het over het spel gaat waarnaar u verwees. Jammer dat er geen screenshots zijn.

Kent u trouwens DarkGalaxy? Ook al is er nu een beta, (is het offline) voor versie 5 en valt er vrij weinig te doen (www.darkgalaxy.com), als u van ruimte strategie (vooral strategie) spellen houdt, met allianties en veroveringscampagnes voeren dan kan dat best een leuk spel zijn.
pi_29209159
Ik bedoelde http://www.nukezone.nu/

Dat is een text based spel. Mijn spel is niet tekstbased: er is wel een Grafisch gebeuren, maar voor de rest lijkt het er wel op..
pi_29209237
Ja, ik klikte op Manual en toen kwam ik op de .info-site. Ik ben bang dat ik me niet ga aanmelden (ik ben even uit het ontdekken van nieuwe spellen), maar ik ben wel benieuwd naar de eerste build van uw grafische versie.
Succes alvast .
pi_29209967
http://pestforum.nl/webwar.exe

Het uitvoeren van die query, waar hij dus op vast loopt, heb ik even uitgeschakeld. Server die standaard genoemd wordt ist, zelf even een user maken en aanmelden
pi_29210050
Hmm, ik ben bang dat het pestforum gepest wordt door de "De pagina kan niet worden weergegeven"-foutmelding....
pi_29211267
jup.. server down
pi_29211323
Laat je't me weten wanneer die weer open gaat? Dank alvast .
pi_29211556
quote:
Op donderdag 28 juli 2005 20:02 schreef Xsysstar het volgende:
Laat je't me weten wanneer die weer open gaat? Dank alvast .
http://www.pestforum.nl/webwar.exe

Server is 62.251.120.197

Edit: Server is weer online.

[ Bericht 12% gewijzigd door LeeHarveyOswald op 28-07-2005 20:18:12 ]
pi_29211648
Uhm... Lycos doet wat moeilijk .

Stuur het anders naar -----@-------; per MSN (=idem) mag ook.

[ Bericht 11% gewijzigd door Xsysstar op 28-07-2005 20:19:22 ]
pi_29211895
Ik zie dat het inloggen gelukt is ik kan evt. ook wat gebouwtjes handmatig in de database prakken, om te laten zien dat het uitlezen wel werkt
pi_29211975
Hehe; doe rustig aan. Ontwikkeling haasten is zelden goed .
  vrijdag 29 juli 2005 @ 15:42:55 #46
123792 JanMichiel
Melk, de witte motor!
pi_29237150
quote:
Op donderdag 28 juli 2005 16:24 schreef Xsysstar het volgende:
Ik heb niet zoëven iets gezien in uw code waar een Set commando gebruikt moet worden maar mocht u ergens met zitten (te twijfelen), dan zegt u het maar .
Ik weet waarom het niet werkte. Je was New vergeten.

Er zijn twee opties.

1:
1Dim FSO As New FileSystemObject


2:
1
2		Dim FSO As FileSystemObject
Set FSO = New FileSystemObject
pi_29237862
Ach ja, natuurlijk. Onbewust weggelaten, waarschijnlijk vanzelfsprekendheid .
Laatste is sneller, veel sneller. Indien u een Publieke definitie wilt maken (Public FSO as FileSystemObject; in de header, zoals ik deed), kunt u het beste in de Form_Initialize (of Class_Initialize, enz) het Set-commando gebruiken. In modulen bestaat er niet zo'n voorgemaakte sub "Initialize", dus die moet u zelf even maken.
pi_29320149
Weet iemand hoe je kan werken met een collection?

ik heb een functie gevonden waarmee ik een tree kan uitlezen maar nu wil ik weten hoe ik de gegereneerde collection kan benutten..

iemand een idee

Tnx
The people who lost my respect will never get a capital letter for their name again.
Like trump...
pi_29320218
Ik zou graag willen helpen, maar ik weet niet echt wat u bedoelt.

Als u het treeview control bedoelt, de "Nodes" eigenschap is al een collection, dus hoeft niet apart uitgelezen te worden in een nieuwe collection.
pi_29325044
Ik heb de volgende functie (sub)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64		Function GetAllFiles(ByVal path As String, ByVal filespec As String, _
    Optional RecurseDirs As Boolean) As Collection
    Dim spec As Variant
    Dim file As Variant
    Dim subdir As Variant
    Dim subdirs As New Collection
    Dim specs() As String
    
    ' initialize the result
    Set GetAllFiles = New Collection
    
    ' ensure that path has a trailing backslash
    If Right$(path, 1) <> "\" Then path = path & "\"
    
    ' get the list of provided file specifications
    specs() = Split(filespec, ";")
    
    ' this is necessary to ignore duplicates in result
    ' caused by overlapping file specifications
    On Error Resume Next
                
    ' at each iteration search for a different filespec
    For Each spec In specs
        ' start the search
        file = Dir$(path & spec)
        Do While Len(file)
            ' we've found a new file
            file = path & file
            GetAllFiles.Add file, file
            ' get ready for the next iteration
            file = Dir$
        Loop
    Next
    
    ' first, build the list of subdirectories to be searched
    If RecurseDirs Then
        ' get the collection of subdirectories
        ' start the search
        file = Dir$(path & "*.*", vbDirectory)
        Do While Len(file)
            ' we've found a new directory
            If file = "." Or file = ".." Then
                ' exclude the "." and ".." entries
            ElseIf (GetAttr(path & file) And vbDirectory) = 0 Then
                ' ignore regular files
            Else
                ' this is a directory, include the path in the collection
                file = path & file
                subdirs.Add file, file
            End If
            ' get next directory
            file = Dir$
        Loop
        
        ' parse each subdirectory
        For Each subdir In subdirs
            ' use GetAllFiles recursively
            For Each file In GetAllFiles(subdir, filespec, True)
                GetAllFiles.Add file, file
            Next
        Next
    End If
    
End Function


nu kan ik deze functie uitlezen door

1set test = GetAllFiles("c:\etcetcetcpath", "*.*", true)


maar wat kan ik dan doen met test?
The people who lost my respect will never get a capital letter for their name again.
Like trump...
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[Centraal] Visual Basic 6
Index

» digital corner

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')