Besoin d'aide sur Delphi7/BDE/Oracle
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:
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 :)
