Bonjour, comme je l'ai déjà dit sur le forum Débutant, je débute réellement de 0 en développement.

Cela fait deux semaines que je me gave de cours, de tutos, de recherches pour le projet suivant.

Je dois créer pour mon entreprise un programme permattant d'interroger et de mettre à jour une base de donnée Oracle 7.3 (vi je sais ^^).

Depuis hier, j'ai enfin réussi à me connecter à la base oracle en question, à envoyer une requête SQL et à afficher le résultat dans un DBGrid.

Lorsque j'execute le programme, tout se passe bien mais dès que j'essaye d'afficher de nouveau le SQL Builder, il me renvoit systématique le message d'erreur suivant : "Cannot find Database: 'nomdemabase'".

Je dois avouer que je bloque la dessus car j'aimerai comprendre ce que j'ai pu loupé dans le paramétrage.

J'ai déjà explorer pas mal de vos liens, je tente de les adapter du mieux possible mais ce n'est pas évident du tout. On ne s'improvise pas développeur du jour au lendemain.

Je vous copie le code que j'ai actuellement.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
object Form1: TForm1
  Left = 342
  Top = 275
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object MiroirFami: TDBGrid
    Left = 120
    Top = 144
    Width = 609
    Height = 273
    DataSource = ListEmp
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'LIBELLE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NO_MUT'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOM'
        Width = 164
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRENOM'
        Width = 220
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SELECTEUR'
        Visible = True
      end>
  end
  object MutGroup: TSession
    Active = True
    SessionName = 'Mutgroup'
    Left = 88
    Top = 8
  end
  object Mutualix: TDatabase
    AliasName = 'MFFOM'
    DatabaseName = 'MFFOM'
    KeepConnection = False
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=MFFOM'
      'PASSWORD=********')
    SessionName = 'Mutgroup'
    Left = 120
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'MFFOM'
    SessionName = 'Mutgroup'
    SQL.Strings = (
      'select ap.libelle,fp.no_mut, fp.selecteur, i.nom, i.prenom'
      'from fami_periode fp, indi i, fami f, adresse_prof ap'
      'where fp.no_mut = f.no_mut'
      'and f.chef_mutu_id = i.id'
      'and f.adrs_prof = ap.id'
      'and fp.selecteur between 20 and 30'
      'and fp.fin is null'
      'order by ap.libelle, fp.selecteur, fp.no_mut')
    Left = 152
    Top = 8
  end
  object ListEmp: TDataSource
    DataSet = Query1
    Left = 88
    Top = 48
  end
end


Merci d'avance