/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Adodc.RecordSet.Update - Fejl
Fra : Erik Thorstenson - N~


Dato : 12-03-02 11:42

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



 
 
Rayman (12-03-2002)
Kommentar
Fra : Rayman


Dato : 12-03-02 16:57

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
>
>



Jerome Erik Thorsten~ (12-03-2002)
Kommentar
Fra : Jerome Erik Thorsten~


Dato : 12-03-02 18:02

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
> >
> >
>
>



Rayman (17-03-2002)
Kommentar
Fra : Rayman


Dato : 17-03-02 10:58

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
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste