Hvornår får du fejlen? Er det ved første update?
"Jerome Erik Thorstenson." <jetdk@worldonline.dk> wrote in message
news:a6lc9o$l7$1@sunsite.dk...
> Nej det har jeg ikke, jeg er ikke så øvet i det med ADO.
> Hvor skal det stå ?? Hvis du har forslag... Er jeg meget interreseret
>
> --
>
> Med venlig hilsen
>
> Erik Thorstenson
> ----
> "Rayman" <rayman_dk@email.com> wrote in message
> news:pzpj8.5696$RB.185627@news010.worldonline.dk...
> > Jeg kan ikke se det ud fra din kode, men har du et current recordset?
> > Desuden skal det vistnok være et dynamic.
> >
> > Mvh. Rayman.
> >
> > "Erik Thorstenson - NT Administrator" <Erik@Struer.Net> wrote in message
> > news:3c8ddb4c$0$34060$edfadb0f@dspool01.news.tele.dk...
> > > Hjælp !!!
> > > Jeg sidder og roder med ADO og MySQL. Jeg skal søge i en MySQL
database,
> > og
> > > opdatere nolge felt-værdier.
> > > Problemet er at når jeg søger efter dat virker det fint, men når jeg
> > kalder
> > > UpdateStatus, så fejler den !!! Med fejlkoden:
> > > | Run-time error '-2147217864 (80040e38)':
> > > Row cannot be located for updating. Some values may have been changed
> > since
> > > it was last read.|
> > >
> > > Her er lidt kode....
> > >
> > > 'Koden som skal opdatere MySql Databasens felter
> >
>
> --------------------------------------------------------------------------
> > --
> > > -----------------------
> > > Public Function UpdateStatus(KontoNr As String, ServerIP As String)
> > >
> > > 'frmMain.MySQL.CursorLocation = adUseClient
> > > frmMain.MySQL.Recordset.Update
> > > frmMain.MySQL.Recordset.Update "status", "2"
> > > frmMain.MySQL.Recordset.Update "ipweb", ServerIP
> > > Print #1, Date & " - " & Time & " - " & "MySQL opdateret for " &
KontoNr
> > > frmMain.lstOutPut.AddItem (Date & " - " & Time & " - " & "MySQL
> opdateret
> > > for " & KontoNr)
> > >
> > > End Function
> >
>
> --------------------------------------------------------------------------
> > --
> > > ------------------------
> > > 'Søge-funktionen
> > > Private Sub cmdSearch_Click()
> > > Dim Search As String
> > >
> > > Search = InputBox("Indtast Abonnements Nr")
> > >
> > > frmMain.MySQL.RecordSource = ("SELECT order.*,plads FROM
order,produkter
> > > WHERE placering LIKE ""Home"" AND produkter.id = order.produkt AND
> status
> > =
> > > 1 AND order.nr = " & Search)
> > > frmMain.MySQL.Refresh
> >
>
> --------------------------------------------------------------------------
> > --
> > > -----------------------
> > > --
> > > Med venlig hilsen
> > >
> > > Jerome Erik Thorstenson
> > >
> > >
> >
> >
>
>