Fejl i opdatering af database
Jeg har en simpel MySQL tabel (news), med flg. colonner:NewsID int(30)
NewsDate date
Title varchar(30)
Subject mediumblop
Article mediumblop
Jeg har flg. code i VB :
Sub AddArticle()
Dim rsl As New ADODB.Recordset
With rsl
.Open "Select * from News", CONNECTION, adOpenDynamic, adLockOptimistic
.MoveLast
.AddNew
End With
rsl!NewsID = LastNewsNo + 1
rsl!NewsDate = Now()
rsl!Title = frmDoNews.txtTitle.Text (*NOTE)
rsl!Subject = frmDoNews.txtSubject.Text
rsl!Article = frmDoNews.txtArticle.Text
With rsl
.Update
.Close
End With
GetNews
End Sub
Når jeg kører denne kode kommer VB med en fejl :
"Multi-step OLE DB operation genereted errors. Check each OLE DB status value, if available. No work was done".
Debuggeren stopper i koden, hvor jeg har skrevet "NOTE".
txtTitle, txtSubject og txtArticle er textboxe, med passende maxlengt (dvs. title > 34, txtsubject & txtarticle > 1.677.000).
Okay, hvor har jeg dummet mig ????
Mvh
Martin
