[Delphi.Net] Erreur de Cast ?

Version imprimable

11/07/2005, 08h34
SubZero2

[Delphi.Net] Erreur de Cast ?

Bonjour.
J'ai une erreur que je ne comprend pas.
Je vous met a la suite le detail de la page d'erreur a la quelle j'ai droit :

Citation:

Détails de l'exception: Borland.Data.Common.BdpException: Le cast spécifié n'est pas valide.

Erreur source:

Ligne 63 : MyBdpconnection.ConnectionString := 'assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;database=TOTO;provider=Oracle;username=PANORAMA;password=PANORAMA';
Ligne 64 : MyBdpconnection.Close;
Ligne 65 : MyBdpconnection.Open;
Ligne 66 : temp := 'select distinct(rownum || enseigne) as toto,rownum from magasins order by rownum';
Ligne 67 : MyCommand := BdpCommand.Create(temp, MyBdpconnection);

Quelqu'un pourrait il m'expliquer ce qu'un probleme de cast pourrait venir faire ici ?

:merci:
11/07/2005, 09h30
neguib

Pourquoi cherche tu a fermer la connection avant de l'ouvrir :) :?:
11/07/2005, 14h14
SubZero2

Oui, j'ai vu ca apres, c'est le reflexe de le faire avec les TQuery...
Je fais le Close avant de changer son DataBaseName des fois ...

Bref, ... Et mon probleme de Cast ? Vous n'auriezpas une idée ?

Ben l'idée qui me vient c'est la connectionstring mais pour ce faire il faudrait que tu puisse le tester en refaisant la manoeuvre en mode design, en posant ta Bdpconnection et en utilisant parcourir dans la fénêtre propriété afin de voir si une différence apparaît entre la chaine générée automatiquement et celle que tu as formulé

A moins que tu essayes par
Code:

1 2 3 4 5 6 7 8 9 10 var connectionstring : String; myBdpConnection: BdpConnection; begin try connectionstring := ' assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;database=TOTO;provider=Oracle;username=PANORAMA;password=PANORAMA'; myBdpConnection:= BdpConnection.Create(connectionstring); myBdpConnection.Open; ...

11/07/2005, 15h05
SubZero2

Je l'ai d'abord fait en mode design puis j'ai copier/collé le resultat de la fenetre de propriete dans mon code ... :roll:

PAr contre maintenant, c'est tres fort !
En fait, je pose un composant BdpConnection sur ma form.
Quand je clic sur la propriete "ConnectionString" il ne fait rien du tout ! :evil:
J'essaie donc en faisant clic droit sur le composant puis "Editeur de connexion".
Et la il me sort une erreur non specifiée puis :

"La reference d'objet n'est pas definie a une instance d'objet" 8O 8O
11/07/2005, 15h09
neguib

:oops: tu as été plus vite que moi je viens de réediter mon post :wink:

hehe !
J'ai fait ce que tu m'as dit avant de passer par un composant...

Je post mon "page_load" :

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
procedure Panorama.Page_Load(sender: System.Object; e: System.EventArgs);
var
  Script: String;
  MyAdapter : BdpDataAdapter;
  MyCommand : BdpCommand;
  MyBdpconnection : BdpConnection;
  MyReader: BdpDataReader;
  temp: String;
begin
  if not Page.IsPostBack then
  begin
    MyBdpconnection := BdpConnection.Create;
    MyBdpconnection.ConnectionString := 'assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;database=TOTO;provider=Oracle;username=PANORAMA;password=PANORAMA';
    MyBdpconnection.Open;   // ===> Toujours pareil ! (@_@)
    temp := 'select distinct(rownum || enseigne) as toto,rownum from magasins order by rownum';
    MyCommand := BdpCommand.Create(temp, MyBdpconnection);
 
    response.Write('toto');
    Exit;
 
    Myreader := MyCommand.ExecuteReader;
    while MyReader.Read do
      Response.Write(MyReader.Item['toto'].ToString + '<BR>');
 
    MyBdpconnection.Close;
  end;
