论坛 › 已解决问题区 › 关于AU3查找access数据库制定数据并导出该行的问题，发现无法导出数据【已解决】

锋城未逾年 发表于 2020-5-10 10:12:50

关于AU3查找access数据库制定数据并导出该行的问题，发现无法导出数据【已解决】

本帖最后由 锋城未逾年 于 2020-5-15 14:36 编辑

最近在学习用au3操作数据库，我想在问本输入框输入5，按下button按钮后，实现查找数据库中sjkd这一列为5的這一行把数据输出到程序的表格中，实现上图的结果。但是发现没有结果输出。郁闷一天了，希望大佬们指导一下，感激不尽！！
源代码：
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
Global $mdb_data_path = "D:\M.mdb"
Global $Main
#region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Form2", 549, 446, 237, 149)
Global $Input1 = GUICtrlCreateInput("", 64, 40, 265, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 352, 32, 145, 41)
Global $ListView1 = GUICtrlCreateListView("好|里|问", 32, 104, 489, 305)
Global $ab = GUICtrlRead($Input1)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

_Ma()
Exit

Func _Ma()
      While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                              Exit
                        Case $Input1
                              If $Button1 Then
                                        Global $am = GUICtrlRead($Input1)
                                        $Main
                                        _Main()
                              Else
                                        Exit
                              EndIf
                EndSwitch
      WEnd
EndFunc   ;==>_Main
Func _Main()
      $addfld = ObjCreate("ADODB.Connection")
      $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=")
      $RS = ObjCreate("ADODB.Recordset")
      $RS.ActiveConnection = $addfld
      $RS.Open("Select * From table WHERE sjkd ='" & $am & "'")
      
      While (Not $RS.eof And Not $RS.bof)
                If @error = 1 Then ExitLoop
                GUICtrlSetData($ListView1, $RS.Fields(0).value)
                $RS.movenext
      WEnd
      $RS.close
      $addfld.Close
      

EndFunc   ;==>_Main

chzj589 发表于 2020-5-10 16:34:51

己建<M.mdb>数据库有问题。
重建一个试试

锋城未逾年 发表于 2020-5-10 16:47:32

代码没有问题？谢谢大佬:face (37):

锋城未逾年 发表于 2020-5-10 16:56:15

chzj589 发表于 2020-5-10 16:34
己建数据库有问题。
重建一个试试

我重建了数据库还是没有数据显示

chzj589 发表于 2020-5-10 19:07:56

锋城未逾年 发表于 2020-5-10 16:56
我重建了数据库还是没有数据显示

有问题，但查不出数据库的问题。
你下载试试看

锋城未逾年 发表于 2020-5-10 19:33:46

chzj589 发表于 2020-5-10 19:07
有问题，但查不出数据库的问题。
你下载试试看

谢谢大佬，太感激了解决了我的问题:face (26):

锋城未逾年 发表于 2020-5-11 09:22:56

chzj589 发表于 2020-5-10 19:07
有问题，但查不出数据库的问题。
你下载试试看

老师您好，我昨天按照你的给的代码有写了一个程序是多个选项卡的也是提取指定数据的行输入到listview中但是发现listview一直在闪动而且没有数据输出，麻烦老师指导一下，谢谢您。:face (37):

锋城未逾年 发表于 2020-5-11 09:23:34

