[R] Afficher le nombre d'enregistrement en titre

[EzioGr38]

Je travaille actuellement sur un programme d'extraction de BDD en autoit
Je voudrais savoir si c'est possible d'intégrer le nombre d'enregistrement que contient le résultat de l'extraction de ma BDD
Sous cette forme par exemple : nom_fichier_XX.txt Avec XX le nombre d'enregistrement

Si c'est possible comment faire ?

Merci d'avance pour l'aide que vous m'apporterez

[Hugues]

Salut,

Oui c'est tout à fait possible.

Tu récupères la valeur de ta requête qui compte ton nombre de lignes de ton extraction puis tu écris: "nom_fichier_" & $NombreDenregistrements & ".txt".

Si tu veux plus d'info, dit nous quelle genre de base tu utilises (Access, SQLite)

[Bayo]

Bonjour,

Je sais pas si c'est c'est la partie SQL que tu demande ou autoit mais sinon tu fait

Code : Tout sélectionner

$sql=requête SQL
FileCreate(@ScriptDir & "\nom_fichier_" & $sql & ".txt", "Première ligne de ton fichier" & @CRLF)

Func FileCreate($sFilePath, $sString)
    Local $fReturn = True ; Create a variable to store a boolean value.
    If FileExists($sFilePath) = 0 Then $fReturn = FileWrite($sFilePath, $sString) = 1 ; If FileWrite returned 1 this will be True otherwise False.
    Return $fReturn ; Return the boolean value of either True of False, depending on the return value of FileWrite.
EndFunc   ;==>FileCreate
 

Je sais plus où j'ai récupéré la fonction FileCreate(), mais elle n'est pas de moi

[EzioGr38]

Ma BDD est en MySql

Code : Tout sélectionner

requete = "SELECT DISTINCT maTable FROM(Equipement_modele) 
WHERE 1
FileCreate(@ScriptDir & "\famille2_" & $requete & ".txt", "DIVERS" @CRLF)

;Exécution de la requête
$exec = _Query($sql, $requete)
#cs
;Résultats affichés dans un fichier texte nommé equipWindows.txt
While NOT $exec.EOF
   FileWriteLine("c:\Interface\TestMySql\famille2.txt", $exec.Fields("strFamille_intitule").value)
   $exec.MoveNext
WEnd
#ce
_MySQLEnd($sql)


Func FileCreate($sFilePath, $sString)
   Local $fReturn = True 
   If FileExists($sFilePath) = 0 Then
      $fReturn = FileWrite($sFilePath, $sString) = 1
      Return $fReturn
   EndIf
EndFunc
 

J'obtiens qq erreurs mais je ne vois pas ce qu'il faut rajouter :/

Merci en tout cas

[Hugues]

Exemple avec une base de données SQLite:

► Afficher le texte

Code : Tout sélectionner

$Table = Nom de ta table

$Search = Ce que tu cherches

TaColonne = Le nom de ta colonne dans ta base

$aRow = Nombre de ligne retournées selon ta requête

Local $hQuery, $aRow, $sMsg, $aResult, $iRows, $iColumns

$iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & " WHERE TaColonne = '" & $Search & "';", $aResult, $iRows, $iColumns)

;Nombre de ligne(s) contenue(s) dans la base SQLite
_SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE TaColonne = '" & $Search & "';", $aRow)

_FileCreate(@ScriptDir & "\nom_fichier_" & $aRow[0] & ".txt")

 

[Hugues]

Un exemple un peu brut:

► Afficher le texte

Code : Tout sélectionner

#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>

Local $aResult, $iRows, $iColumns, $iRval, $ligne1
Local $hQuery, $aRow
_SQLite_Startup()
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "SQLite.dll Can't be Loaded!")
    Exit -1
EndIf
ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
_SQLite_Open() ; Open a :memory: database
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Can't Load Database!")
    Exit -1
EndIf

; Example Table
;   Name        | Age
;   -----------------------
;   Alice       | 43
;   Bob         | 28
;   Cindy       | 21

If Not _SQLite_Exec(-1, "CREATE TEMP TABLE persons (Name, Age);") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Alice','43');") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Bob','28');") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Cindy','21');") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Cindy2','21');") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Cindy2','21');") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())

; Query
    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM persons WHERE Age = '21';", $aResult, $iRows, $iColumns)

If $iRval = $SQLITE_OK Then

    _FileCreate(@ScriptDir & "\" &  $iRows & " enregistrement pour 21ans.txt")
    _FileWriteFromArray($iRows & " enregistrement_pour_21ans.txt", $aResult)

Else
    MsgBox($MB_SYSTEMMODAL, "SQLite Error: " & $iRval, _SQLite_ErrMsg())
EndIf


_SQLite_Close()
_SQLite_Shutdown()

 

[EzioGr38]

Merci pour les exemples ils me seront très utiles !!
Mais en voulant compiler ton dernier exemple, Hugues, je n'arrive pas à charger la dll (SQLite.dll.au3)

Savez-vous pourquoi?

[Hugues]

Salut,

Telecharge le dll et ensuite dans ton script tu colles (pour l'explication, je suis pas un expert, peut-être qu'un spécialiste pourra te répondre mieux que moi):

Code : Tout sélectionner

Local $sLocalSQLiteDll = @ScriptDir & "\sqlite3.dll"
Local $sSQliteDll = _SQLite_Startup($sLocalSQLiteDll, True, 1)

If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "'SQLite3.dll' Can't be Loaded!")
    Exit -1
EndIf