Re: Welke codes in VB6 om te voorkomen dat het programma tegelijkertijd uitgevoerd wordt?

Article View: be.comp.programming

Article #14700

Back to be.comp.programming Previous Next

#14700

From: David
Date: Mon, 15 Jan 2001 17:03

39 lines
3009 bytes

>    bv: (krijgt sName mee en haalt ID op uit database)
>
>    Dim csoSecurity as new DBSec.clsSecurity
>    Dim arMyRecordset as new ADODB.recordset
>    Dim sSQL as string, sConn as string, sIDValue as string
>
>    sConn = csoSecurity.GetConnectionString()
>    sSQL="SELECT ID FROM TABLE WHERE Name='" & sName & "'"
>    arMyRecordset.open sSQL, sConn
>    sIDValue = arMyRecordset("ID").value
>    arMyRecordset.close
>
>    Veel korter kan ik het niet opschrijven. Veel korter kun jij het
>    ZEKER niet opschrijven in C++. ik heb _NIETS_ gegenereerd, en
>    alles is zeer leesbaar, er is _GEEN_ kennis nodig van smartpointer
>    macro's en ADO specific macro's om te snappen wat er staat.
>
>    Dat jij dit dan NOG beter in C++ kunt doen, vind ik geweldig voor je,
>    ik doe dit fijn in VB omdat het me slechts 8 regels code kost, waarvan
>    3 regels met declaraties. Dat jij dat niet kunt omdat je slecht slaapt
>    omdat je VB gebruikt, immers een scriptingtaal voor weenies, en voor
>    alles C++ moet gebruiken want dat is een BETERE taal (?) de enige die
>    je er mee hebt ben jezelf en je teamleden. 

Effentjes proberen in Borland C++ Builder
try
{
   TQuery *sql = new TQuery(this);
  sql->DatabaseName = "naam";
   sql->SQL->Add("SELECT ID FROM TABLE WHERE Name = test");
  sql->Open();
   AnsiString result = sql->FieldByName("ID")->AsString;
   delete sql;
} catch (DBEEngineError &error)
{
  delete sql;
}

Niet echt Ansi C++ , maar het werkt. :-)

Technical Details

Message-ID: <3a632afc.753535@news.pandora.be>

Path:

arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!nntp-relay.ihug.net!ihug.co.nz!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail

References:

<9351an$f7n$1@news1.skynet.be> <Pine.LNX.4.21.0101051949531.9940-100000@backslash.moeha.net> <9377d7$jbe$1@news1.skynet.be> <3A572F38.50D749B0@xs4all.nl> <93f8m5$5tf$1@porthos.nl.uu.net> <3A5B58F4.A2EC26E9@xs4all.nl> <93h90p$acu$1@porthos.nl.uu.net> <3A5CB023.748599E@xs4all.nl> <93jtut$npo$1@porthos.nl.uu.net> <3A5E0CDB.799DE750@xs4all.nl> <3A5E18D3.FEA73C86@chello.be> <961o39.s58.ln@jafshome.gtk.fr> <93pc5c$lhm$1@news1.xs4all.nl> <sqcs39.6ms.ln@jafshome.gtk.fr> <93ugd4$hfu$1@news1.xs4all.nl>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: 107324,d0015270be29ee92
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,d0015270be29ee92
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-01-15 09:07:44 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!nntp-relay.ihug.net!ihug.co.nz!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
From: davke@usa.net (David)
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Re: Welke codes in VB6 om te voorkomen dat het programma tegelijkertijd  uitgevoerd wordt?
Message-ID: <3a632afc.753535@news.pandora.be>
References: <9351an$f7n$1@news1.skynet.be> <Pine.LNX.4.21.0101051949531.9940-100000@backslash.moeha.net> <9377d7$jbe$1@news1.skynet.be> <3A572F38.50D749B0@xs4all.nl> <93f8m5$5tf$1@porthos.nl.uu.net> <3A5B58F4.A2EC26E9@xs4all.nl> <93h90p$acu$1@porthos.nl.uu.net> <3A5CB023.748599E@xs4all.nl> <93jtut$npo$1@porthos.nl.uu.net> <3A5E0CDB.799DE750@xs4all.nl> <3A5E18D3.FEA73C86@chello.be> <961o39.s58.ln@jafshome.gtk.fr> <93pc5c$lhm$1@news1.xs4all.nl> <sqcs39.6ms.ln@jafshome.gtk.fr> <93ugd4$hfu$1@news1.xs4all.nl>
X-Newsreader: Forte Free Agent 1.21/32.243
Lines: 39
Date: Mon, 15 Jan 2001 17:03:33 GMT
NNTP-Posting-Host: 213.224.135.126
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 979578213 213.224.135.126 (Mon, 15 Jan 2001 18:03:33 MET)
NNTP-Posting-Date: Mon, 15 Jan 2001 18:03:33 MET
Organization: Telenet Internet

Reply to Parent Message