Bonjour
Apres avoir lu sur le sujet j'ai commencé a utiliser SqLite et firedac dans mes applications. Sur Windows 10 mon application fonctionne tres bien.
Mais je plante sur IOS tout semble venir de ma configuration pour SqLite.(J'ai fais l'exemple de shoplist et ca fonctionne)Je me sert de +ou- les memes configurations.
J'utilise les composants.
1-FDConnection1, FDQuery1, (2 tables) FDtable1, FDGUIxWaitCursor1, FDPhysSQLiteDriverLink12*
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 procedure TFmaitre.FDConnection1BeforeConnect(Sender: TObject); begin {$IF DEFINED(iOS) } FDConnection1.Params.Values['Database'] :=TPath.Combine(TPath.GetDocumentsPath, 'donnee.s3db'); {$ENDIF} end;3-
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TFmaitre.FormActivate(Sender: TObject); begin FDConnection1.Connected:=TRUE; .......J'active mes tables quand je les ouvres. J'ai cree ma base et mes tables avec Sqlite studio ca va tres bien il faudrait juste valider ma creation des tables sur IOS
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TFmaitre.FDConnection1AfterConnect(Sender: TObject); begin {$IF DEFINED(iOS) } FDConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS info (ID INTEGER (1), EREGION CHAR (4), EDIRECTEUR CHAR (30), ESP CHAR (30), ETEL CHAR (15), ECARBIRANT NONE (5, 2), EDEGEL CHAR (3), EPROPRIETAIRE CHAR (30), ETELPROP CHAR (15), EPLAQUE CHAR (10));'); FDConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS coupon (ID INTEGER (4), OTHERID CHAR (10), BCOMPAGNIE CHAR (20), BCOUPON CHAR (10), BDATE CHAR (10), BMATERIEL CHAR (20), BDISTANCE NUMERIC (5, 2), BQTE NUMERIC (7, 3), INFO BLOB));'); {$ENDIF} end;
Merci de votre aide.
Mario
Partager