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 ?
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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.
