易语言的论坛上找到连接的方法,但是找不到读写的方法。$mdb=@ScriptDir&"\数据库文件.mdb"
$Database=@ScriptDir&"\MDW文件.MDW"
$userid="datamaintain"
$userPassword="wxwgisyigfzlsndcscp"
$mdbpwd="zhrmghg1949jgqz"
$sCardID="123456789"
$k=""
$cRemain="¥10.00"
$sType="计费卡"
$sCardType="身份证"
$dtTime="2010-09-27 17:24:37"
$iState="0"
$T="*"
$tblname="tTmpCard"
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID="&$userid&";Password="&$userPassword&";Data Source="&$mdb&";Persist Security Info=False;Jet OLEDB:System Database="&$Database&";Jet Oledb:Database Password="&$mdbpwd)
$addfld.Execute("insert into tywb (sCardID,sIDCard,sMemo,cRemain,sType,iRest,sCardType,sName,dtTime,iState,sfixOpt,sPwd) values('"&$sCardID&"','"&$k&"','"&$k&"','"&$cRemain&"','"&$sType&"','"&$k&"','"&$sCardType&"','"&$k&"','"&$dtTime&"','"&$iState&"','"&$k&"','"&$k&"')")
$addfld.close
MsgBox(4096, "提示:","成功写入数据库!")
|