Discussion :

[phoenixgreg]

Bonjour tout le monde,

je me suis lancé dans un petit chantier, passer de SQL SERVER EXPRESS 2008 vers SQL SERVER COMPACT 4.0.
Pour cela j'ai utilisé les outils suivants pour convertir mon fichier de base de données (HSL_DB.mdf) en HSL_DB.sdf : Export2SqlCe.exe et Sqlcecmd40.exe (marche nickel)
Dans Delphi j'ai modifié quelques petites choses, car il n'aime pas du coup le "*" de mes requêtes, mais cela fonctionne pas mal.
SAUF, lorsque je veux faire passé des Stream de données binaire :s :

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
 
procedure TSite.DB_Write_Object();
var
  nbNameInDB: Integer;
  Mstream1, Mstream2: TMemoryStream;
begin
  if not HSLmySQL.TADOCOnnection1.Connected then
    raise Exception.create( SHSL_NotConnectedToDB );
 
  Mstream1 := TMemoryStream.Create();
  Mstream2 := TMemoryStream.Create();
  try
    if not self.Picture.empty then
      self.Picture.SaveToStream( Mstream1);
 
    if ( self.Diary <> nil ) then
      self.Diary.SaveToStream( Mstream2 );
 
    // test how many site have same name in multisites
    nbNameInDB := self.DB_HowManyNameAlreadyExistsInTable(GetParentIndex);
 
    HSLmySQL.ADOQuery1.SQL.Clear();
 
    case nbNameInDB of
      1 : // UPDATE
       begin
        HSLmySQL.ADOQuery1.SQL.Add( 'UPDATE ' + self.DB_temp2 +
                                    ' WHERE ([' + SITES_Table[ aSITE_NAME ] + ']=''' + self.FName + ''') AND (' + SITES_Table[ aSITE_MULTISITE_INDEX ] + ' = ' + inttostr(self.parent_index) + ');' );
        HSLmySQL.ADOQuery1.Parameters.ParamByName('pict_blob').LoadFromStream( Mstream1, ftblob );
        HSLmySQL.ADOQuery1.Parameters.ParamByName('diary_blob').LoadFromStream( Mstream2, ftblob );
        //v2.02
 
        HSLmySQL.ADOQuery1.ExecSQL();
       end;
      0 : // INSERT
       begin
        HSLmySQL.ADOQuery1.SQL.Add( 'INSERT INTO ' + self.DB_temp + ' ;' );
        //HSLmySQL.ADOQuery1.Parameters.ParamByName('_pict_blob').LoadFromStream( Mstream1, ftblob );
        //HSLmySQL.ADOQuery1.Parameters.ParamByName('_diary_blob').LoadFromStream( Mstream2, ftblob );
        //HSLmySQL.ADOQuery1.Parameters.CreateParameter('_pict_blob',ftBlob,pdInput,10000000,nil);
        HSLmySQL.ADOQuery1.Parameters.ParamByName('pict_blob').LoadFromStream( Mstream1, ftblob );
        //HSLmySQL.ADOQuery1.Parameters.CreateParameter('_diary_blob',ftBlob,pdInput,10000000,nil);
        HSLmySQL.ADOQuery1.Parameters.ParamByName('diary_blob').LoadFromStream( Mstream2, ftblob );
        //v2.02
 
        HSLmySQL.ADOQuery1.ExecSQL();
       end;
    else
      //if ( nbNameInDB > 1 ) then
        showmessage( self.FName + ' : ' + SHSL_MoreThan1SameNameInTable );
    end;//case
  finally
    Mstream1.Free();
    Mstream2.Free();
  end;
 
  self.pk_index := DB_Get_Object_Index( stableName, self.ObjectName, Column_parent_index, self.parent_index );
end;

Le code suivant marche très bien lorsque je suis lié à SQL SERVER EXPRESS 2008, mais en COMPACT à la ligne :

Code :

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

HSLmySQL.ADOQuery1.ExecSQL();

l'appli plante complétement, aucun message n'est soulevé, rideau ...
Alors question bête est-ce ce genre de manip (avec les stream) sachant que Compact c'est fait pour mobile pour de petites données, ça passe ?!

Merci pour vos réponses

[phoenixgreg]

Apparemment il n'aime pas quand les stream sont vides, j'ai forcé la chose en ajoutant '0x' dans les champs [PICTURE] et [DIARY]...
Donc faut que je look avant d'insérer si mes stream sont null.

[phoenixgreg]

Autre soucis !

Code :

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

1
2
3
4
5
6
 
  HSLmySQL.ADOQuery1.SQL.Clear();
  HSLmySQL.ADOQuery1.SQL.Add( 'SELECT PK_INDEX, MULTISITE_INDEX, ORDER_INDEX, NAME, ADDRESS, CITY, POSTAL_CODE, PERSON_LIABLE, CALL_PREFIX, CALL_NUMBER, IS_MODEL, PASSWORD_ZIP, EMAIL_SITE_CFG, PICTURE, DIARY FROM ' + SITES_Table_Name +
                              ' WHERE ' + SITES_Table[ aSITE_NAME ] + '=''' + self.ObjectName + ''' AND ' + SITES_Table[ aSITE_MULTISITE_INDEX ] + ' = ' + inttostr(self.parent_index) + ';' );
 
  HSLmySQL.ADOQuery1.Open();

lors de la ligne :

Code :

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

1
2
 
  HSLmySQL.ADOQuery1.Open();

j'ai l'erreur :

Mais si j'enlève les champs à partir de 'NAME' ça passe, qql a-t-il déjà eu cette erreur ?

Merci !

[ShaiLeTroll]

Essaye [NAME] ou "NAME", c'est peut-être un mot clé dans cette version
Quelqu'un avait eu ce genre de problème en ACCESS

[phoenixgreg]

ohhh superbe il fallait rajouter une quote en effet ''NAME'', merci !

[phoenixgreg]

Alors en fait ce n'était pas vraiment ça ^^, après avoir mener des recherches plus approfondies il semble que ce bug DB_E_OBJECTOPEN levé par le provider OLE DB, soit lié à des champs nvarchar de plus de 127 caractères ! Et en effet les champs qui ne passaient pas étaient tous à plus de 127 :s