Finde et bestemt tal i en bestemt kollonne(beklager point mængde)

Der er 1000 svar omkring hvordan der opkobles til databaser - kopierer fra et af mine egne svar, og tilføjer lidt, så det passer til dit spørgsmål:

Dim rec As Recordset
Dim DB as Database 
Dim i as integer
Dim VarenummerFundet as Boolean
VarenummerFundet = False

Set DB = Workspaces(0).OpenDatabase("C:\database.mdb")
Set rec = DB.OpenRecordset _
    ("SELECT Række1 FROM Tabel, dbOpenSnapshot)
'Række1 og Tabel er navne angivet i din database - ret selv navnene

Do While Not rec.EOF
  if rec!Række1 = Val(Text1.Text) Then
    rec!Række1 = rec!Række1 + 1
    VarenummerFundet = true
  end if
  rec.MoveNext
Loop
If not VarenummerFundet then msgbox "Varenummer ikke fundet"
rec.Close
set DB = nothing

NB: Kan optimeres meget - du kan hoppe ud af loopet såsnart if-sætningen opfyldes, eller meget bedre: Du kan rette dit SQL-udtryk så det undersøger om dit varenummer findes, så du ikke behøver hente hele tabellen og loope over den. Brug ordet 'WHERE'.

Læs og bliv meget klogere på SQL på www.w3schools.com/sql/sql_intro.asp - bestemt værd at bruge 10 minutter på

Specielt om WHERE:
www.w3schools.com/sql/sql_where.asp

NB: Kunne godt give dig koden - men du vil vel også gerne forsøge lidt selv, ikke? Det er det man bliver klogere af ;o)

kæft det er rart at se at der er en som dig der vil hjælpe og ikke kun for points :)

jeg kigger lige på WHERE tingen der :)

jeg melder tilbage engang i aften ;)

takker mange gange indtil videre :)

øhh har lidt problemmer med den der WHERE paragraf... kunne du lave din kode om så den var med WHERE i stedet ??

hehe - selvfølgelig vil jeg forsøge selv men det er lidt træls når man ikke får noget ud af det når men har siddet i en time med det ;)

Syntax: SELECT column FROM table WHERE column operator value
Masser af eksempler i de links jeg gav

Ellers brug den løsning jeg allerede har vist

Desuden er der vist en egenskab .Find på et recordsæt - så læs det hene ind i et recordsæt (SELECT * FROM tabel) og brug rec.Find

skal jeg så skrive

/SELECT * FROM tabel) rec.find = txtVareNr.Text

???

jeg har følgende der starter med FIND (men ingen bare "rs.find"

rs.FindFirst
rs.FindLast
rs.FindNext
rs.FindPrevious

:S

1. Syntax: SELECT column FROM table WHERE column operator value
Masser af eksempler i de links jeg gav

2. Ellers brug den løsning jeg allerede har vist

3. Desuden er der vist en egenskab .Find på et recordsæt - så læs det hene ind i et recordsæt (SELECT * FROM tabel) og brug rec.Find

1, 2 og 3 er alternativer, der ikke skal kombineres. Bemærk ordet "vist" i punkt 3 :o)

hehe (det er der så ik ;)

jeg kan ikke få det til at virke :(

Vis din kode og skriv hvad fejlmeddelsen er... Brug f.eks. mit første svar - det er det allersimpleste (synes jeg)

det er opstillet meget mere med database som jeg har skrevet...

men ok jeg skriver den nu

Private Sub cmdNytIndkob_Click()

On Error GoTo Err
Dim curVareNr As Integer

  curVareNr = 22
 
  If Trim(txtFakturaNr.Text) = "" Then MsgBox "Du skal indtaste et faktura nummer!", vbOKOnly + vbInformation, "Information": Exit Sub


If Not lstIndkob.ListItems.Count = 0 Then

  Set rs = db.OpenRecordset("SELECT * FROM Varelager WHERE " & curVareNr)
  rs.MoveFirst

  For i = 1 To max
    If rs("VareNr") = curVareNr Then
        MsgBox "weee" 'til test om den finder mit varenr
        Dim intIndex As Integer
          intIndex = lstIndkob.SelectedItem.Index
       
        rs.edit
       
        rs("Kobt") = lstIndkob.ListItems(intIndex).SubItems(2)
        rs("Antal") = rs("Antal") + lstIndkob.ListItems(intIndex).SubItems(2)
        rs("LagerVardi") = rs("LagerVardi") * rs("Antal")
       
        rs.Update       
      Else
        'ingenting
    End If
   
    rs.MoveNext
 
  Next i

End If

  Exit Sub

Err:
  MsgBox "Der opstod en fejl ved registrering af indkøbet!", vbOKOnly + vbExclamation, "Fejl"

End Sub

Så mangler du bare at sige hvad det er der ikke virker -- men jeg er næsten sikker på at du får fejl i linien
Set rs = db.OpenRecordset("SELECT * FROM Varelager WHERE " & curVareNr)

WHERE " & curVareNr er nemlig noget vrøvl, der bestemt ikke følger den syntaks jeg har skrevet et par gange, at den skal følge...

Hvorfor bruger du ikke den kode jeg har givet dig?

den linje du skriver virker fint og har testet det med at søge med den linje og det virkede perfekt

rs("Kobt") = lstIndkob.ListItems(intIndex).SubItems(2) <--- denne linje er problemmet...

når jeg siger debug siger den "Update or Cancel Update without AddNew or Edit

og det synes jeg er noget vrøvl ;)

ps.: har du MSN ??

det er nemmere at snakke der !!

rs er mit recordset ;)

kigger du pådet nu ?

Nej - linien
Set rs = db.OpenRecordset("SELECT * FROM Varelager WHERE " & curVareNr)
er forkert!

Du kan lige så godt droppe Where-delen, da du ikke bruger den til noget...

Jeg synes at du skulle bruge mit eksempel, hvis du ikke kan få din egen kode til at virke...

min kode virker fint med at søge og jeg kan netop ikke få din til at virke

jeg har skervet det - læs mine beskeder da

din kode virker ikke og min gør og du vil ikke hjælpe mig med sidste del det kan kun give halt point... SELV OM det er næsten ingen points

ved godt det er venligt af dig at hjælpe for så points men det virker ikke

desuden er , dbOpenSnapshot der ikke

Min kode virker!
Tak for points!

din kode virker ikke hos mig og sådan er det...

slut

Jamen den virker - det garanterer jeg!

Så er det fordi du ikke har rettet rækkenavnene, tabelnavnene mv, eller ikke har oprettet en reference til ADO. Koden er korrekt. Men nok om det...

I øvrigt svært at sige hvad du har gjort forkert, når du ikke siger HVAD fejlen er. Men altsammen ligemeget, hvis du har fået din egen kode til at virke i stedet for :o)

Over & out