11 svar · 476 visningar · startad av Per
Hejsan !
Hur gör man så att nya poster jag lägger in i en access databas kopplat till ett VB program hamnar sist. Nu hamnar de nämligen först... Det är lite störande för jag har även speciella ID nummer på posterna och vill att ju högre nummer ju längre bak i listan 
.
------------------
-Per
Movelast i recordset:et eller en vanlig SQL-INSERT
Hej igen !
Hur menar med med movelast... Kan du utveckla lite, skriver man adodc1.recordset.movelast då hamnar väl "jag" längst bak, men hur flyttar jag posten och dess data dit ?
------------------
-Per
recordset.movelast
Du ska inte flytta något dit, utan bara ställa databasmarkören där innan du lägger till något.
Men detta hjälper inte !
Som det ser ut idag så ligger talen 191-193 första sedan följs de utan 163-190. Alla nya poster får nummer över 193 och lägger sig där... men varför ligger de innan de gamla posterna, lite luddigt detta men men
------------------
-Per
OK
Spara knappen
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub cmdSpara_Click()
Namn = txtNamn.Text
Alias = txtAlias.Text
Mnummer = txtMNummer.Text
Adress = txtAdress.Text
PostAdress = txtPostAdress.Text
EPost = txtEPost.Text
Url = txtUrl.Text
ICQ = txtIcq.Text
Ip = txtIp.Text
Telefon = txtTelefon.Text
Mobil = txtMobil.Text
Betalt = txtBetalt.Text
BetaltPL = txtBetaltPL.Text
Lan1.Recordset.Fields("Namn") = Namn
Lan1.Recordset.Fields("Alias") = Alias
Lan1.Recordset.Fields("Adress") = Adress
Lan1.Recordset.Fields("Post Adress") = PostAdress
Lan1.Recordset.Fields("E-post") = EPost
Lan1.Recordset.Fields("Url") = Url
Lan1.Recordset.Fields("Icq") = ICQ
Lan1.Recordset.Fields("IP_span") = Ip
Lan1.Recordset.Fields("Telefon") = Telefon
Lan1.Recordset.Fields("Mobil") = Mobil
Lan1.Recordset.Fields("Betalt") = Betalt
'Lan1.Recordset.Fields("Betalt för plats") = BetaltPL
Lan1.Recordset.Update
End Sub
Lägg till knappen
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub cmdLäggTill_Click()
Lan1.Recordset.MoveLast
Lan1.Recordset.AddNew
End Sub
------------------
-Per
Det ska nog vara Sparaknappen
Helt riktigt Swey, fel av mig...
Databasen är en Access 2000 och kopplingen sker via en Jet eller vad det nu heter...
------------------
-Per
