代碼有點亂，沒有整理。。。。。
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$mdb_data_path="sky.mdb"
$mdb_data_pwd=""
$name="天生我才"
$pass="過去"
$qq=25359272
$e_mail="xtybfgu@163.com"
$T="*"
$tblname="tywb"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("數(shù)據(jù)庫操作例子", 633, 454, 193, 115)
$ListView1 = GUICtrlCreateListView(" ID | 姓名 | 密碼 | QQ | E_mail ", 8, 24, 617, 361)
$Button0 = GUICtrlCreateButton("創(chuàng)建數(shù)據(jù)庫", 20, 408, 97, 25, 0)
$Button1 = GUICtrlCreateButton("寫入1000條數(shù)據(jù)", 130, 408, 130, 25, 0)
$Button2 = GUICtrlCreateButton("更新數(shù)據(jù)", 400, 408, 97, 25, 0)
$Button3 = GUICtrlCreateButton("刪除數(shù)據(jù)",510, 408, 113, 25, 0);280, 408, 113, 25, 0)
$Button4 = GUICtrlCreateButton("讀取數(shù)據(jù)", 280, 408, 113, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;du()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button0
data($mdb_data_path, $tblname)
Case $Button1;寫入
sx()
du()
Case $Button2 ;更新
up()
du()
Case $Button3 ;刪除
del()
du()
Case $Button4 ;讀取
du()
EndSwitch
WEnd
Func du()
GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path)
$RS =ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $addfld
$RS.Open ("Select "&$T & " From " & $tblname )
while Not $RS.eof And Not $RS.bof
if @error =1 Then ExitLoop
GUICtrlCreateListViewItem ( $RS.Fields
(0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields
(2).value&"|"& $RS.Fields (3).value&"|"& $RS.Fields
(4).value,$ListView1 )
; MsgBox(0, "", $RS.Fields (1).value);顯示表第一個數(shù)據(jù)
$rs.movenext
WEnd
$rs.close
$addfld.Close
EndFunc
Func del()
$Strn=GUICtrlRead(GUICtrlRead($ListView1))
$Strnspin=StringSplit($Strn,"|")
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path)
$sQuery ="DELETE FROM " & $tblname & " IN '"
& $mdb_data_path & "' WHERE id" & " = " & $Strnspin[1]
; MsgBox(0,"",$sQuery)
$addfld.execute($sQuery)
$addfld.close
MsgBox(4096, "提示:",$Strnspin[1]&" 刪除成功!!!")
EndFunc
Func up()
$Strn=GUICtrlRead(GUICtrlRead($ListView1))
$Strnspin=StringSplit($Strn,"|")
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path)
$sQuery ="update " & $tblname & " set
name='小黑Sky',pass='good',e_mail='25359272@qq.com' WHERE id" & " = "
& $Strnspin[1]
; MsgBox(0,"",$sQuery)
$addfld.execute($sQuery)
$addfld.close
MsgBox(4096, "提示:",$Strnspin[1]&" 更新成功!!!")
EndFunc
Func sx()
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & $mdb_data_path & ";Jet Oledb:Database Password="
& $mdb_data_pwd)
$x=0
While 1
$x+=1
if $x >1000 Then ExitLoop
$addfld.Execute("insert into tywb
(name,pass,qq,e_mail)
values('"&$name&"','"&$pass&"','"&$qq&"','"&$e_mail&"')")
WEnd
; $conn.Execute("insert into tywb
(name,pass,qq,e_mail)
values('"&$name&"','"&$pass&"','"&$qq&"','"&$e_mail&"')")
; $RS.close
$addfld.close
MsgBox(4096, "提示:"," 成功寫入數(shù)據(jù)庫！")
EndFunc
Func data($mdb_data_path, $tblname)
if not FileExists($mdb_data_path) Then
$newMdb = ObjCreate("ADOX.Catalog")
$newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$newmdb.ActiveConnection.Close;建數(shù)據(jù)庫
$addtbl = ObjCreate("ADODB.Connection")
$addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$addTbl.Execute("CREATE TABLE " & $tblname)
$addtbl.Close;建表
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$addfld.Execute("ALTER TABLE " & $tblname & " ADD id
identity(1, 1) primary key,name char ,pass char ,qq int,e_mail
char");id identity(1, 1) primary key為自動編號和主鍵
$addfld.Close;建列表名
MsgBox(64,"提示","建立數(shù)據(jù)庫成功",5)
Else
MsgBox(64,"提示","你已經(jīng)建立了一個數(shù)據(jù)庫了",5)
EndIf
EndFunc
