Access-Memofeld mit ASP.NET auslesen

[Delbor]

Hi zusammen

Delphi-Quellcode:

ZellText := cRow[cCol.Ordinal].ToString;

Mit dieser Zeile lese ich in einem DataSet ein Feld aus, das aus einer Access-Datenbank stammt und da als Memo deklariert ist. Dazu verwende ich die Bdp-Komponenten.
In der Datenbank habe ich mittlerweile die Unicode-Kompression für dieses Feld abgeschaltet. Trotzdem erhalte ich bei einem Probelauf die Testausgabe "System.Char[]" anstelle des tatsächlichen Textes.
Andere Felder, die in der Datenbank als "Text" deklariert sind, werden korrekt ausgegeben.

Würde mich riesig freuen, wenn mir jemand einen guten Typ geben könnte. Ach ja - dieses Feld in Access als Text zu deklarieren, ist leider nicht möglich, da die enthaltenen Texte unterschiedlich gross sein können und die Aceess-Vorgaben für den Datentyp "Text" sprengen würden.

Gruss
Delbor

[Khabarakh]

Was stört dich denn daran, wenn du ein Char[] zurückbekommst :gruebel: ?

[Delbor]

Hi Khabarakh

Zitat:

Was stört dich denn daran, wenn du ein Char[] zurückbekommst

Solange dieser Char (oder besser ein Char-Array) den in dem Feld wirklich enthaltenen Text wiedergibt, überhaupt nichts. Testweise gebe ich die Texte in einer Listbox aus, und anstelle des in Access gespeicherten Textes erhalte ich die Ausgabe "System.Char[]" und nicht etwa ein Item des Typs System.Char, wie du mich offensichtlich verstanden hast.

Gruss
Delbor

[Khabarakh]

Zitat:

Testweise gebe ich die Texte in einer Listbox aus, und anstelle des in Access gespeicherten Textes erhalte ich die Ausgabe "System.Char[]" und nicht etwa ein Item des Typs System.Char, wie du mich offensichtlich verstanden hast.

Ich habe dich schon richtig verstanden ;) . Aber es ist numal so, dass ToString auf ein Char-Array angewandt nicht etwa den Text im Array sondern "System.Char[]" zurückgibt. Von welchem Typ ist nun cRow[...]?

[Elvis]

Zitat:

Zitat von Delbor

Hi Khabarakh

Zitat:

Was stört dich denn daran, wenn du ein Char[] zurückbekommst

Solange dieser Char (oder besser ein Char-Array) den in dem Feld wirklich enthaltenen Text wiedergibt, überhaupt nichts. Testweise gebe ich die Texte in einer Listbox aus, und anstelle des in Access gespeicherten Textes erhalte ich die Ausgabe "System.Char[]" und nicht etwa ein Item des Typs System.Char, wie du mich offensichtlich verstanden hast.

Was ist die Implementierung von ToString in Object? Richtig, "result := GetType().ToString();".
Was sagt Reflector dazu ob System.Array ToString überschreibt? Nix? Nunja er überschreibt es ja auch nicht. Ein Char array ist kein wirklicher Typ, eher etwas compiler magic kombiniert mit der speziellen Behandlung von typisierten Arays in der CLR.
Er kann ToString also auch nicht überschreiben. ;)
Was stellt eine ListBox dar wenn du ihr keinen DisplayMember gibst oder der DisplayMember selbst kein primitiver Typ ist? Richtig, ToString.
Was passiert also wenn du eine Liste von Char arrays an eine ListBox hängst?
Richtig:

Code:

System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]
System.Char[]

Der Wert des Items in der DataRow ist ein Char Array, aber ein Char Array ist nur ein Array und wird seine Chars nicht als String ausgeben wenn man ToString auf ihn ausführt.
Einen String würdest du zum Beispiel so bekommen:

Code:

x := String.Create(deinWert as array of Char);

Das sind übrigens absolute Basics in .Net. ;)

[Delbor]

Hi zusammen
@Khabarakh
Meine Deklaration:

Delphi-Quellcode:

cRow:DataRow; cCol:DataColumn;

@Elvis:
Danke für deine ausführliche Antwort! Der Gedanke an eine Konvertierung ist mir auch schon gekommen, nur...

Zitat:

Das sind übrigens absolute Basics in .Net.

Ja. Ich muss zugeben, ich bin gerade erst bei meinen ersten zaghaften .Net-Versuchen.

Jetzt irritiert mich aber die Tatsache, dass ein als "Text" in Access deklariertes Feld korrekt ausgegeben wird...

Gruss
Delbor

[Delbor]

Hi zusammen
Hmmm....
2 Versionen der Prozedur, dasselbe Ergebnis:

Delphi-Quellcode:

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
 var Tabelle : System.Data.DataTable; i: integer; StriBu: StringBuilder;
     Zeile: TableRow; Zelle : TableCell; TZ,j:  Integer;  cRow:DataRow; cCol:DataColumn;
     CreateDate,ZellShow,ZellText,ZellInhalt,HeVa :System.String;
