Discussion :

[fadsys]

Bonjour,

J'ai au fait 3 petites questions:

1. Comment lire une feuille excel (feuille.xls), récupérer les champs (nom et tél par exemple)?

2. Même question pour un fichier texte car j'ai vu la syntaxe de manipulation de fichiers, pour lire un fichier, j'ai trouvé ceci:

ReadString(0) (et je l'ai essayé)

Mais cette commande lit l'enregistrement complet mais pas les champs (nom et tel par exemple) ? Comment faire pour lire chaque champ connu dans un fichier texte?

3. Comment ajouter (ou supprimer) un champ d'une table (sqlite)?
Exemple: j'ai une table nommée Table ayant cette structure:
nom, adresse, tel

Cette table contient des données. Je voudrais par exemple ajouter le champ NumMobile (ou supprimer le champ tel), comment faire ?

Merci de votre aide

Fadila

[comtois]

pour la question 1, regarde du côté de COMatePLUS , le lien se trouve à droite dans la colonne Quick links (freeware), clique sur COMate

exemple de code avec COMatePLUS (L'archive contient d'autres exemples)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
XIncludeFile "COMatePLUS.pbi"
 
Define.COMateObject ExcelObject, WorkBook
ExcelObject = COMate_CreateObject("Excel.Application")
 
 
;Prepare our statement for writing to an individual cell. Our choice of cell is unimportant.
;What is important is that we use type-modifiers to set the parameter types.
;===========================================================================================
  hStatement = COMate_PrepareStatement("Cells(1 as long,1 as long) = 1 as long")
  If hStatement = 0
    MessageRequester("COMatePLUS!", "Couldn't create the statement!" + #CRLF$ + #CRLF$ + "COMatePLUS error : " + COMate_GetLastErrorDescription())
    End
  EndIf
;Retrieve pointers to the first two parameters so that we can alter them later.
;==============================================================================
  *row.VARIANT = COMate_GetStatementParameter(hStatement, 1)
  *col.VARIANT = COMate_GetStatementParameter(hStatement, 2)
 
 
If ExcelObject
  If ExcelObject\SetProperty("Visible = #True") = #S_OK
    WorkBook = ExcelObject\GetObjectProperty("Workbooks\Add")
    If WorkBook
      ;Write 10000 cells using our pre-compiled statement.
      ;We fill each of the 10000 cells with the value 1.
        For row = 1 To 100
          For col = 1 To 100
            ;Set parameters.
              *row\lVal = row
              *col\lVal = col
              ExcelObject\SetProperty("", hStatement)
          Next
        Next
      ExcelObject\Invoke("Quit()")
      WorkBook\Release()
    EndIf
  EndIf
  ExcelObject\Release()
Else
  MessageRequester("COMate -Excel demo", "Couldn't create the application object!")
EndIf
 
 
;Free our statement.
;===================
  COMate_FreeStatementHandle(hStatement)

Pour la question 2, regarde la commande StringField()

Pour la question 3, c'est peut-être une question à poser sur le forum sqlite ?