VBA met MySQL

[phmjs]

Hallo,

Ik heb een probleem waar ik tegen aan loop. Ik ben al een paar dagen aan het zoeken en ik zie het niet meer.

Ik heb de volgende VBcode

Dim DbPath As String
Dim Slash As String

DbPath = "DRIVER={MySQL ODBC 5.1 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=wozoco;" _
& "UID=root;" _
& "PWD=;" _
& "OPTION=3"

Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Db.Open DbPath
Rs.ActiveConnection = Db
Rs.CursorType = adOpenKeyset 
Rs.LockType = adLockOptimistic 
Rs.Source = "dom" 'Naam Tabel

Rs.Open

Rs.AddNew 
Rs!actie = "test" 
Rs.Update 
Rs.Close 
Set Rs = Nothing
Db.Close
Set Db = Nothing

De data wordt in de volgende database opgeslagen:

CREATE TABLE `dom` (
  `id` int(10) NOT NULL,
  `actie` longtext NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Ik krijg de volgende fout:

Run-time error '-2147467259 (80004005)'
[MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]
Column actie cannot be null

Waat gaat er nu fout en hoe kan ik dit oplossen?

Alvast bedankt.

 

[JHx]

Verander dit

Rs!actie = "test"

eens naar dit

Rs.Fields(1) = "test"

of dit

Rs.Fields("actie") = "test"

[edit]
Ik zie ook juist dat je geen waarde toekent aan het veld "id" terwijl dit toch "NOT NULL" is en geen "AUTOINCREMENT"...
Hoewel dat niet overeen komt met de fotmelding die je krijgt, denk ik toch dat dat ook voor problemen zal zorgen!
[/edit]