chzj589 发表于 2020-5-10 19:07
有问题，但查不出数据库的问题。
你下载试试看

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <Date.au3>
;~ FileInstall("Data.mdb", @WindowsDir & "\Data.mdb", 1)
Global $mdb_data_path = @ScriptDir & "\Data.mdb"
Global $mdb_data_pwd = ""
Global $Cahuanzx = "table1"
Global $Cahuanzy = "table2"
Global $Cahuanzz = "table3"
Global $Cahuanzu = "table4"
Global $Cahuanzv = "table5"
Dim $main
Dim $jccx
Dim $ldcx
Dim $clcx
Dim $xhps
Dim $jclength
Dim $oExcel
Dim $time
Dim $time1
Dim $time2
Dim $timearray1
Dim $timearray2
Dim $nMs
#region ### START Koda GUI section ### Form=D:\我的文件\Documents\软著\交通运输工程大数据管理\Form2.kxf
Global $Form2 = GUICreate("交通运输工程大数据管理", 775, 677, 170, 138)
Global $MenuItem4 = GUICtrlCreateMenu("数据输出(&X)")
Global $MenuItem6 = GUICtrlCreateMenuItem("输出到Excel", $MenuItem4)
Global $MenuItem5 = GUICtrlCreateMenuItem("输出到Excel并打印", $MenuItem4)
Global $MenuItem1 = GUICtrlCreateMenu("数据处理(&Y)")
Global $MenuItem2 = GUICtrlCreateMenuItem("备份数据库", $MenuItem1)
Global $MenuItem7 = GUICtrlCreateMenu("退出(&Z)")
;~ GUICtrlCreateTab(40, 48, 660, 560)
Global $main = GUICtrlCreateTab(40, 48, 660, 560)
Global $TabSheet1 = GUICtrlCreateTabItem("交叉口查询")
Global $Group2 = GUICtrlCreateGroup("交叉口查询", 56, 136, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Input2 = GUICtrlCreateInput("", 240, 168, 329, 23)
Global $Button2 = GUICtrlCreateButton("查询", 592, 168, 75, 25)
Global $Label1 = GUICtrlCreateLabel("请输入交叉口名称", 96, 168, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("查询结果", 56, 280, 625, 273)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $ListView1 = GUICtrlCreateListView("交叉口名称|道路等级|相位", 96, 312, 553, 201, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 1, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 2, 2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $TabSheet2 = GUICtrlCreateTabItem("路段查询")
Global $Group5 = GUICtrlCreateGroup("路段查询", 54, 88, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button4 = GUICtrlCreateButton("查询", 590, 120, 75, 25)
Global $Label3 = GUICtrlCreateLabel("请输入路段名称", 94, 120, 116, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input4 = GUICtrlCreateInput("Input4", 240, 120, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView4 = GUICtrlCreateListView("路段名称|车道数|道路交通量", 72, 200, 601, 401, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $TabSheet3 = GUICtrlCreateTabItem("车辆查询")
Global $Group7 = GUICtrlCreateGroup("车辆查询", 46, 100, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button1 = GUICtrlCreateButton("查询", 582, 132, 75, 25)
Global $Label7 = GUICtrlCreateLabel("请输入交叉口名称", 86, 132, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input6 = GUICtrlCreateInput("Input6", 232, 128, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView2 = GUICtrlCreateListView("交叉口名称|进口1|进口2|进口3|进口4", 48, 200, 633, 385, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $TabSheet4 = GUICtrlCreateTabItem("信号配时查询")
Global $Group4 = GUICtrlCreateGroup("交叉口查询", 61, 100, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button3 = GUICtrlCreateButton("查询", 605, 124, 75, 25)
Global $Label2 = GUICtrlCreateLabel("请输入交叉口名称", 101, 132, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input3 = GUICtrlCreateInput("Input3", 248, 128, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView5 = GUICtrlCreateListView("交叉口名称|绿灯时长|黄灯时长|红灯时长|周期", 64, 208, 625, 401, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $TabSheet5 = GUICtrlCreateTabItem("交叉口排队长度查询")
Global $Group6 = GUICtrlCreateGroup("交叉口查询", 61, 88, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button5 = GUICtrlCreateButton("查询", 605, 120, 75, 25)
Global $Label4 = GUICtrlCreateLabel("请输入交叉口名称", 101, 120, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input5 = GUICtrlCreateInput("Input5", 240, 120, 353, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView3 = GUICtrlCreateListView("交叉口名称|排队长度|延误时长", 56, 184, 633, 417, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 240)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")
Global $Group1 = GUICtrlCreateGroup("浏览", 96, 0, 569, 49)
Global $Label5 = GUICtrlCreateLabel("当前数据库", 112, 16, 84, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput($mdb_data_path, 200, 16, 249, 21)
Global $Button6 = GUICtrlCreateButton("请选择数据库", 464, 16, 177, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###



While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                       
                Case $GUI_EVENT_CLOSE
                        ex()
                Case $MenuItem7
                        ex()
                Case $MenuItem2
                        backup()
                Case $MenuItem6
                        print()
                Case $MenuItem5
                        print()
                        Send("^p")
                Case $Button6
                        choose_data()
                Case $Button2
                        Global $am = GUICtrlRead($Input2)
                        jccx()
                Case $Button4
                        ldcx()
                Case $Button1
                        clcx()
                Case $Button3
                        xhps()
                Case $Button5
                        jclength()


        EndSwitch
WEnd

Func choose_data()
        $datadir = FileOpenDialog("请选择数据库文件", @WindowsDir & "\", "ACCESS数据库文件(*.mdb)", 3)
        If Not FileExists($mdb_data_path) Or StringRight($datadir, 3) <> "mdb" Then
                MsgBox(64, "提示", "所选择的文件错误,请重新选择.后缀名需为(.mdb)")
                $mdb_data_path = "database\交通.mdb"
                GUICtrlSetData($Input1, $mdb_data_path)
        EndIf
        GUICtrlSetData($Input1, $mdb_data_path)

EndFunc   ;==>choose_data

Func print()
        Switch GUICtrlRead($main)
                Case 1
                        $listview = $ListView1
                Case 2
                        $listview = $ListView2
                Case 3
                        $listview = $ListView3
                Case 4
                        $listview = $ListView4
                Case Else
                        $listview = $ListView5
        EndSwitch
        $excnum = _GUICtrlListView_GetItemCount($listview)
        If $excnum = 0 Then
                MsgBox(64, "提示", "没有记录可被输出.")
        Else
                Local $oExcel = _ExcelBookNew(1)
                For $y = 0 To $excnum
                        $excret = _GUICtrlListView_GetItemTextString($listview, $y)
                        $excarray = StringSplit($excret, "|")
                        For $x = 0 To $excarray
                                _ExcelWriteCell($oExcel, $excarray[$x], $y + 2, $x)
                        Next
                Next
        EndIf
EndFunc   ;==>print

Func jccx()
        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 " & $Cahuanzx & " WHERE name ='" & $am & "'")
           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, $ListView1)
                   $RS.movenext
           WEnd
           $RS.close
           $addfld.Close

   EndFunc   ;==>jccx


Func ldcx()
                GUICtrlSendMsg($ListView4, $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 " & $Cahuanzy & " WHERE section ='" & $Input4 & "'")
                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, $ListView4)
                        $RS.movenext
                WEnd
                $RS.close
                $addfld.Close

EndFunc   ;==>ldcx

Func clcx()
                GUICtrlSendMsg($ListView2, $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 " & $Cahuanzz & " WHERE name ='" & $Input6 & "'")
                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, $ListView2)
                        $RS.movenext
                WEnd
                $RS.close
                $addfld.Close

EndFunc   ;==>clcx


Func xhps()
                GUICtrlSendMsg($ListView5, $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 " & $Cahuanzu & " WHERE name ='" & $Input3 & "'")
                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, $ListView5)
                        $RS.movenext
                WEnd
                $RS.close
                $addfld.Close
EndFunc   ;==>xhps

Func jclength()
                GUICtrlSendMsg($ListView3, $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 " & $Cahuanzv & " WHERE name ='" & $Input5 & "'")
                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, $ListView3)
                        $RS.movenext
                WEnd
                $RS.close
                $addfld.Close

EndFunc   ;==>jclength

Func ex()
        $answer = MsgBox(1, "提示", "确定要退出本程序吗？")
        If $answer = 1 Then
                FileDelete($mdb_data_path)
                Exit
        Else
        EndIf
EndFunc   ;==>ex

Func backup()
        $answer = MsgBox(1, "提示", "确定要备份数据库吗？")
        If $answer = 1 Then
                $time1 = _NowCalcDate()
                $time2 = _NowTime()
                $timearray1 = StringSplit($time1, "/")
                $timearray2 = StringSplit($time2, ":")
                $time = $timearray1 & $timearray1 & $timearray1 & $timearray2 & $timearray2
                DirCreate(@ScriptDir & "\dbback\")
                FileCopy($mdb_data_path, @ScriptDir & "\dbback\" & $time & "\公交.mdb", 8)
                MsgBox(0, "提示", "数据库已被备份到DBBACK目录下" & $time & "文件中.")
        Else
        EndIf
EndFunc   ;==>backup

chzj589 发表于 2020-5-11 10:01:04

锋城未逾年 发表于 2020-5-11 09:23
#include
#include
#include


数据库没建全，看不出问题

锋城未逾年 发表于 2020-5-11 10:02:18

chzj589 发表于 2020-5-11 10:01
数据库没建全，看不出问题

:face (37):好的谢谢老师

kk_lee69 发表于 2020-5-11 11:08:46

锋城未逾年 发表于 2020-5-11 10:02
好的谢谢老师

就你的處理方式 來說首先

1. 資料庫存在是5 2 0 但是你抓取的時候 GUICtrlSetData($ListView1, $RS.Fields(0).value)

$RS.Fields(0).value 只是 5   我記得 LISTVIEW   賦直 是要   $item1 = GUICtrlCreateListViewItem ("项目 2|列22|列23", $listview)

至少也是 5|2|0吧

kk_lee69 发表于 2020-5-11 11:09:42

锋城未逾年 发表于 2020-5-11 10:02
好的谢谢老师
後來的語法就對了
GUICtrlCreateListViewItem($RS.Fields(0).value & "|" & $RS.Fields(1).value & "|" & $RS.Fields(2).value, $ListView1)

所以你現在最後遇到的問題是???

锋城未逾年 发表于 2020-5-11 13:19:19

kk_lee69 发表于 2020-5-11 11:09
後來的語法就對了
GUICtrlCreateListViewItem($RS.Fields(0).value & "|" & $RS.Fields(1).value & "| ...

老师，我现在运行这个程序是怎么发现那个listview框一直在闪动，没有数据显示我很晕，数据库也重建了

chzj589 发表于 2020-5-11 14:00:53

锋城未逾年 发表于 2020-5-11 13:19
老师，我现在运行这个程序是怎么发现那个listview框一直在闪动，没有数据显示我很晕，数据库也重建了

你的数据库里没数据，怎么读取？？？
只有表 "table1"里有三行数据

chzj589 发表于 2020-5-11 14:08:39

锋城未逾年 发表于 2020-5-11 13:19
老师，我现在运行这个程序是怎么发现那个listview框一直在闪动，没有数据显示我很晕，数据库也重建了


#AutoIt3Wrapper_UseX64 = n
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <Date.au3>
;~ FileInstall("Data.mdb", @WindowsDir & "\Data.mdb", 1)
Global $mdb_data_path = @ScriptDir & "\Data.mdb"
Global $mdb_data_pwd = ""
Global $Cahuanzx = "table1";"table1"
Global $Cahuanzy = "table2"
Global $Cahuanzz = "table3"
Global $Cahuanzu = "table4"
Global $Cahuanzv = "table5"
Dim $main
Dim $jccx
Dim $ldcx
Dim $clcx
Dim $xhps
Dim $jclength
Dim $oExcel
Dim $time
Dim $time1
Dim $time2
Dim $timearray1
Dim $timearray2
Dim $nMs
#Region ### START Koda GUI section ### Form=D:\我的文件\Documents\软著\交通运输工程大数据管理\Form2.kxf
Global $Form2 = GUICreate("交通运输工程大数据管理", 775, 677, 170, 138)
Global $MenuItem4 = GUICtrlCreateMenu("数据输出(&X)")
Global $MenuItem6 = GUICtrlCreateMenuItem("输出到Excel", $MenuItem4)
Global $MenuItem5 = GUICtrlCreateMenuItem("输出到Excel并打印", $MenuItem4)
Global $MenuItem1 = GUICtrlCreateMenu("数据处理(&Y)")
Global $MenuItem2 = GUICtrlCreateMenuItem("备份数据库", $MenuItem1)
Global $MenuItem7 = GUICtrlCreateMenu("退出(&Z)")
;~ GUICtrlCreateTab(40, 48, 660, 560)
Global $main = GUICtrlCreateTab(40, 48, 660, 560)
Global $TabSheet1 = GUICtrlCreateTabItem("交叉口查询")
Global $Group2 = GUICtrlCreateGroup("交叉口查询", 56, 136, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Input2 = GUICtrlCreateInput("", 240, 168, 329, 23)
Global $Button2 = GUICtrlCreateButton("查询", 592, 168, 75, 25)
Global $Label1 = GUICtrlCreateLabel("请输入交叉口名称", 96, 168, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("查询结果", 56, 280, 625, 273)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $ListView1 = GUICtrlCreateListView("交叉口名称|道路等级|相位", 96, 312, 553, 201, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 1, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 2, 2)
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $TabSheet2 = GUICtrlCreateTabItem("路段查询")
Global $Group5 = GUICtrlCreateGroup("路段查询", 54, 88, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button4 = GUICtrlCreateButton("查询", 590, 120, 75, 25)
Global $Label3 = GUICtrlCreateLabel("请输入路段名称", 94, 120, 116, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input4 = GUICtrlCreateInput("Input4", 240, 120, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView4 = GUICtrlCreateListView("路段名称|车道数|道路交通量", 72, 200, 601, 401, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $TabSheet3 = GUICtrlCreateTabItem("车辆查询")
Global $Group7 = GUICtrlCreateGroup("车辆查询", 46, 100, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button1 = GUICtrlCreateButton("查询", 582, 132, 75, 25)
Global $Label7 = GUICtrlCreateLabel("请输入交叉口名称", 86, 132, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input6 = GUICtrlCreateInput("Input6", 232, 128, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView2 = GUICtrlCreateListView("交叉口名称|进口1|进口2|进口3|进口4", 48, 200, 633, 385, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $TabSheet4 = GUICtrlCreateTabItem("信号配时查询")
Global $Group4 = GUICtrlCreateGroup("交叉口查询", 61, 100, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button3 = GUICtrlCreateButton("查询", 605, 124, 75, 25)
Global $Label2 = GUICtrlCreateLabel("请输入交叉口名称", 101, 132, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input3 = GUICtrlCreateInput("Input3", 248, 128, 337, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView5 = GUICtrlCreateListView("交叉口名称|绿灯时长|黄灯时长|红灯时长|周期", 64, 208, 625, 401, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $TabSheet5 = GUICtrlCreateTabItem("交叉口排队长度查询")
Global $Group6 = GUICtrlCreateGroup("交叉口查询", 61, 88, 633, 89)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Button5 = GUICtrlCreateButton("查询", 605, 120, 75, 25)
Global $Label4 = GUICtrlCreateLabel("请输入交叉口名称", 101, 120, 132, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input5 = GUICtrlCreateInput("Input5", 240, 120, 353, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ListView3 = GUICtrlCreateListView("交叉口名称|排队长度|延误时长", 56, 184, 633, 417, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 240)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")
Global $Group1 = GUICtrlCreateGroup("浏览", 96, 0, 569, 49)
Global $Label5 = GUICtrlCreateLabel("当前数据库", 112, 16, 84, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput($mdb_data_path, 200, 16, 249, 21)
Global $Button6 = GUICtrlCreateButton("请选择数据库", 464, 16, 177, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg

                Case $GUI_EVENT_CLOSE
                        ex()
                Case $MenuItem7
                        ex()
                Case $MenuItem2
                        backup()
                Case $MenuItem6
                        print()
                Case $MenuItem5
                        print()
                        Send("^p")
                Case $Button6
                        choose_data()
                Case $Button2
                        Global $am = GUICtrlRead($Input2)
                        jccx()
                Case $Button4
                        ldcx()
                Case $Button1
                        clcx()
                Case $Button3
                        xhps()
                Case $Button5
                        jclength()


        EndSwitch
WEnd

Func choose_data()
        $datadir = FileOpenDialog("请选择数据库文件", @ScriptDir & "\", "ACCESS数据库文件(*.mdb)", 3);@WindowsDir &
        If Not FileExists($mdb_data_path) Or StringRight($datadir, 3) <> "mdb" Then
                MsgBox(64, "提示", "所选择的文件错误,请重新选择.后缀名需为(.mdb)")
                $mdb_data_path = "database\交通.mdb"
                GUICtrlSetData($Input1, $datadir)
        EndIf
        GUICtrlSetData($Input1, $datadir)

EndFunc   ;==>choose_data

Func print()
        Switch GUICtrlRead($main)
                Case 1
                        $listview = $ListView1
                Case 2
                        $listview = $ListView2
                Case 3
                        $listview = $ListView3
                Case 4
                        $listview = $ListView4
                Case Else
                        $listview = $ListView5
        EndSwitch
        $excnum = _GUICtrlListView_GetItemCount($listview)
        If $excnum = 0 Then
                MsgBox(64, "提示", "没有记录可被输出.")
        Else
                ;Local $oExcel = _ExcelBookNew(1)
                For $y = 0 To $excnum
                        $excret = _GUICtrlListView_GetItemTextString($listview, $y)
                        $excarray = StringSplit($excret, "|")
                        For $x = 0 To $excarray
                                ;_ExcelWriteCell($oExcel, $excarray[$x], $y + 2, $x)
                        Next
                Next
        EndIf
EndFunc   ;==>print

Func jccx()
        $am = GUICtrlRead($Input2)
        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 " & $Cahuanzx & " WHERE AA1='" & $am & "'")
        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, $ListView1)
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close

EndFunc   ;==>jccx


Func ldcx()
        $am = GUICtrlRead($Input4)
        GUICtrlSendMsg($ListView4, $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 " & $Cahuanzx & " WHERE AA1='" & $am & "'")
        ;$RS.Open("Select * From " & $Cahuanzy & " WHERE section ='" & $Input4 & "'")
        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, $ListView4)
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close

EndFunc   ;==>ldcx

Func clcx()
        $am = GUICtrlRead($Input6)
        GUICtrlSendMsg($ListView2, $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 " & $Cahuanzx & " WHERE AA1='" & $am & "'")
        ;$RS.Open("Select * From " & $Cahuanzz & " WHERE name ='" & $Input6 & "'")
        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, $ListView2)
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close

EndFunc   ;==>clcx


Func xhps()
        $am = GUICtrlRead($Input3)
        GUICtrlSendMsg($ListView5, $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 " & $Cahuanzx & " WHERE AA1='" & $am & "'")
        ;$RS.Open("Select * From " & $Cahuanzu & " WHERE name ='" & $Input3 & "'")
        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, $ListView5)
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close
EndFunc   ;==>xhps

Func jclength()
        $am = GUICtrlRead($Input5)
        GUICtrlSendMsg($ListView3, $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 " & $Cahuanzx & " WHERE AA1='" & $am & "'")
        ;$RS.Open("Select * From " & $Cahuanzv & " WHERE name ='" & $Input5 & "'")
        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, $ListView3)
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close

EndFunc   ;==>jclength

Func ex()
        $answer = MsgBox(1, "提示", "确定要退出本程序吗？")
        If $answer = 1 Then
                ;FileDelete($mdb_data_path)
                Exit
        Else
        EndIf
EndFunc   ;==>ex

查看完整版本: 关于AU3查找access数据库制定数据并导出该行的问题，发现无法导出数据【已解决】