begin
      BdpDataAdapter1.Active:=True;
      BdpDataAdapter1.Fill(Dataset1);
      Tabelle := Dataset1.Tables[0];
      For j := 0 to Tabelle.Rows.Count-1 do begin
         cRow := Tabelle.Rows[j];
         For i := 0 to Tabelle.Columns.Count-1 do begin
            cCol := Tabelle.Columns[i];
            if  cCol.ColumnName='Content_ID' then
               ZellInhalt := cRow[i].ToString;
            if cCol.ColumnName='Text' then begin
               HeVa := cRow[i].ToString;
               StriBu := Stringbuilder.Create(cRow[i].ToString);
               ZellText := StriBu.Append(HeVa).ToString;
            end;
            if  cCol.ColumnName='Visible' then
               ZellShow := cRow[i].ToString;
            if  cCol.ColumnName='Edit_Date' then
               CreateDate := cRow[cCol.Ordinal].ToString;
            Label1.Text := CreateDate;
            Label2.Text:= ZellShow;
            Label3.Text := Zelltext;
            Label4.Text := ZellInhalt;
            Listbox1.Items.Add(cCol.ColumnName.ToString + ' = '+ cRow[cCol.Ordinal].ToString);
         end;
      end;

Contra

Delphi-Quellcode:

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
 var Tabelle : System.Data.DataTable; i: integer; StriBu: StringBuilder;
     Zeile: TableRow; Zelle : TableCell; TZ,j:  Integer;  cRow:DataRow; cCol:DataColumn;
     CreateDate,ZellShow,ZellText,ZellInhalt:System.String;
begin
      BdpDataAdapter1.Active:=True;
      BdpDataAdapter1.Fill(Dataset1);
      Tabelle := Dataset1.Tables[0];
      For j := 0 to Tabelle.Rows.Count-1 do begin
         cRow := Tabelle.Rows[j];
         For i := 0 to Tabelle.Columns.Count-1 do begin
            cCol := Tabelle.Columns[i];
            if  cCol.ColumnName='Content_ID' then
               ZellInhalt := cRow[i].ToString;
            if  cCol.ColumnName='Text' then
               ZellText := cRow[i].ToString;
            if  cCol.ColumnName='Visible' then
               ZellShow := cRow[i].ToString;
            if  cCol.ColumnName='Edit_Date' then
               CreateDate := cRow[cCol.Ordinal].ToString;
            Label1.Text := CreateDate;
            Label2.Text:= ZellShow;
            Label3.Text := Zelltext;
            Label4.Text := ZellInhalt;
            Listbox1.Items.Add(cCol.ColumnName.ToString + ' = '+ ZellText);
         end;
      end;
      BdpDataAdapter1.Active:=False;

Zur Erinnerung:

Zitat:

Delphi-Quellcode: markieren
ZellText := cRow[cCol.Ordinal].ToString;

Mit dieser Zeile lese ich in einem DataSet ein Feld aus, das aus einer Access-Datenbank stammt und da als Memo deklariert ist. Dazu verwende ich die Bdp-Komponenten.
In der Datenbank habe ich mittlerweile die Unicode-Kompression für dieses Feld abgeschaltet. Trotzdem erhalte ich bei einem Probelauf die Testausgabe "System.Char[]" anstelle des tatsächlichen Textes.
Andere Felder, die in der Datenbank als "Text" deklariert sind, werden korrekt ausgegeben.

Zitat:

Der Wert des Items in der DataRow ist ein Char Array, aber ein Char Array ist nur ein Array und wird seine Chars nicht als String ausgeben wenn man ToString auf ihn ausführt.

Meiner erster Versuch war, eine Char-Array-Variable zu deklarieren und dieser den Wert von cCol.Columns[i] zuzuweisen - interessant ist, dass der Compiler meckerte, dass String und Char-Array nicht kompatibel wären. Da die Variable als Char-Array deklariert war, ist klar, wo der String enthalten ist.

Das Problem ist also weiterhin ungelöst.

Gruss
Delbor

[Khabarakh]

Zitat:

Zitat von Delbor

Hi zusammen
@Khabarakh
Meine Deklaration:

Delphi-Quellcode:

cRow:DataRow; cCol:DataColumn;

Ich meinte eigentlich den Typ des Rückgabewertes ;) . Hättest du diesen im Debugger geprüft, hättest du ihn einerseits als Char-Array bestätigen (ein überaus maliziöser Adapter könnte ja wirklich nur einen "System.Char[]"-String ausgeben :stupid: ) und andererseits auch sofort seinen Inhalt einsehen können.

Hast du schon Elvis' Vorschlag ausprobiert?

Delphi-Quellcode:

ZellText := String.Create(cRow[cCol.Ordinal] as array of string);

[Delbor]

Hi zusammen

Zitat:

Hast du schon Elvis' Vorschlag ausprobiert?

Das habe ich jetzt nachgeholt. Delphi's Reaktion: sofortige Fehleranzeige bei 'array' ('@ erwartet aber array gefunden' im Kurzhinweis)und 'Char'('; erwartet, aber 'Char' erhalten, dito).

Die Delphi-Hilfe ist ganz klar besser als unter Dephi2005, wenn auch durch 'F1' nichts gefunden werden kann, doch manuelles Handling schafft da interessante Abhilfe: Zitat aus der .net-Framework SDK:

Zitat:

Die DataColumn ist der grundlegende Baustein bei der Erstellung des Schemas einer DataTable. Das Schema wird erstellt, indem der DataColumnCollection ein oder mehrere DataColumn-Objekte hinzugefügt werden. Weitere Informationen finden Sie unter Hinzufügen von Spalten zu einer Tabelle.

Jede DataColumn besitzt eine DataType-Eigenschaft, die die Art der in der DataColumn enthaltenen Daten bestimmt.

Danach ist der Datentyp des Columns-Objekts standardmässig kein Char-Array, was auch Erklärt, weshalb in Access als 'Text' deklarierte Felder korrekt wiedergegeben werden.


Gruss
Delbor