AddNew error

[Chinasmoker]

Access database

My script can insert a data,but use AddNew error,

CODE

$dbname = (@DesktopDir & "\db1.mdb")

$tblname = "T1"

$fldname = "F1"

$T = "*"

$addfld = ObjCreate("ADODB.Connection")

$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)

$addfld.Execute("Insert Into "& $tblname &"(F1)" &"values('www')")

$RS =ObjCreate("ADODB.Recordset")

$RS.ActiveConnection = $addfld

$RS.Open ("Select "&$T & " From " & $tblname )

$RS.AddNew

$RS.Fields(1) = "12345"

msgbox(0,"",$RS.Fields(0).Name)

msgbox(0,"",$RS.Fields(0).Value)

$RS.Update

$addfld.Close

[LOULOU]

Access database

My script can insert a data,but use AddNew error,

CODE

$dbname = (@DesktopDir & "\db1.mdb")

$tblname = "T1"

$fldname = "F1"

$T = "*"

$addfld = ObjCreate("ADODB.Connection")

$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)

$addfld.Execute("Insert Into "& $tblname &"(F1)" &"values('www')")

$RS =ObjCreate("ADODB.Recordset")

$RS.ActiveConnection = $addfld

$RS.Open ("Select "&$T & " From " & $tblname )

$RS.AddNew

$RS.Fields(1) = "12345"

msgbox(0,"",$RS.Fields(0).Name)

msgbox(0,"",$RS.Fields(0).Value)

$RS.Update

$addfld.Close

Another approach

CODE

$objconn1 = ObjCreate("ADODB.Connection")

$objrs1 = ObjCreate("ADODB.Recordset")

$objconn1.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & $dbname & ";"

$requete = "Insert Into "& $tblname &"(F1)" &"values('www');"

$objrs1.Open ($requete, $objconn1, $adOpenStatic, $adLockOptimistic)

$requete = "Select * From " & $tblname& ";"

$objrs1.Open ($requete, $objconn1, $adOpenStatic, $adLockOptimistic)

$OBJRS1.AddNew

$objrs1.Fields("F1") = "12345"

$objrs1.Update

msgbox(0,"",$RS.Fields(0).Name)

msgbox(0,"",$RS.Fields(0).Value)

$objrs1=0

$objconn1.close