bestlong 怕失憶論壇
標題:
AutoIt 操作微軟 Access 資料庫
[打印本頁]
作者:
bestlong
時間:
2011-3-3 16:19
標題:
AutoIt 操作微軟 Access 資料庫
查詢資料
$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)
複製代碼
參考來源
http://www.articlesbase.com/prog ... b-files-971667.html
作者:
bestlong
時間:
2011-3-3 16:22
建立 MS Access 資料庫、資料表、資料欄位
$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
複製代碼
參考來源
http://itgroup.blueshop.com.tw/boomba/gold?n=convew&i=3486
歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)
Powered by Discuz! X1.5