这种数据库操作代码咋写？

pizigao

首先读取USER里面所有的数据~所有的数据前面都有一个单选框，可以用来打钩选择，最上面也有一个框用来全选，然后有几个按钮：删除，修改就行了！请大家帮忙~

数据库密码：123456

devineresse

数据库你给加了密码呀．．．．

pizigao

#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[1] 
         ; MsgBox(0,"",$sQuery)
           $addfld.execute($sQuery)
           $addfld.close
 MsgBox(4096, "提示:",$Strnspin[1]&"    删除成功!!!")

EndFunc

pizigao

数据库你给加了密码呀．．．．
devineresse 发表于 2010-3-31 14:38

123456

pizigao

pizigao 发表于 2010-3-31 14:55

这样写好像读不出来~大概写了一下！其他功能也没加~希望前辈帮我完善一下

pizigao

afan 不在么？

afan

对数据库没兴趣，所以无视+无知

pizigao

对数据库没兴趣，所以无视+无知
afan 发表于 2010-3-31 15:23

pizigao

没有其他人知道么

helpback

路过，思考下

C.L

你自已写的数据库，我用你的代码都打不开，没法帮你。

C:\Documents and Settings\Administrator\??\Data\test2.au3 (95) : ==> ??????(?????).:
$RS.Open ("Select * From user" )
$RS.Open ("Select * From user" )^ ERROR

最简单的"select * from user"都出错。。。你这个数据库有没有建好啊？
另外，界面上的东西，你能做好最好是先做好，那东西虽然不是太复杂，但要做好，也要花时间的。。。
好象很多人时间不是很多。。。

pizigao

你自已写的数据库，我用你的代码都打不开，没法帮你。

C:\Documents and Settings\Administrator\??\Dat ...
C.L 发表于 2010-4-3 00:12

谢谢C.L了