Avatar billede inkognito1 Nybegynder
31. januar 2002 - 23:15 Der er 4 kommentarer og
1 løsning

Behandel og slet bagefter !

Jeg en kode der henter noget data ud af en database.
-------------

DB = "driver={SQL Server};server=server2002;uid=user;pwd=pass;database=tekstbase"
Set RS = CreateObject("ADODB.Recordset")

sql = "SELECT * FROM "& table &" WHERE transmit = 0"

RS.Open SQL, DB, 3, 3

if rs.eof then
else
rs.movefirst
do until rs.eof

DATA = rs("tekst")

rs.movenext
loop
end if

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

Kan jeg slutte med at slette recorden sådan den ikke er i databasen.

Nærmest som i et e-mail program... når en mail ligger i udbakke så fosvinder den når den er sendt.

Håber en kan hjælpe med at opklare det for mig :o)
Avatar billede osaka_san Nybegynder
01. februar 2002 - 00:33 #1
Du lave bare endnu en query til databasen ligesom du trak teksten ud, så benytter du "delete from [tablename] Where transmit = 0"
Avatar billede inkognito1 Nybegynder
01. februar 2002 - 14:13 #2
Alla det her ?

DB = "driver={SQL Server};server=server2002;uid=user;pwd=pass;database=tekstbase"
Set RS = CreateObject("ADODB.Recordset")

sql = "SELECT * FROM "& table &" WHERE transmit = 0"

RS.Open SQL, DB, 3, 3

if rs.eof then
else
rs.movefirst
do until rs.eof

DATA = rs("tekst")

sql = "DELETE FROM "& table &" WHERE transmit = 0"

rs.movenext
loop
end if
Avatar billede hkp Nybegynder
07. februar 2002 - 23:48 #3
DB = "driver={SQL Server};server=server2002;uid=user;pwd=pass;database=tekstbase"
Set RS = CreateObject("ADODB.Recordset")

sql = "SELECT * FROM "& table &" WHERE transmit = 0"

RS.Open SQL, DB, 3, 3

if rs.eof then
else
rs.movefirst
do until rs.eof

DATA = rs("tekst")

sql = "DELETE FROM "& table &" WHERE transmit = 0"
Set RS2 = CreateObject("ADODB.Recordset")
RS2.Open SQL, DB, 3, 3


rs.movenext
loop
end if

Sådan!

Det er godt nok ikke særligt kønt, mhp. oprydning, men pyt, det klarer garbage collectoren - det er et andet problem.
Avatar billede pniels12 Nybegynder
13. juni 2003 - 13:28 #4
Forslaget ovenfor en en mulighed. Jeg vil dog foreslå dig at flytte delete sql-kaldet uden for lykken der er ingen grund til at kalde den for hver gennemløb.
En anden mulighed kunne være at lave en trigger på tabellen som sørger for at slette alle de rækker som du læser.
Avatar billede inkognito1 Nybegynder
13. juni 2003 - 13:45 #5
Jeg har faktsik valgt at bruge den løsning som du kommer med her til sidst pniels12
Avatar billede 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.

Loading billede Opret Preview
Kategori
Computerworld tilbyder specialiserede kurser i database-management

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