这种数据库操作代码咋写?
本帖最后由 pizigao 于 2010-3-31 15:05 编辑首先读取USER里面所有的数据~所有的数据前面都有一个单选框,可以用来打钩选择,最上面也有一个框用来全选,然后有几个按钮:删除,修改就行了!请大家帮忙~
数据库密码:123456 数据库你给加了密码呀.... 本帖最后由 pizigao 于 2010-3-31 14:57 编辑
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$datename = @ScriptDir & "\data.mdb"
$mdb_data_path = @ScriptDir & "\data.mdb"
If not FileExists($datename) then Exit (Msgbox(16,'错误','未找到DATA.MDB文件,请检查文件名和路径'))
$mdb_data_pwd = "123456"
$tblname = "user"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("批量删除员工信息", 633, 454, 193, 115)
$ListView1 = GUICtrlCreateListView(" ID| 工号| 证照号码 | 姓 名 ", 8, 24, 617, 361)
$Button3 = GUICtrlCreateButton("删除数据",510, 408, 113, 25, 0)
$Button4 = GUICtrlCreateButton("读取数据", 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 $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 & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
$RS =ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $addfld
$RS.Open ("Select * From user" )
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);显示表第一个数据
$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
; MsgBox(0,"",$sQuery)
$addfld.execute($sQuery)
$addfld.close
MsgBox(4096, "提示:",$Strnspin&" 删除成功!!!")
EndFunc 数据库你给加了密码呀....
devineresse 发表于 2010-3-31 14:38 http://www.autoitx.com/images/common/back.gif
123456
pizigao 发表于 2010-3-31 14:55 http://www.autoitx.com/images/common/back.gif
这样写好像读不出来~大概写了一下!其他功能也没加~希望前辈帮我完善一下 afan 不在么? 对数据库没兴趣,所以无视+无知 对数据库没兴趣,所以无视+无知
afan 发表于 2010-3-31 15:23 http://www.autoitx.com/images/common/back.gif
:face (32): 没有其他人知道么 路过,思考下 你自已写的数据库,我用你的代码都打不开,没法帮你。
C:\Documents and Settings\Administrator\??\Data\test2.au3 (95) : ==> ??????(?????).:
$RS.Open ("Select * From user" )
$RS.Open ("Select * From user" )^ ERROR
最简单的"select * from user"都出错。。。你这个数据库有没有建好啊?
另外,界面上的东西,你能做好最好是先做好,那东西虽然不是太复杂,但要做好,也要花时间的。。。
好象很多人时间不是很多。。。 你自已写的数据库,我用你的代码都打不开,没法帮你。
C:\Documents and Settings\Administrator\??\Dat ...
C.L 发表于 2010-4-3 00:12 http://www.autoitx.com/images/common/back.gif
谢谢C.L了
页:
[1]