end;

11/07/2005, 15h52
SubZero2

Ca inspire pas, hein ? :roll:
Moi non plus, c'est la 2° semaine que j'entame avec ca !! :arf:
11/07/2005, 15h57
neguib

ok mais en fait je t'ai proposé de faire le create directement surchargé avec la chaine de connection.

1. mets un try catch
2. Quand tu debbug pas à pas c'est bien connection.Open qui fait passé au catch (c'est sûr :?: )
3. dans ce cas espion sur exception que dit exception.Message

sinon en mode design tu n'as pas la possiblité de faire générer la chaine de connection et de la tester en direct :?:

dernière chose, au pire tu peux allez voir dans la facq delphi.Net qui sont les pros du site dans ce domaine et les contacter direct par mp :wink:
11/07/2005, 16h03
SubZero2

Arf, la ca deviens compliké !
Je ne peux pas deboguer sur mon poste ! Les pages que je modifie sont sur un serveur et lorsque j'essaie de deboguer en direct sur mon post, le WEB.COnfig pose souci, il retrouve pas ses petits ! :roll:

C'est pour ca que je passe par des response.write sans arrets :roll:
Mais c'est bien le "Open" qui pose souci.
Si je met mon

Code:

reponse.write('toto'); Exit;

avant le "Open", tout se passe bien.
Mais des que je le met apres ca platouille ! :evil:
11/07/2005, 16h06
SubZero2

UP !
Apres avoir mis ca :

Code:

MyBdpconnection := BdpConnection.Create('assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;database=TOTO;provider=Oracle;username=PANORAMA;password=PANORAMA');

C'est la que ca plante ! :roll:
De quoi il parle quand il dit :"Le cast spécifié n'est pas valide." ???
11/07/2005, 16h14
neguib

ben tu vois, je crois bien que c'est un problème de chine de connection et c'est dommage que tu ne puisses pas apparemment la tester en design :cry:
11/07/2005, 16h17
SubZero2

En meme temps, je l'ai testé cette chaine avant de la copier/coller ds le code !
Mais bon, c'est comme un test sur une chaine de connexion a Ms Access, ca marche tout le tps :roll: :lol:

nb: juste pour dire, 'ai eu au debut une erreur car il ne trouvait pas la DLL "bdpora20.dll", je lui ai donc fournie et la c'est autre chose ... :roll:

essayes avec çà (au point où on en est :D )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
const
   databasefile= '..\...\toto.extension';
   connectionString := 'assembly=Borland.Data.Oracle,Version=2.0.0.0,'
    + 'Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;'
    + 'database='+ databasefile+ ';'
    + 'provider=Oracle;username=PANORAMA;password=PANORAMA';
 
procedure Panorama.Page_Load(sender: System.Object; e: System.EventArgs); 
var 
  Script: String; 
  MyAdapter : BdpDataAdapter; 
  MyCommand : BdpCommand; 
  MyBdpconnection : BdpConnection; 
  MyReader: BdpDataReader; 
  temp: String; 
begin 
  if not Page.IsPostBack then 
  begin 
    MyBdpconnection := BdpConnection.Create(connectionString)
    MyBdpconnection.Open;
...

sinon t'es sûr à propos de "vendorclient=oci.dll" :?:

11/07/2005, 16h44
SubZero2

pour OCI.DLL j'en sais absolument rien, je suppose que c'est lui qui m'as mis ca par defaut ...
J'vais réessayer ! :wink:
11/07/2005, 17h00
SubZero2

Ca marche !! :roll: 8O 8O
Avant :

Code:

database=TOTO;assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;provider=Oracle;username=PANORAMA;password=PANORAMA

Maintenant :

Code:

assembly=Borland.Data.Oracle,Version=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=oci.dll;database=TOTO;provider=Oracle;username=PANORAMA;password=PANORAMA

Mystere, mystere ... 8O