25. september 2002 - 08:29Der er
1 kommentar og 1 løsning
redigere i access database i VB
jeg vil kunne redigere i min database. f.eks. ved at redigere i en bruger, og så skal data gemmes. men der sker ikk noget. jeg har erklæret en funktion med følgende kode.
Function RedigereGem() If txt_Navn.Text = "" Then MsgBox "Du skal indtaste et navn", ElseIf txt_Adresse.Text = "" Then MsgBox "Du skal indtaste en adresse", ElseIf txt_Post_nummer.Text = "" Then MsgBox "Du skal indtaste et post nummer", ElseIf txt_CVR_nummer.Text = "" Then MsgBox "Du skal indtaste et CVR nummer", ElseIf txt_Telefon_nummer.Text = "" Then MsgBox "Du skal indtaste et telefon nummer", ElseIf txt_info.Text = "" Then MsgBox "Der skal tilføjes info om kunden",
rs.Edit List1.AddItem rs!Navn List1.ItemData(List1.NewIndex) = rs!Kunde_nummer rs!Navn = txt_Navn.Text rs!Telefon_nummer = txt_Telefon_nummer.Text rs!Post_nummer = txt_Post_nummer.Text rs!Adresse = txt_Adresse rs!CVR_nummer = txt_CVR_nummer.Text rs!Info = txt_info.Text rs.Update rs.Delete List1.RemoveItem List1.ListIndex List1.ItemData(List1.NewIndex) = rs!Kunde_nummer End if End Function
Men den gemmer ikke de oplysninger jeg har redigeret. nogen som kan forklare mig hvorfor ? og vise mig den rigtige kode ?
Det er fordi du kun opdatere dit program, du skal også opdatere basen....Private Sub addok_Click() If addnavn.Text = "" Then MsgBox "Der er et tomt felt, det må der ikke være." ElseIf fon.Text = "" Then MsgBox "Der er et tomt felt, det må der ikke være." ElseIf Sonofon = False And Telia = False And mobilix = False And tdm = False Then MsgBox "Du skal vælge en Tele Udbyder" Else If Telia = True Then Teleudbyder = fon.Text & "@gsm1800.telia.dk" ElseIf Sonofon = True Then Teleudbyder = fon.Text & "@note.sonofon.dk" ElseIf tdm = True Then Teleudbyder = fon.Text & "@sms.tdm.dk" ElseIf mobilix = True Then Teleudbyder = fon.Text & "@sms.mobilix.dk" End If Set ws = Workspaces(0) Set db = ws.OpenDatabase(App.Path & "\sms.sms") db.Execute "INSERT INTO sms (navn, nummer) VALUES ('" & addnavn.Text & "','" & Teleudbyder & "');" mobilix = False Telia = False Sonofon = False tdm = False addnavn = "" fon = "" Unload SMS Load SMS SMS.Visible = True AddUser.Visible = False End If End Sub
Sådan insætter man date, og skal man redigere i en post der er oprettet så er det med update:
Set ws = Workspaces(0) Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb") db.Execute "update Movies set borowed = '" & txtlend2.Text & "' where cdnr = " & txtlendnum.Text & ";"
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.
