Automatically export database table to .csv or .txt file

[Martin_Martin]

Hello,

I am beginner in this and I am trying to create an .exe file, which I can call with my Powershell script. This file is supposed to read query in database, select it and automatically export into .csv file or at least .txt file. Problem is, that it is not working for me. Can someone help me ? With MessageBox it is working (but I can not do it with MSGbox because this script must work in Point of sale terminal on real stations and customer can not see this), but I really do not know how FileWrite works. Here is the code:
Any help will be appretiated. Thank you very much
 

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <Array.au3>
#include <File.au3>
#include <Constants.au3>
#include <Logging.au3>
#include <WinAPIFiles.au3>

Global $Select = "select * from storeandforward where rownum < 8 order by creationtime desc ;", $conn
Global $RecordSet, $Data

$conn = ObjCreate( "ADODB.Connection" )
   $DSN = "DSN=" & "DB" & ";" & "Uid=db2" & ";" & "Pwd=" & "db2"
   $conn.Open($DSN)
   $rs = ObjCreate( "ADODB.RecordSet" )
    If @error Then
         Return "Failed to create Object; (""ADODB.Connection"")"
    EndIf

$RecordSet = $conn.Execute($Select)
$Data = $RecordSet.GetRows

#_ArrayDisplay($Data)

$conn.close

Edited April 20, 2022 by Martin_Martin

[Danyfirex]

You can use _FileWriteFromArray

 

Saludos

[mLipok]

I would like to recomend you to use  * ADO.au3 UDF *

btw

2️⃣4️⃣um

[jchd]

You can easily export the result of any SELECT statement in many formats, among them csv.

Say you create an SQLite database named Example.sq3 with a table Sample defined thusly CREATE TABLE Sample (Key CHAR, Value INT);

Say you load it with some data:
INSERT INTO Sample VALUES ('a',1), ('c',3), ('b',2), ('z',26), ('y',25), ('x',24);

You can dump the table Sample in .CSV format using this, for instance:

Local $sstr  ; actually dummy here
_SQLite_SQLiteExe("Example.sq3", _
    ".mode csv" & @CRLF & _
    ".headers on" & @CRLF & _
    ".output sample.csv" & @CRLF & _
    "select * from Sample order by key;" & @CRLF & _
    ".quit", $sStr)

; Check the result created
ConsoleWrite(FileRead("sample.csv"))

You can use any complicated SELECT you need. Familiarize yourself with all the flexibility offered by the CLI (sqlite3.exe). Using the latest version from sqlite.org will bring you most.

BTW the .mode command lets you choose a number of output formats:
sqlite> .help mode
.mode MODE ?OPTIONS?     Set output mode
   MODE is one of:
     ascii       Columns/rows delimited by 0x1F and 0x1E
     box         Tables using unicode box-drawing characters
     csv         Comma-separated values
     column      Output in columns.  (See .width)
     html        HTML <table> code
     insert      SQL insert statements for TABLE
     json        Results in a JSON array
     line        One value per line
     list        Values delimited by "|"
     markdown    Markdown table format
     qbox        Shorthand for "box --width 60 --quote"
     quote       Escape answers as for SQL
     table       ASCII-art table
     tabs        Tab-separated values
     tcl         TCL list elements
   OPTIONS: (for columnar modes or insert mode):
     --wrap N       Wrap output lines to no longer than N characters
     --wordwrap B   Wrap or not at word boundaries per B (on/off)
     --ww           Shorthand for "--wordwrap 1"
     --quote        Quote output text as SQL literals
     --noquote      Do not quote output text
     TABLE          The name of SQL table used for "insert" mode

Edited April 12, 2022 by jchd

[Martin_Martin]

On 4/12/2022 at 3:06 PM, mLipok said:

I would like to recomend you to use  * ADO.au3 UDF *

btw

2️⃣4️⃣um

Yeah, thank you for your help, but as I mentioned I am beginner, so I have no idea what am I seeing in this script

[Martin_Martin]

On 4/12/2022 at 3:07 PM, jchd said:

You can easily export the result of any SELECT statement in many formats, among them csv.

Say you create an SQLite database named Example.sq3 with a table Sample defined thusly CREATE TABLE Sample (Key CHAR, Value INT);

Say you load it with some data:
INSERT INTO Sample VALUES ('a',1), ('c',3), ('b',2), ('z',26), ('y',25), ('x',24);

You can dump the table Sample in .CSV format using this, for instance:

