Slette records

Hvad med delete.recordset ?

Jeg har bikset denne kode sammen, men det springer i luften.

Private Sub Command3_Click()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(\"C:\\Ting og Sager\\Teknologi projekt\\notat.mdb\")
Set RS = DB.OpenRecordset(\"Notat\")
SQLstring = \"SELECT Notat.NotatID From Notat WHERE (Notat.NotatID = \'\" & List3.Text & \"\')\"
Set RS = DB.OpenRecordset(SQLstring)

RS.Delete

End Sub

Se her mens jeg lige tager en kikker på din kode:
http://www.eksperten.dk/spm/25560

Okay jeg kom ti at \"Set RS\" 2 gange, men det var ikke det.

Det springer stadig i luften.

Kigger lige på linket.

Du skal ikke have sætningen:

Set RS = DB.OpenRecordset(\"Notat\")

Data type mismatch in criteria expression.

Siger den.

Har fjernet den sætning du sagde.

Hvad skriver den når den eksploderer?

ud over <<BANG>>

Jeg tror at den går i stå ved din SQLstring...

Ja, den breaker ved Set RS.

Fatter det ikke.

Men OK. Jeg fatter ikke så meget om databaser alligevel.

Jeg tror nok jeg ville gøre det sådan her:

Set RS = DB.OpenRecordset(\"Notat\", dbOpenTable)

Nu springer den ikke i luften, men den sletter heller ikke nogen records.

Okay, nu sletter den den første record i min database. Ikke den som jeg beder den om.

Det er fordi din SQLstring ikke referer til en database. Se hvor den havner, ved at sætte msgbox ind som giver dig de data der står i det felt du ønsker at slette. (Blot et tipz!)

Noget andet, drop da den SQLstring og gør sådan her:

rs.movefirst

\'Læg denne rutine i en sub
Do Until RS.EOF
  If RS!NotatID = List3.text then exit sub
Loop
\' her til

rs.delete

En sub?

sub = subrutine

Sådan her:

rs.movefirst

Find_onsket_record \'subrutine

rs.delete

Private Sub Find_onsket_record ()

Do Until RS.EOF
  If RS!NotatID = List3.text then exit sub
Loop

End Sub

Hold da op hvor bliver du klog idag!

Rutinen vil foresten hvis den ikke finder noget i Listboxen at sammenligne med i tabellen, så vil den havne på sidste record, og ønskes denne ikke slettet skal du lige tilføje i suben foreks. msgbox (\"Ingen poster fundet der matchede, din lede bruger ko, så derfor sletter jeg den sidste!\")

Es springst im lufts noch ein mal.

Object invalid or no longer set.

Koden:

Private Sub Command3_Click()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(\"C:\\Ting og Sager\\Teknologi projekt\\notat.mdb\")
Set RS = DB.OpenRecordset(\"Notat\", dbOpenTable)


RS.MoveFirst

Find_onsket_record \'subrutine

RS.Delete

End Sub

Private Sub Find_onsket_record()

Do Until RS.EOF
  If RS!NotatID = List3.Text Then Exit Sub
Loop

End Sub

Hvor langt kommer den i rutinen, hvis du ikke kan se det så set msgbox\'e ind med små oplysninger så ved du hvorlangt den kommer i rutinen...

Den breaker ved Do Until RS.EOF

Jeg tror det er fordi den der RS kun virker inde i Command3 subben.

Det har du da naturligvis ret i, drop sub\'en og set foreksempel en løkke ind i stedet.

f.eks.
Do until rs!notat = text3.text
  rs.movenext
loop

eller
Do while i = 0
  if rs!notat = text3.text then i = 1
  if rs.eof then
    msgbox\"Ingen record fundet\"
    i = 2
  end if
  if i = 0 then rs.movenext
end if

if i = 1 then rs.delete

husk at dimensionere i.

Dim i as byte
i = 0

Hov der mangler et loop oppe i min rutine...

Ja, det fandt jeg lige ud af.

Og VB crashede også.

Jeg tror den havnede i en uendelig løkke.

Gudskelov jeg havde gemt.

Wohoo!

Jeg er naren til at kode.

Naren, naren, naren.

Jeg bliver blomsterbinder i stedet.

Men nu virker det.

Her har du lige en slat point for al dit besvær :)

Her er koden der virker. Jeg skulle lige rette notat til notatid et par steder. Det var det hele.

Private Sub Command3_Click()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(\"C:\\Ting og Sager\\Teknologi projekt\\notat.mdb\")
Set RS = DB.OpenRecordset(\"Notat\")


Do While i = 0
  If RS!notatid = List3.Text Then i = 1
  If RS.EOF Then
    MsgBox \"Ingen record fundet\"
    i = 2
  End If
  If i = 0 Then RS.MoveNext
Loop

If i = 1 Then RS.Delete

End Sub

Her har du hele rutinen:

Private Sub Command3_Click()

\'dimensionering af databasen
Dim DB As Database
Dim RS As Recordset

\'dimensionering af løkke
Dim i as integer
i = 0

\'Åbne databasen
Set DB = OpenDatabase(\"C:\\Ting og Sager\\Teknologi projekt\\notat.mdb\")
Set RS = DB.OpenRecordset(\"Notat\", dbOpenTable)

\'Find den record der skal slettes, dette bliver tastet ind i et textfelt.

rs.movefirst \'hopper til den første record

do until rs.eof
  if rs!notat = text1.text then \'Her skal der stå en gyldig parameter
        msgbox (\"Recorden er fundet\")
        rs.delete
        i = 1
  end if
  if i = 0 then rs.movenext
loop

End Sub

Denne rutine virker, gør den ikke det, så har du en stavefejl et eller andet sted.

OK, så var jeg blot for langsom, hehe (Tak for de ekstra point)

Hov min sidste rutine indeholder også en fejl, hvis den finder recorden vil den køre ud i en uendelig løkke....