[..] Ecriture BDD
Posté : mar. 21 juin 2022 19:21
Bonjour
Je ne vois pas pourquoi ma BDD n'est pas sauvegardée avec les données de mon fichier Clubs_Essai.csv que je fourni en format XLSX car les fichiers joints n'acceptent pas le format .CSV
D"avance merci
Je ne vois pas pourquoi ma BDD n'est pas sauvegardée avec les données de mon fichier Clubs_Essai.csv que je fourni en format XLSX car les fichiers joints n'acceptent pas le format .CSV
Code : Tout sélectionner
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
Dim $aFile, $aSplit
Global $hQuery,$BDD=@ScriptDir & "\Affilies.sqlite"
if FileExists ($BDD) then FileDelete ($BDD) ; Delete de la base pour essais...
_SQLite_Startup()
$OpenBDD = _SQLite_Open($BDD) ; nom du fichier base de données
_SQlite_Exec(-1,' CREATE TABLE IF NOT EXISTS clubs (' & _
'Club_ID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, Cl_President CHAR NOT NULL COLLATE NOCASE, ' & _
'Cl_NomClub CHAR, Cl_Adresse CHAR, Cl_CP CHAR, Cl_Ville CHAR, Cl_Email CHAR,Cl_Site,Cl_Tel CHAR, Cl_Por CHAR, Cl_Saison CHAR, Cl_Date_Maj CHAR, Cl_Cotis CHAR,Cl_Affil INTEGER)');
_SQlite_Exec(-1,'CREATE UNIQUE INDEX "ixClub" ON "clubs" (Cl_NomClub)') ;
;~ ; Je remplis la table CLUBS de la base avec les clubs existants
_FileReadToArray(@ScriptDir & "\clubs_essai.csv", $aFile)
_SQLite_Exec(-1, 'BEGIN')
For $i = 1 To $aFile[0]
$aSplit = StringSplit($aFile[$i], ";")
; _ArrayDisplay($aSplit)
$aSplit[1] = $aSplit[1]
$aSplit[2] = _SQLite_Escape($aSplit[2])
$aSplit[3] = _SQLite_Escape($aSplit[3])
$aSplit[4] = _SQLite_Escape($aSplit[4])
$aSplit[5] =_SQLite_Escape( $aSplit[5])
$aSplit[6] = _SQLite_Escape($aSplit[6])
$aSplit[7] = _SQLite_Escape($aSplit[7])
$aSplit[8] = _SQLite_Escape($aSplit[8])
$aSplit[9] = _SQLite_Escape($aSplit[9])
$aSplit[10] = _SQLite_Escape($aSplit[10])
$aSplit[11] = _SQLite_Escape($aSplit[11])
; Préparation de requête SQL
$sql = 'INSERT INTO clubs VALUES ('
For $j = 1 To $aSplit[0]
$sql &= $aSplit[$j] & ", "
Next
$sql = StringTrimRight($sql, 2) & ")"
ConsoleWrite("- " & $sql & @CRLF)
_SQLite_Exec(-1, $sql)
Next
_SQLite_Exec(-1, 'END') ; Fin de transaction d'écriture des CLUBS
_SQLite_Close(-1)
_SQLite_Shutdown()
D"avance merci