Local $sstr  ; actually dummy here
_SQLite_SQLiteExe("Example.sq3", _
    ".mode csv" & @CRLF & _
    ".headers on" & @CRLF & _
    ".output sample.csv" & @CRLF & _
    "select * from Sample order by key;" & @CRLF & _
    ".quit", $sStr)

; Check the result created
ConsoleWrite(FileRead("sample.csv"))

You can use any complicated SELECT you need. Familiarize yourself with all the flexibility offered by the CLI (sqlite3.exe). Using the latest version from sqlite.org will bring you most.

BTW the .mode command lets you choose a number of output formats:
sqlite> .help mode
.mode MODE ?OPTIONS?     Set output mode
   MODE is one of:
     ascii       Columns/rows delimited by 0x1F and 0x1E
     box         Tables using unicode box-drawing characters
     csv         Comma-separated values
     column      Output in columns.  (See .width)
     html        HTML <table> code
     insert      SQL insert statements for TABLE
     json        Results in a JSON array
     line        One value per line
     list        Values delimited by "|"
     markdown    Markdown table format
     qbox        Shorthand for "box --width 60 --quote"
     quote       Escape answers as for SQL
     table       ASCII-art table
     tabs        Tab-separated values
     tcl         TCL list elements
   OPTIONS: (for columnar modes or insert mode):
     --wrap N       Wrap output lines to no longer than N characters
     --wordwrap B   Wrap or not at word boundaries per B (on/off)
     --ww           Shorthand for "--wordwrap 1"
     --quote        Quote output text as SQL literals
     --noquote      Do not quote output text
     TABLE          The name of SQL table used for "insert" mode

I am using ODBC Management studio for SQL script and thats it, because on every station, that is live, there is only this app and I can not change that, so I do not know how can I use SQL lite in this case, or am I missing something ?

[jchd]

I wrote my answer assuming the DB engine in use was SQLite, since you include the relevant UDFs in your code.

So remove those unneeded includes and tell us which DB engine you use: MySQL, MSSQL, SQL Server, Postgres, DB2, ...

ODBC and ADO are just engine-agnostic wrappers to interface the actual DB engine. Every DB engine has its own facilities (or not) to import, export, backup, restore data.

[Martin_Martin]

20 hours ago, jchd said:

I wrote my answer assuming the DB engine in use was SQLite, since you include the relevant UDFs in your code.

So remove those unneeded includes and tell us which DB engine you use: MySQL, MSSQL, SQL Server, Postgres, DB2, ...

ODBC and ADO are just engine-agnostic wrappers to interface the actual DB engine. Every DB engine has its own facilities (or not) to import, export, backup, restore data.

Yeah sorry, I did not include that. There is Oracle's MySQL

[Martin_Martin]

On 4/12/2022 at 2:49 PM, Danyfirex said:

You can use _FileWriteFromArray

 

Saludos

Yes, but I found out, that I can use this only for 1D arrays.

[jchd]

https://www.google.com/search?client=firefox-b-d&q=mysql+export+to+csv

returns a full load of answers.

[Martin_Martin]

On 4/19/2022 at 11:47 AM, jchd said:

I wrote my answer assuming the DB engine in use was SQLite, since you include the relevant UDFs in your code.

So remove those unneeded includes and tell us which DB engine you use: MySQL, MSSQL, SQL Server, Postgres, DB2, ...

ODBC and ADO are just engine-agnostic wrappers to interface the actual DB engine. Every DB engine has its own facilities (or not) to import, export, backup, restore data.

So this is my script, that is returning result into .csv file, but problem is, that I am not getting titles of columns now and I do not know why. Do you know where can be the issue ? Thank you very much in advance

 

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <File.au3>
#include <Constants.au3>
#include <Logging.au3>
#include <WinAPIFiles.au3>

;; Variable for Logging definition
Global $HideGUI=0
Global $Dbg=2    ; Dbg Level definieren, wenn über Commando Zeile nichts übergeben wurde, dann ist Default 2 -> Logfile schreiben
                ;$typetext="fail" == 1
                ;$typetext="question" == 2
                ;$typetext="warning" == 3
                ;$typetext="info" == 4

Global $RecordSet
Global $Data
Global $Data1
; Location of csv file
Global $sDataFilePath = "C:\Service\EssoMpay\DBExport.csv"

