AutoIt 操作微軟 Access 資料庫

bestlong

查詢資料

1. $adoCnn = ObjCreate("ADODB.Connection")
   
2. ;$adoCnn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & $dbname) ;MS Access 2003 and lower
   
3. $adoCnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname) ;MS Access 2007 and using the .accdb file extension
   
4. $adoRst = ObjCreate ("ADODB.Recordset")
   
5. $adoRst.CursorType = 1
   
6. $adoRst.LockType = 3
   
7. 
   
8. $adoRst.Open ("select * from mytablename", $adoCnn)
   
9. $title = $adoRst.Fields("title").value    ;Retrieve value by field name
   
10. ;$title = $adoRst.Fields(2).value         ;Retrieve value by column number
    
11. 
    
12. $adoRst.Close
    
13. $adoCnn.Close
    
14. 
    
15. MsgBox(0, "testing", $title)

複製代碼

參考來源 http://www.articlesbase.com/prog ... b-files-971667.html

bestlong

建立 MS Access 資料庫、資料表、資料欄位

1. $dbname = "c:\database.mdb"
   
2. $tblname = "sms"
   
3. $fldname = "tel"
   
4. $format = "Text(10)"
   
5. 
   
6. _CreateDB($dbname)
   
7. _CreateTBL($dbname, $tblname)
   
8. _CreateFLD($dbname, $tblname, $fldname, $format)
   
9. 
   
10. Func _CreateDB($dbname)
    
11.         $newMdb = ObjCreate("ADOX.Catalog")
    
12.         $newMdb.Create( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname & ";Jet Oledb:Database ")
    
13.         $newmdb.ActiveConnection.Close
    
14. EndFunc
    
15. 
    
16. Func _CreateTBL($dbname, $tblname)
    
17.         $addtbl = ObjCreate("ADODB.Connection")
    
18.         $addtbl.Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname & ";Jet Oledb:Database " )
    
19.         $addtbl.Execute("CREATE TABLE " & $tblname)
    
20.         $addtbl.Close
    
21. EndFunc
    
22. 
    
23. Func _CreateFLD($dbname, $tblname, $fldname, $format)
    
24.         $addfld = ObjCreate("ADODB.Connection")
    
25.         $addfld.Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname & ";Jet Oledb:Database " )
    
26.         $addfld.Execute( "ALTER TABLE " & $tblname & " ADD " & $fldname & " " & $format)
    
27.         $addfld.Close
    
28. EndFunc

複製代碼

參考來源 http://itgroup.blueshop.com.tw/boomba/gold?n=convew&i=3486