DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
quote:Op vrijdag 30 november 2007 09:16 schreef JortK het volgende:
[..]
Doet eens ff wat fatsoenlijke resource sites hier neer gooien
de site m.b.t. het verbinden met mysql:
http://www.vbmysql.com/articles/vbnet-mysql-tutorials/
(tis dus maar 1 site, maar het werkt
)en m'n zoek functie voor het bestandsysteem is bijna hoe ik em wil hebben
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Dim d As IO.DirectoryInfo Dim f As IO.FileInfo Dim Regexp As New RegexOptions Dim dirs As New IO.DirectoryInfo(path) Dim files1 As Array = dirs.GetFiles("*") For Each f In files1 If Regex.IsMatch(f.Name, searchPattern) Then files.Add(f) End If Next For Each d In dirs.GetDirectories() If (d.Name <> "System Volume Information") And (d.Name <> "$Recycle.Bin") And (d.Name <> "Recycle Bin") And (d.Name <> "$RECYCLE.BIN") And (d.Name <> Environment.GetEnvironmentVariable("windir").Substring(3)) Then Console.WriteLine(d.FullName) If Not CBool((d.Attributes And IO.FileAttributes.ReparsePoint)) Then If searchOption = IO.SearchOption.AllDirectories Then searchFileSystem(path & "\" & d.Name, searchPattern, searchOption) End If End If End If Next Return files End Function |
wil alleen die if regel met o.a system volume information netter (b.v een array die aangevuld kan worden door de user)
[ Bericht 35% gewijzigd door mschol op 30-11-2007 09:42:53 ]
Zo, ik net ff met de MSSQL profiler proberen welk veld gevuld wordt door Exact bij het invullen bij 1 vinkje, krijg je dit:
Waarom zo ingewikkeldquote:SELECT TOP 1 kstplcode FROM kstpl ORDER BY KSTPLCODE
go
exec sp_executesql N'SELECT kstplcode FROM kstpl WHERE kstplcode=@P1', N'@P1 varchar(2)', '04'
go
exec sp_execute 17, ' 9400'
go
exec sp_executesql N'UPDATE grtbk SET std_kstpl = NULL WHERE reknr = @P1', N'@P1 varchar(9)', ' 9400'
go
IF @@TRANCOUNT > 0 COMMIT TRAN
go
SELECT ID FROM grtbk WHERE reknr =' 9400'
go
exec sp_executesql N'SELECT 1 FROM Items WHERE ItemToBeReceivedLedger IS NOT NULL AND ItemToBeReceivedLedger = @P1 ', N'@P1 varchar(9)', ' 9400'
go
exec sp_executesql N'SELECT 1 FROM ItemAssortment WHERE ItemToBeReceivedLedger IS NOT NULL AND ItemToBeReceivedLedger = @P1 ', N'@P1 varchar(9)', ' 9400'
go
SELECT kstplcode, units FROM Ksprek WHERE reknr = ' 9400'
go
SELECT reknr, oms25_0 AS Description FROM grtbk WHERE reknr <> ' 9400' AND Class_01 = '4' AND Class_02 = '19' AND Class_03 = '39' AND Class_04 = '<none>' AND Class_05 = '<none>'
go
exec sp_executesql N'SELECT reknr FROM grtbk WHERE ID=@P1', N'@P1 int', 235
go
exec sp_executesql N'SELECT reknr FROM grtbk WHERE CompanyCode=@P1 AND reknr IS NULL AND ID<>@P2', N'@P1 varchar(3),@P2 int', '999', 235
go
UPDATE grtbk SET kstplrek = 1,sysmodified = {ts '2007-11-30 11:44:20.000'} WHERE ID = 235
go
exec ebcLogUpdate 0x8AA9F398857A7146B7FDDFD248767EAC, 0x0AE95C3EBEFD26498532CC79C76E0040, '235', 0, 1, 1
go
exec ebcLogUpdate 0x8AA9F398857A7146B7FDDFD248767EAC, 0x077FCF375BE44F4BAEA4FC4BC428D311, '235', NULL, NULL, 1
go
IF @@TRANCOUNT > 0 COMMIT TRAN
go
exec sp_execute 2, 235
go
exec sp_execute 2, 235
go
SELECT TOP 1 ID FROM grtbk ORDER BY reknr
go
SELECT TOP 1 ID FROM grtbk ORDER BY reknr DESC
go
SELECT ID From hrcomponents WHERE ledger_account = ' 9400' AND (((blocked=0 AND comp_status<>'I') AND (startdate<=GETDATE() AND (enddate IS NULL OR enddate>=GETDATE()))) OR (comp_status='I' AND blocked=0) ) AND (comp_visible='V' OR comp_status='C') AND country= 'NL' AND comp_type NOT IN ('M','L')
go
SELECT SUM(CASE WHEN bdr_hfl > 0 THEN bdr_hfl ELSE 0 END) AS DebitAmount
,SUM(CASE WHEN bdr_hfl < 0 THEN -bdr_hfl ELSE 0 END) AS CreditAmount
, SUM(CASE WHEN verwerknrl > 0 AND bdr_hfl > 0 THEN 1 ELSE 0 END) AS ProcessedDebitCount
,SUM(CASE WHEN verwerknrl > 0 AND bdr_hfl < 0 THEN 1 ELSE 0 END) AS ProcessedCreditCount
, SUM(CASE WHEN verwerknrl = 0 AND bdr_hfl > 0 THEN 1 ELSE 0 END) AS UnprocessedDebitCount
,SUM(CASE WHEN verwerknrl = 0 AND bdr_hfl < 0 THEN 1 ELSE 0 END) AS UnprocessedCreditCount
FROM gbkmut WHERE reknr = ' 9400' AND transtype IN ('N','C','P') AND bud_vers IS NULL
go
SELECT TOP 1 gbkmut.datum FROM gbkmut WHERE reknr = ' 9400' ORDER BY gbkmut.datum DESC
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(1)', '1', '4'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 1) foo WHERE col_ID=@P1', N'@P1 int', 14
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(2)', '2', '19'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 2) foo WHERE col_ID=@P1', N'@P1 int', 82
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(2)', '3', '39'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 3) foo WHERE col_ID=@P1', N'@P1 int', 102
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(8000)', '4', '<none>'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 4) foo WHERE col_ID=@P1', N'@P1 int', 40
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(8000)', '5', '<none>'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 5) foo WHERE col_ID=@P1', N'@P1 int', 67
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(2)', '6', '20'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 6) foo WHERE col_ID=@P1', N'@P1 int', 128
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(3)', '7', '110'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 7) foo WHERE col_ID=@P1', N'@P1 int', 127
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(3)', '8', '100'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 8) foo WHERE col_ID=@P1', N'@P1 int', 129
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(1),@P2 varchar(4)', '9', '1000'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 9) foo WHERE col_ID=@P1', N'@P1 int', 131
go
exec sp_executesql N'SELECT TOP 1 IDENTITYCOL, Description_0 FROM AccountClasses WHERE ClassID=@P1 AND AccountClassCode=@P2', N'@P1 varchar(2),@P2 varchar(8000)', '10', '<none>'
go
exec sp_executesql N'SELECT 1 FROM (SELECT AccountClasses.IdentID AS col_ID FROM accountclasses WHERE classid = 10) foo WHERE col_ID=@P1', N'@P1 int', 72
go
SET FMTONLY ON SELECT StringValue FROM Settings where 1=2 SET FMTONLY OFF
go
SET FMTONLY ON select SettingGroup, SettingName from Settings where 1=2 SET FMTONLY OFF
go
declare @P1 int
set @P1=23
exec sp_prepexec @P1 output, N'@P1 char(30),@P2 char(30)', N'SELECT StringValue FROM Settings WHERE SettingGroup=@P1 AND SettingName=@P2', 'glacclinks ', 'gk_versch_account '
select @P1
go
exec sp_execute 23, 'glacclinks ', 'gk_paid_prepayments '
go
exec sp_execute 23, 'glacclinks ', 'gk_calcdif_sec_cur '
go
exec sp_execute 23, 'glacclinks ', 'gk_calcdif_sec_cur2 '
go
exec sp_execute 23, 'glacclinks ', 'gk_nto_fakturen '
go
exec sp_execute 23, 'ev_journaal ', 'intern_tegenrek '
go
exec sp_execute 23, 'bank ', 'Bank_Costs '
go
exec sp_execute 23, 'glacclinks ', 'gk_kortingen_vrk '
go
exec sp_execute 23, 'glacclinks ', 'gk_kortingen_ink '
go
exec sp_execute 23, 'glacclinks ', 'gk_betversch_vrk '
go
exec sp_execute 23, 'glacclinks ', 'gk_betversch_ink '
go
exec sp_execute 23, 'glacclinks ', 'gk_kredbeperking_vrk '
go
exec sp_execute 23, 'glacclinks ', 'gk_kredbeperking_ink '
go
exec sp_unprepare 23
go
declare @P1 int
set @P1=24
exec sp_prepexec @P1 output, NULL, N'SELECT ID, valcode, oms30_0 AS oms30 FROM valuta WHERE rekkrsvink = '' 9400'' OR rekkrswink = '' 9400'' OR rekkrsvvrk = '' 9400'' OR rekkrswvrk = '' 9400'' OR rekherw = '' 9400'' OR rekherww = '' 9400'''
select @P1
go
exec sp_unprepare 22
go
SELECT TOP 1 1 From gbkmut WHERE reknr = ' 9400' AND (debnr IS NOT NULL OR crdnr is NOT NULL) AND Transtype IN ('N','C','P')
go
exec sp_executesql N'SELECT TOP 1 1 FROM dagbk WHERE reknr = @P1', N'@P1 varchar(9)', ' 9400'
go
exec sp_executesql N'SELECT TOP 1 1 FROM btwtrs WHERE reknr = @P1 OR rek_btw_vk = @P2', N'@P1 varchar(9),@P2 varchar(9)', ' 9400', ' 9400'
go
exec sp_executesql N'SELECT 1 FROM Items WHERE ItemToBeReceivedLedger IS NOT NULL AND ItemToBeReceivedLedger = @P1 ', N'@P1 varchar(9)', ' 9400'
go
exec sp_executesql N'SELECT 1 FROM ItemAssortment WHERE ItemToBeReceivedLedger IS NOT NULL AND ItemToBeReceivedLedger = @P1 ', N'@P1 varchar(9)', ' 9400'
go
exec sp_execute 17, ' 9400'
go
exec sp_execute 18, ' 9400'
go
exec sp_executesql N'UPDATE grtbk SET kstdrrek = 0 WHERE reknr = @P1', N'@P1 varchar(9)', ' 9400'
go
IF @@TRANCOUNT > 0 COMMIT TRAN
go
Nah, ik ga liever wat internettenquote:Op vrijdag 30 november 2007 11:57 schreef JortK het volgende:
[..]
Je kan wel wat van mijn werk overnemen
Dat gaat * WyriHaximus vandaag doen.quote:Op donderdag 29 november 2007 22:48 schreef Geqxon het volgende:
Geqxon heeft de meterkast even goed onder handen genomen
En wel meer
* WyriHaximus heeft ze router en login gegevens voor UPC binnen
En nu nog de kabels
.
phluphy for president!
Ik zal morgen wel even met de foto's pimpenquote:Op vrijdag 30 november 2007 13:44 schreef WyriHaximus het volgende:
[..]
Dat gaat * WyriHaximus vandaag doen.
* WyriHaximus heeft ze router en login gegevens voor UPC binnen
En nu nog de kabels
Mag ik weer ff storen met een noob vraag ?
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
altijd toch?quote:Op vrijdag 30 november 2007 16:21 schreef kleinzusje het volgende:
Thxquote:
1. Tijd geleden hier gevraagd waarom mn IE steeds een foutmelding gaf bij live streams tennis en scorenbord........
IE moest dan afgesloten worden en was al mn tabjes kwijt
Ben toen goed geholpen door jullie
flash opnieuw geinstaleerd............. werkte ok........... maar nu opnieuw gezeik.
2. Krijg opeens, sinds 2 dagen, wel 20 spam berichten in mn mailbox............. hoe kan dat en wat doe ik er tegen ???
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
1)geen idee? wat is 'gezeik' precies?
2)hoe dat kan? tja je mail adres wordt geprobeerd door spam bots of hij is van een site geplukt..
wat je er tegen kan doen:
anti spam middelen installeren of (in het geval van outlook) ze markeren als ongewenste mail..
2)hoe dat kan? tja je mail adres wordt geprobeerd door spam bots of hij is van een site geplukt..
wat je er tegen kan doen:
anti spam middelen installeren of (in het geval van outlook) ze markeren als ongewenste mail..
thx voor je antwoordquote:Op vrijdag 30 november 2007 16:55 schreef mschol het volgende:
1)geen idee? wat is 'gezeik' precies?
2)hoe dat kan? tja je mail adres wordt geprobeerd door spam bots of hij is van een site geplukt..
wat je er tegen kan doen:
anti spam middelen installeren of (in het geval van outlook) ze markeren als ongewenste mail..
1. Gezeik is dat het weer gebeurd......... dus foutmelding en tekst dat IE moet afsluiten
2. Hoe stel je "ongewenste mail" in ?
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
tip ?quote:Op vrijdag 30 november 2007 16:58 schreef JortK het volgende:
spamfighter zou je eens kunnen proberen om je spam tegen te houden
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
thxquote:
Ga het straks ff uitproberen
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
* JortK makes mental note to order internetquote:Op vrijdag 30 november 2007 13:44 schreef WyriHaximus het volgende:
[..]
Dat gaat * WyriHaximus vandaag doen.
* WyriHaximus heeft ze router en login gegevens voor UPC binnen
En nu nog de kabels
Jork, was jij niet ooit de user met de heerlijke kontjes in je ava 
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
Volgens mij doet die niet meer dan de spam verplaatsen naar een "map voor ongewenste mail".quote:
Hij houdt de spam niet tegen dacht ik.
... ♥ ik mis je ♥
quote:Op vrijdag 30 november 2007 17:24 schreef kleinzusje het volgende:
Jork, was jij niet ooit de user met de heerlijke kontjes in je ava
Mis je ze
Klopt, maar zo heb je er in ieder geval geen last van in je inboxquote:Op vrijdag 30 november 2007 17:40 schreef phluphy het volgende:
[..]
Volgens mij doet die niet meer dan de spam verplaatsen naar een "map voor ongewenste mail".
Hij houdt de spam niet tegen dacht ik.
Heb ze opgeslagenquote:
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
Dag lekkertjequote:Op vrijdag 30 november 2007 19:43 schreef JortK het volgende:
Mensen prettig weekend, ik ben er weg van
All I need is for my man to live up to his role
Onwetendheid is zaligmakend (Nalby)
Onwetendheid is zaligmakend (Nalby)
* mschol vind dat een gedrocht programma...quote:Op vrijdag 30 november 2007 16:58 schreef JortK het volgende:
spamfighter zou je eens kunnen proberen om je spam tegen te houden
