[MySQL] Wie bekomme ich '\' ins Record?

[Akut-Programming]

Hi,

folgendes Problem. Ich will Pfadangaben in einer MySQL Tabelle speichern. Als ich einfach nur den übergebenen String eingefügt hatte, waren keine '\' mehr vorhanden. Da dacht ich mir, das er das beim einfügen falsch übergeben bekommen hat bzw. die '\' wegschneidet. Also habe ich mit StringReplace gearbeitet um die '\' durch '\\' zu ersetzen. Aber dann konnt ich sehen, das es da auch nich ging :gruebel: - Delphi hat damit also nichts zu tun, sondern handelt MySQL das irgendwie. (Glaube ich :stupid:) - Kann mir jemand vielleicht sagen, wie ich die '\' meines übergebenen Pfades nun doch da rein bekomme. - Ich will die Dateien aus meiner Anwendung aus starten lassen und dazu brauch ich die komplette Pfadangabe.

Gruß,

[Sharky]

Hai Akut,

ich kann das so nicht nachvollziehen. Wie speicherst Du die Pfade denn?

[Akut-Programming]

hier mal mein Code fürs einfügen..

Delphi-Quellcode:

ChangedFilepath:=StringReplace(frmMain.OpenDialog1.FileName,'\\','\',[rfReplaceAll, rfIgnoreCase]);

cmdInsertFile.CommandText:='insert into files_tbl values('''+SelectetName+''', '''+frmFiletitel.edFiletitel.Text+''', '''+ChangedFilepath+''')';

[EDIT]Wenn ich die Pfadangaben nun wieder auslese bzw. sie mir in der DB anschaue, steht da z.B. nur 'C:TempThisFile.exe[/EDIT]

[Sharky]

Wie greifst Du denn auf den mySQL zu?

[Akut-Programming]

Hai Sharky,

über ODBC, wenn du das meinst.. und das ist der Code für die Abfrage der Dateien aus der DB..

Delphi-Quellcode:

procedure TfrmMain.LoadFileList(Anwendung: String);
var
   i: integer;
   ListItem: TListItem;
begin
     lvFiles.Items.Clear;
     SelectetName:=Anwendung;

     dstGetFilelist.Active:=false;
     dstGetFilelist.CommandText:='select * from files_tbl where projekt ='''+Anwendung+'''';
     dstGetFilelist.Active:=true;
     dstGetFilelist.first;

     for i:=0 to dstGetFilelist.RecordCount-1
     do begin
        ListItem:=lvFiles.Items.Add;
        ListItem.Caption:=dstGetFilelist.Fields.Fields[1].AsString;
        ListItem.SubItems.Add(StringReplace(dstGetFilelist.Fields.Fields[2].AsString,'\\','\',[rfReplaceAll, rfIgnoreCase]));
        dstGetFilelist.Next;
     end;
end;

[Sharky]

Ich verwende für mySQL die Zeos-Komponenten. Wenn ich mit diesem Code arbeite werden alle Pfade so in die Tabelle geschrieben wie ich es möchte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
  begin
    with ZQuery1 do
    begin
      Close;
      SQL.Text := 'INSERT INTO meintest VALUES (null,:pfad)';
      ParamCheck := True;
      ParamByName ('pfad').AsString := OpenDialog1.FileName;
      ExecSql;
    end;
  end;
end;

[Akut-Programming]

Ich nutze die ADO Komponenten.. habs jetzt mal versucht, den Code darauf umzustellen, da bekomme ich aber die Meldung, das ParamByName ein undefinierter Bezeichner ist.

Delphi-Quellcode:

cmdInsertFile.CommandText:='insert into files_tbl values('''+SelectetProject+''', '''+frmFiletitel.edFiletitel.Text+''', :pfad)';
cmdInsertFile.ParamCheck:=true;
cmdInsertFile.ParamByName('pfad').AsString := OpenDialog1.FileName;
cmdInsertFile.Execute;

[EDIT]Habs jetzt auch mal mitn ADO-Query versucht, da kommt das gleiche raus.:cry:[/EDIT]

[Sharky]

Zitat:

Zitat von Akut-Programming

Ich nutze die ADO Komponenten.. ...

Bei den ADOs ist der Syntax etwas anders:

Delphi-Quellcode:

  ADOCommand1.Parameters.ParamByName('pfad').DataType :=  ftString;  // Typ zuweisen (string)
  ADOCommand1.Parameters.ParamByName('pfad').value := OpenDialog1.FileName;  // Wert zuweisen

Geht mit ADOCommand und ADOQuery.

[Akut-Programming]

bei

Delphi-Quellcode:

cmdInsertFile.Parameters.ParamByName('pfad').DataType :=  ftString;  // Typ zuweisen (string)

bekomme ich die Meldung "undefinierter Bezeichner ftString" :freak:

[Sharky]

Ist die Unit DB eingebunden?

[Akut-Programming]

:stupid: Dank dir - jetzt gehts!! :thumb:

[Sharky]

Zitat:

Zitat von Akut-Programming

:stupid: Dank dir - jetzt gehts!! :thumb:

*Freu*

Ich empfehle Dir aber grundsätzlich mit Parametern zu arbeiten. Das vermeidet Fehlerquellen und macht den Code übersichtlicher:

Delphi-Quellcode:

begin
  with cmdInsertFile do
  begin
    CommandText:='insert into files_tbl ' + #10 
      + 'values(:SelectetProject,:titel,:pfad)'; 
    ParamCheck:=true; 
    with Parameters do
    begin
      ParamByName('SelectetProject').DataType :=  ftString; 
      ParamByName('SelectetProject').value := SelectedProject;
      ParamByName('titel').DataType :=  ftString; 
      ParamByName('titel').value := frmFiletitel.edFiletitel.Text;
      ParamByName('pfad').DataType :=  ftString;
      ParamByName('pfad').value := OpenDialog1.FileName;
    end;
    Execute;
  end;
end;

[Akut-Programming]

Den tip werd ich mir zu Hertzen nehmen. Scheint echt fehler zu vermeiden... da kann ich auch gleich mal in n paar älteren Anwendungen gucken die durch sowas nie wirklich fertig geworden sind. :coder2:

[Sharky]

Zitat:

Zitat von Akut-Programming

Den tip werd ich mir zu Hertzen nehmen....

Den grössten Vorteil wirst Du bemerken wenn Du ein Datum in eine Tabelle schreiben musst. Wenn Du mit Parametern arbeitest musst Du nicht überlegen in welchem Format die Datenbank das Datum möchte. Einfach den richtigen Datentyp wählen und den Rest übernimmt die Schnittstelle für dich!

[Akut-Programming]

Zitat:

Zitat von Sharky

Den grössten Vorteil wirst Du bemerken wenn Du ein Datum in eine Tabelle schreiben musst. ...

Das ist mir eigentlich auch wichtig. Wie oft ich schon mit Fehlermeldungen beschmissen wurde, weil das Datum nicht im verlangten Format übergeben wurde. :?