modify the value of a field

[Chinasmoker]

Maybe this topic 's no connection with au3,but if I cannt solve this trouble,that stand for my script 's no way to be continue,however,I must resolve it ,ok,talking my script,I use "addnew" to modify it ,but reture error

the initial value is null

below my script:

CODE

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

$tblname = "T1"

$fldname = "F1"

$T = "*"

_SelectData($dbname, $tblname, $fldname, $T)

Func _SelectData($dbname, $tblname, $fldname, $T)

$addfld = ObjCreate("ADODB.Connection")

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

$RS =ObjCreate("ADODB.Recordset")

$RS.ActiveConnection = $addfld

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

$RS.AddNew

$RS.Fields(0).Value = "12345";

$rs.Post

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

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

$addfld.Close

EndFunc

Edited November 19, 2007 by Chinasmoker

[martin]

Maybe this topic 's no connection with au3,but if I cannt solve this trouble,that stand for my script 's no way to be continue,however,I must resolve it ,ok,talking my script,I use "addnew" to modify it ,but reture error

the initial value is null

below my script:

CODE

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

$tblname = "T1"

$fldname = "F1"

$T = "*"

_SelectData($dbname, $tblname, $fldname, $T)

Func _SelectData($dbname, $tblname, $fldname, $T)

$addfld = ObjCreate("ADODB.Connection")

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

$RS =ObjCreate("ADODB.Recordset")

$RS.ActiveConnection = $addfld

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

$RS.AddNew

$RS.Fields(0).Value = "12345";

$rs.Post

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

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

$addfld.Close

EndFunc

Maybe this helps

[Chinasmoker]

Maybe this helps

Thanks,just according that method,my script still error,and my script's running until go this line of "Addnew"

[Chinasmoker]

-_-Help me