autoit 数据库操作实例.doc

2009-10-29 17:38$dbname=test.mdb $tblname=测试表 $fldname=测试字段 $format=int $sData=123456 $T=* _CreateDB($dbname) _CreateTBL($dbname, $tblname) _CreateFLD($dbname, $tblname, $fldname, $format) ;_InsertData($dbname, $tblname, $fldname, $sData) ;_DeleteData($dbname, $tblname, $fldname, $sData) _SelectData($dbname, $tblname, $fldname, $T) Func _CreateDB($dbname) $newMdb = ObjCreate(ADOX.Catalog) $newMdb.Create(Provider=Microsoft.Jet.OLEDB.4.0; Data Source= $dbname) $newmdb.ActiveConnection.Close EndFunc Func _CreateTBL($dbname, $tblname) $addtbl = ObjCreate(ADODB.Connection) $addTbl.Open(Provider=Microsoft.Jet.OLEDB.4.0; Data Source= $dbname) $addTbl.Execute(CREATE TABLE $tblname) $addtbl.Close EndFunc Func _CreateFLD($dbname, $tblname, $fldname, $format) $addfld = ObjCreate(ADODB.Connection) $addfld.Open(Provider=Microsoft.Jet.OLEDB.4.0; Data Source= $dbname) $addfld.Execute(ALTER TABLE $tblname ADD $fldname $format) $addfld.Close EndFunc Func _InsertData($dbname, $tblname, $fldname, $sData) $addfld = ObjCreate(ADODB.Connection) $addfld.Open(Provider=Microsoft.Jet.OLEDB.4.0; Data Source= $dbname) $addfld.Execute(Insert Into $tblname ( $fldname ) VALUES ($sData)) $addfld.Close EndFunc Func _DeleteData($dbname, $tblname, $fldname, $sData) $addfld = ObjCreate(ADODB.Connection) $addfld.Open(Provider=Microsoft.Jet.OLEDB.4.0; Data Source= $dbname) $addfld.Execute(Delete From $tblname Where $fldname = $sData) $addfld.Close EndFunc 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 ) msgbox(0,,$RS.Fields(0).Name) msgbox(0,,$RS.Fields(0).Value) $addfld.Close EndFunc 以下是循环读取表记录的例子 $tempData= while not $rs.eof and not $rs.bof if @error =1 Then ExitLoop $tempData=$tempData($RS.Fields(value).Value)| $rs.movenext WEnd 几个自定义函数都是通过ObjCreate(ADODB.Con