Blobs ins DB Speichern

dschensky

Clip schrieb:

Allerdings weiß ich nicht was "Table" für ein Objekt sein soll
Was könnte das sein?

Hast Du schon geklärt, ob Dein Problem überhaupt mit dem Blob zusammenhängt?
Versuch doch erstmal, irgend etwas anderes als ein Blob abzuspeichern ... geht das?

Clip

Ja, das geht völlig Problemlos.

Prügel mich gerade mit SQLTable und SQLQuery. Sah erst alles ganz toll aus.
Dann habe ich bemerkt, dass CanModify von SQLTable immer auf false steht......

Ich glaub ich geh wieder mir Papierflugzeugen spielen oder so...

Es muss doch eine Möglichkeit geben Blobs mit dbExpress zu speichern!
Ich werds weiter probieren!

Clip

Soooooooo

also Blobs aus der DB anzeigen:

AnsiString SQL1 = "select BLOB from TABLE where BLOBX =";
  AnsiString SQL2 = "select * from BLOBINFO where BLOBX =";
  AnsiString UserName = "username";
  AnsiString Password = "passwort";
  AnsiString DokuX = Edit1->Text;
  AnsiString Path = "c:\\temp\\";
  AnsiString File ="\0";
  AnsiString Query1 = SQL1 + DokuX;

  if (SQLComponents == NULL)
  	{
    SQLComponents = new TSQLComponents(NULL);
    }

  // Username & Passwort setzten
  SQLComponents->SQLConnection->Params->Values["User_Name"] = UserName.c_str();
  SQLComponents->SQLConnection->Params->Values["Password"] = Password.c_str();

  // DateiINfos Auslesen!!
  SQLComponents->SQLClientDataSet->CommandText = Query2.c_str();
  SQLComponents->SQLConnection->Connected = true;
  SQLComponents->SQLClientDataSet->Active = true;

  File = SQLComponents->SQLClientDataSet->FieldByName("DATEINAME")->AsString;

  File = Path + File;

  SQLComponents->SQLConnection->Connected = false;
  SQLComponents->SQLClientDataSet->Active = false;

  // Connecten
  SQLComponents->SQLClientDataSet->CommandText = Query1.c_str();
  SQLComponents->SQLConnection->Connected = true;
  SQLComponents->SQLClientDataSet->Active = true;

  // Blob wird ausgelesen
  TBlobField* blobField = dynamic_cast <TBlobField*> (SQLComponents->SQLClientDataSet->FieldByName("BLOB"));
  if (blobField == NULL) return;
  blobField->SaveToFile(File);

  // disconnect
  SQLComponents->SQLConnection->Connected = false;
  SQLComponents->SQLClientDataSet->Active = false;

  // File Anzeigen
  WideString WFile;
  WFile = WideString(File);
  CppWebBrowser1->Navigate(WFile, NULL, NULL, NULL, NULL);

  delete SQLComponents;

Blobs in die DB schreiben:

AnsiString SQL1 = "select * from TABLE where BLOBX =";
  AnsiString DokuX = Edit1->Text;
  const AnsiString BrowserFile = "c:\\temp\\test.pdf";
  AnsiString Query1 = SQL1 + DokuX;
  AnsiString Query2 = SQL2 + DokuX;
  AnsiString UserName = "username";
  AnsiString Password = "passwort";
  // Hilfsvariablen für Locate()
  Variant SearchKey = DokuX;
  TLocateOptions Opts;

  //Klasse mit benötigten SQL Komponenten
  if (SQLComponents == NULL)
  	{
    SQLComponents = new TSQLComponents(NULL);
    }

  // Username & Passwort setzten
  SQLComponents->SQLConnection->Params->Values["User_Name"] = UserName.c_str();
  SQLComponents->SQLConnection->Params->Values["Password"] = Password.c_str();

  // Query setzten
  SQLComponents->SQLClientDataSet->CommandText = Query1.c_str();

  // connecten
  SQLComponents->SQLConnection->Connected = true;
  SQLComponents->SQLClientDataSet->Active = true;

  // Datensatzt wird ausgewählt
  Opts.Clear();
  Opts << loCaseInsensitive;
  SQLComponents->SQLClientDataSet->Locate("BLOBX", SearchKey, Opts);

  // Edit Modus
  SQLComponents->SQLClientDataSet->Edit();

  // Blob wird in den selektierten Datensatzt copiert.
  TBlobField* blobField = dynamic_cast <TBlobField*> (SQLComponents->SQLClientDataSet->FieldByName("BLOB"));
  if (blobField == NULL) return;
  blobField->LoadFromFile(BrowserFile);

  // Änderungen werden an die DB übertragen
  SQLComponents->SQLClientDataSet->ApplyUpdates(-1);

  // disonnect
  SQLComponents->SQLConnection->Connected = false;
  SQLComponents->SQLClientDataSet->Active = false;

  delete SQLComponents;

@admins, evtl. ist das in gekürzter Form ja was für die die FAQs?

dschensky

Äääh ... und was war letztlich das Problem?

Clip

Zum laden von Daten reicht scheinbar eine Select Anweisung im CommandText um auf ein bestimmtes Datenfeld zuzugrifen. Dies reicht aber nicht wenn etwas gespeichert werden soll. Daher muss nocheinmal der Datensatz ausgewählt werden.

Variant SearchKey = DokuX; 
  TLocateOptions Opts; 
  Opts << loCaseInsensitive; 
  SQLComponents->SQLClientDataSet->Locate("BLOBX", SearchKey, Opts);

Das ist eigentlich alles.

und Vielen Dank für Deine Hilfe noch!!!!!

Jansen

Soviel Aufwand für eine Funktionalität, von deren Anwendung üblicherweise abgeraten wird.

Wenn du das in der FAQ sehen möchtest solltest du aber auch noch den Code deiner SQLComponents-Klasse dazupacken, damit man das 1:1 nachvollziehen kann.

Clip

Soviel Aufwand für eine Funktionalität, von deren Anwendung üblicherweise abgeraten wird

Warum denn?

Die spezielle Umsetzung die ich jetzt verwendet habe, oder Blobs generell?

Jansen

Generell, weil BLOBs die Datenbank sinnlos aufblähen. Dateien gehören in's Dateisystem, in die DB gehören Links auf die Dateien.

Clip

Generell stimme ich Dir da zu. Allerdings ist es manchmal notwendig Dateien zu schützen. Und steht genug Datenbanlplatz zur Verfügung ist es halt ein guter weg dies zu tun wenn man sich zusätzlichen administrativen Aufwand sparen will.

Ich werde die Tage die Einstellungen der verwendeten SQL Komponenten zusammenfassen und den Code noch Exeptionsave machen. Danach poste ich dann alles für die FAQs (ich hätte mich gefreut wenns das schon gegeben hätte, daher wirds sicher noch andere geben. Schaden kann es nicht denke ich).

Seppuku

Ich weiß das Thema ist schon ziemlich alt, aber ich muss jetzt auch Dateien in eine Datenbank speichern und wieder auslesen und finde einfach nichts brauchbares im Internet, deswegen wollt ich wissen ob es hier (oder woanders) was neues gibt.

So long.