Avatar billede scar_dk2002 Nybegynder
19. september 2002 - 10:07 Der er 5 kommentarer og
1 løsning

Søge i database felt lavet i accest i visual basic

hej, jeg vil gerne høre hvordan man søger i et felt i database ?
jeg kan ikk finde ud af det. det er DAO jeg arbejder med.
Avatar billede finger Nybegynder
19. september 2002 - 10:16 #1
SELECT [kolonne] FROM [tabel] WHERE [variabel=kolonne]

standard sql forespørgsler.
eller det var måske ikke det du skulle bruge?
det er jo en ret kort beskrivelse du giver.
Avatar billede terry Ekspert
19. september 2002 - 10:23 #2
Sub DAOOpenRecordset()
  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim fld As DAO.Field
 
  'Open the database
  Set db = DBEngine.OpenDatabase _
    (".\NorthWind.mdb")
  'Open the Recordset
  Set rst = db.OpenRecordset _
    ("SELECT * FROM Customers " & _
    "WHERE Region = 'WA'", _
    dbOpenForwardOnly, dbReadOnly)
 
  ' Print the values for the fields in
  ' the first record in the debug window
  For Each fld In rst.Fields
    Debug.Print fld.Value & ";";
  Next
  Debug.Print
  'Close the recordset
  rst.Close

End Sub
Avatar billede scar_dk2002 Nybegynder
19. september 2002 - 10:40 #3
jeg kan ikk rigtigt forstå det. sorry jeg er lidt ny til VB. Men altså.
Private Sub Form_Load()
   
    Set db = OpenDatabase("db3.mdb")
    Set rs = db.OpenRecordset("Kunder", dbOpenDynaset)

    If Not rs.EOF Then rs.MoveFirst
    Do While Not rs.EOF
    List1.AddItem rs!Navn
    List1.ItemData(List1.NewIndex) = rs("Kunde_nummer")
   
    rs.MoveNext

    Loop
    End Sub

Private Sub List1_Click()
    rs.FindFirst "Kunde_nummer=" & Str(List1.ItemData(List1.ListIndex))
    txt_Kunde_nummer.Text = rs!Kunde_nummer
    txt_Telefon_nummer.Text = rs!Telefon_nummer
    txt_Navn.Text = rs!Navn
    txt_Post_nummer.Text = rs!Post_nummer
    txt_Adresse.Text = rs!Adresse
    txt_CVR_nummer.Text = rs!CVR_nummer
    txt_info.Text = rs!Info
   
    If Chk_karan.Value = vbChecked Then
    MsgBox Prompt:="Kunden har karantæne!"
    End If
   
End Sub

Private Sub Søg_Click()
    Dim svar2
    svar2 = InputBox(Prompt:="Indtast kundens telefonnummer", _
    Title:="Find kundenummer via.telefonnummer")
    if "HVIS TELEFON NUMMERET FUNDET I DATABASE" Then 
    MsgBox ("Kunden er fundet")
   
    Else: MsgBox ("Kan ikke finde kunden i databasen")
    End If
End Sub

Hvordan gør jeg det ?? (det med at finde tlf nr. i db og så msgbox)
min DB hedder db3. og feltet hedder Telefon_nummer.
Avatar billede terry Ekspert
19. september 2002 - 10:53 #4
Avatar billede scar_dk2002 Nybegynder
19. september 2002 - 11:13 #5
tak for link, det hjalp lidt med forståelse.
Avatar billede terry Ekspert
19. september 2002 - 11:15 #6
you should be able to find LOADS of help under Microsoft

og tak :o)
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
Kurser inden for grundlæggende programmering

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