Post by just me » 26 Jan 2017, 12:12
Mit etwas Glück (nicht getestet):
Code: Select all
#NoEnv
conn := ComObjCreate("ADODB.Connection")
conn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=G:\apps\COMMERCI\DBASE\GENERAL\Agent.mdb;")
rs := conn.Execute("SELECT Agent.Agent, Agent.Nom FROM Agent WHERE (((Agent.Nom) Like "*feyde*"));")
; --------------------------------------------------------------------------------------------------
Gui, Add, ListView, w800 r20 +Grid
Fields := rs.Fields
Columns := rs.Count
Loop % Columns ; Header
LV_InsertCol(A_Index, , Fields.Item(A_Index - 1).Name)
While !(rs.EOF) { ; Rows
Row := []
Row.SetCapacity(Columns)
Loop % Columns
Row[A_Index] := Fields.Item(A_Index - 1).Value
LV_Add("", Row*)
rs.MoveNext()
}
Loop, % LV_GetCount("Column")
LV_ModifyCol(A_Index, "AutoHdr")
; --------------------------------------------------------------------------------------------------
rs.Close(), rs := ""
conn.Close(), conn := ""
; --------------------------------------------------------------------------------------------------
Gui, Show, , Ergebnis
Return
GuiClose:
ExitApp
Mit etwas Glück (nicht getestet):
[code]#NoEnv
conn := ComObjCreate("ADODB.Connection")
conn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=G:\apps\COMMERCI\DBASE\GENERAL\Agent.mdb;")
rs := conn.Execute("SELECT Agent.Agent, Agent.Nom FROM Agent WHERE (((Agent.Nom) Like "*feyde*"));")
; --------------------------------------------------------------------------------------------------
Gui, Add, ListView, w800 r20 +Grid
Fields := rs.Fields
Columns := rs.Count
Loop % Columns ; Header
LV_InsertCol(A_Index, , Fields.Item(A_Index - 1).Name)
While !(rs.EOF) { ; Rows
Row := []
Row.SetCapacity(Columns)
Loop % Columns
Row[A_Index] := Fields.Item(A_Index - 1).Value
LV_Add("", Row*)
rs.MoveNext()
}
Loop, % LV_GetCount("Column")
LV_ModifyCol(A_Index, "AutoHdr")
; --------------------------------------------------------------------------------------------------
rs.Close(), rs := ""
conn.Close(), conn := ""
; --------------------------------------------------------------------------------------------------
Gui, Show, , Ergebnis
Return
GuiClose:
ExitApp[/code]