Deutsches Lazarusforum

BDE war Desktopdatenbank, dort hat Recordcount einen Sinn.

Alles klar, BDE war Desktopdatenbank. Darum haben wir damit auch gegen Oracle-Server programmiert früher, so in Zeiten von Delphi 4.

Deshalb hier noch mal explizit Danke an alle die mir hier bei meinem Problem geholfen haben, und ...

wp_xyz hat geschrieben: So 29. Nov 2020, 10:38 Wahrscheinlich gibt es außer dir kaum jemanden, der den OLE-Mist verwendet.

Der Mensch ist ein Gewohnheitstier. Ich mach das schon seit 20 Jahren so. Simpler kann man keine Daten nach Excel schieben.

Darum geht es ja gar nicht. Fehler sind normal und irgendwo findet sich fast immer ein Workaround.

Wenn ich den Recordcountfehler in TSQLQuery nehme, den findet man sofort zuhauf mit dem Workaround First, Last, First. Ich fühle mich in BDE-Zeiten zurückgesetzt.

Aber das man einfach den String in ...

theo hat geschrieben: Fr 27. Nov 2020, 17:19
Danke fürs fixen.

+1

Mich verwundert etwas dass man zu diesem Fehler gar nichts findet. Ich werde ja nicht der Erste gewesen sein, dem das passiert ist.

Sieben hat geschrieben: Do 26. Nov 2020, 16:09 Hast du (OLE)Variant auch mal probiert? So rein interessehalber?

Ja, habe ich. Ich glaube das einzige was ich wirklich nciht probiert habe war Widestring

Kannst du mal trotzdem noch folgendes (wie im internationalen Forum erwähnt) versuchen, ich habe nämlich kein Excel und würde gerne wissen, ob es tatsächlich daran liegt woran ich denke, dass es liegt ;) ):

app_excel.workbooks[1].sheets[1].cells[row+1, col+1] := WideString(grid.cells[col, row ...

Recht erfolglos =>
Access Violation.

Ich habe jetzt den Umweg über fpSpreedsheet gewählt und auch schon umgesetzt. War jetzt das Einfachste und funktioniert.

Es scheint nicht an den Umlauten zu liegen. Er mag offensichtlich keine Strings. Ich habe jetzt mal etwas experimentiert.

var App_Excel : OleVariant;
row, col : Integer;
num : Currency;
s : String;
begin
app_excel := CreateOleObject('Excel.Application');
app_excel.visible := true;
app_excel ...

Ich arbeite mit TsWorkSheetGrid ohne Probleme in fpc 3.2 und 3.3

Was mir an deinem Beispielcode auffällt ist, dass du EIN .add durchführst aber auf das zweite Element mit [1] zugreifst. Müsste es nicht [0] sein?

Na ja, die Frage ist halt erst Mal ist es ein Bug oder mach ich was falsch.

Excel ...

Unter Delphi nutze ich folgenden Code um Daten nach Excel zu schieben


procedure Tfrm_mdi_konto.doExcel(grid:TStringgrid);
var App_Excel : Variant;
row, col : Integer;
begin
app_excel := CreateOleObject('Excel.Application');
app_excel.visible := false;
app_excel.workbooks.add;
app_excel ...