AutoIt 操作微軟 Access 資料庫
查詢資料[code]$adoCnn = ObjCreate("ADODB.Connection")
;$adoCnn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & $dbname) ;MS Access 2003 and lower
$adoCnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname) ;MS Access 2007 and using the .accdb file extension
$adoRst = ObjCreate ("ADODB.Recordset")
$adoRst.CursorType = 1
$adoRst.LockType = 3
$adoRst.Open ("select * from mytablename", $adoCnn)
$title = $adoRst.Fields("title").value ;Retrieve value by field name
;$title = $adoRst.Fields(2).value ;Retrieve value by column number
$adoRst.Close
$adoCnn.Close
MsgBox(0, "testing", $title)
[/code]參考來源 [url]http://www.articlesbase.com/programming-articles/autoitconnect-to-access-databasesmdb-accdb-files-971667.html[/url] 建立 MS Access 資料庫、資料表、資料欄位[code]
$dbname = "c:\database.mdb"
$tblname = "sms"
$fldname = "tel"
$format = "Text(10)"
_CreateDB($dbname)
_CreateTBL($dbname, $tblname)
_CreateFLD($dbname, $tblname, $fldname, $format)
Func _CreateDB($dbname)
$newMdb = ObjCreate("ADOX.Catalog")
$newMdb.Create( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname & ";Jet Oledb:Database ")
$newmdb.ActiveConnection.Close
EndFunc
Func _CreateTBL($dbname, $tblname)
$addtbl = ObjCreate("ADODB.Connection")
$addtbl.Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname & ";Jet Oledb:Database " )
$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 & ";Jet Oledb:Database " )
$addfld.Execute( "ALTER TABLE " & $tblname & " ADD " & $fldname & " " & $format)
$addfld.Close
EndFunc
[/code]參考來源 [url]http://itgroup.blueshop.com.tw/boomba/gold?n=convew&i=3486[/url]
頁:
[1]