Discussion :

[SubZero2]

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 :

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 ?

[neguib]

Pourquoi cherche tu a fermer la connection avant de l'ouvrir :

[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 ?

[neguib]

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 :

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

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;
...

[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 ...

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 !
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"

[neguib]

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

[SubZero2]

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

Je post mon "page_load" :

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
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;

[SubZero2]

Ca inspire pas, hein ?
Moi non plus, c'est la 2° semaine que j'entame avec ca !!

[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

[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 !

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

Code :

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

reponse.write('toto'); Exit;

avant le "Open", tout se passe bien.
Mais des que je le met apres ca platouille !

[SubZero2]

UP !
Apres avoir mis ca :

Code :

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

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 !
De quoi il parle quand il dit :"Le cast spécifié n'est pas valide." ???

[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

[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

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 ...

[neguib]

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

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
 
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" :

[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 !

[SubZero2]

Ca marche !!
Avant :

Code :

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

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 :

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

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 ...