;; Function(s) start
script_logging($Dbg, "Test import from db to file: <<<<<<<<<<<<<<<<<<< Start >>>>>>>>>>>>>>>>>>>", 4, $HideGUI)

GetDbRows();
ExportDataToCsv($Data);

Func GetDbRows()
    Local $SQL_Query = "select * from storeandforward where rownum < 8 order by creationtime desc;"
    $connection = ObjCreate( "ADODB.Connection" )
    $result = ObjCreate("ADODB.RecordSet")
    $DSN = "DSN=" & "DB" & ";" & "Uid=db2" & ";" & "Pwd=" & "db2"
    $connection.Open($DSN)
    $result.Open($SQL_Query, $connection)
    $Data = $result.GetRows()
EndFunc

Func ExportDataToCsv(const $array)
    If Not FileExists($sDataFilePath) Then
        FileWriteLine($sDataFilePath, "Result")
    EndIf
    For $i = 0 to UBound($array, 1) - 1
        $k = $i + 1
        FileWriteLine($sDataFilePath, "Rownum: " & $k)
        For $j = 0 to UBound($array, 2) - 1
            FileWriteLine($sDataFilePath, $array[$i][$j])
        Next
        FileWriteLine($sDataFilePath, " ")
    Next
EndFunc

Edited May 2, 2022 by Martin_Martin

[jchd]

Remove the SQLite #includes since you don't use this engine.

Try this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <Array.au3>
#include <File.au3>
#include <Constants.au3>
#include <Logging.au3>
#include <WinAPIFiles.au3>


;; Variable for Logging definition
Global $HideGUI=0
Global $Dbg=2    ; Dbg Level definieren, wenn über Commando Zeile nichts übergeben wurde, dann ist Default 2 -> Logfile schreiben
                ;$typetext="fail" == 1
                ;$typetext="question" == 2
                ;$typetext="warning" == 3
                ;$typetext="info" == 4

Global $oConnection
Global $aData
Global $aNames
; Location of csv file
Global $sDataFilePath = "C:\Service\EssoMpay\DBExport.csv"

;; Function(s) start
script_logging($Dbg, "Test import from db to file: <<<<<<<<<<<<<<<<<<< Start >>>>>>>>>>>>>>>>>>>", 4, $HideGUI)

DbStartup()

GetDbRows()

DbShutdown()

ExportDataToCsv();


Func DbStartup()
    $oConnection = ObjCreate( "ADODB.Connection" )
    Local $sDSN = "DSN=" & "DB" & ";" & "Uid=db2" & ";" & "Pwd=" & "db2"
    $oConnection.Open($sDSN)
EndFunc

Func DbShutdown()
    $oConnection.Close()
EndFunc

Func DbGetRows()
    Local $sSQL_Query = "select * from storeandforward where rownum < 8 order by creationtime desc;"
    Local $oResult = ObjCreate("ADODB.RecordSet")
    $oResult.Open($sSQL_Query, $oConnection)
    $aData = $oResult.GetRows()         ; load array $aData with rows
    $aNames[UBound($aData, 2)]          ; array to hold column names
    For $i = 0 To UBound($aNames) - 1
        $aNames[$i] = $oResult.Fields($i).Name
    Next
EndFunc

Func ExportDataToCsv()
;~     If Not FileExists($sDataFilePath) Then
;~         FileWriteLine($sDataFilePath, "Result")              ; ??? should be column names!
;~     EndIf
    Local $s = _ArrayToString($aNames, ",") & @CRLF             ; column names
    $s &= _ArrayToString($aData, ",")
    FileWriteLine($sDataFilePath, $s)                           ; data rows
;~     For $i = 0 to UBound($array, 1) - 1
;~         $k = $i + 1                                          ; 
;~         FileWriteLine($sDataFilePath, "Rownum: " & $k)
;~         For $j = 0 to UBound($array, 2) - 1
;~             FileWriteLine($sDataFilePath, $array[$i][$j])
;~         Next
;~         FileWriteLine($sDataFilePath, " ")
;~     Next
EndFunc

 

[junkew]

Why would you make an exe in AutoIt to call from Powershell where you directly can create the adodb connection within powershell?

 

[Skysnake]

Hi

Just to get clarity

What _exactly_ do you wish to do? Is the problem the DB connection, the data or the CSV output?

How much you need the user to interact?

I have a complex setup where

• AutoIt ADO queries DB
• Places result in ListView for user to see
• On button grabs listview content and
• Writes to CSV

Which part of your process do you need help with?

Skynake