VB6; MSFlexgrid;Spaltenüberschrift

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich möchte hier nochmals auf mein Problem mit dem MSFlexgrid
zurückkommen.

Mit der Spaltenüberschrift beim MSFlex2 sieht es bei mir so aus:
Wenn ich keine Verbindung zur DB habe, dann funktionieren die neuen
Überschriften, es sind halt keine Daten im Grid.
Doch wenn ich eine Verbindung zur DB habe, dann stehen die Feldnamen
der DB - Tabelle als Überschrift im Flexgrid.

Habe schon viel herumgesucht, leider nichts passendes gefunden.

Vielleicht gibt es doch noch eine Lösung für meine Probleme.
Dafür bin ich sehr dankbar.

mfG
Othmar Treml

#2

Hi,

wenn Du an das Flexgrid eine Tabelle bindest, werden die Feldnamen im Kopf des Flexgrid ausgegeben.
Um das zu verhindern müsstest Du den Quellcode des Flexgrid haben und den verändern.

Du kannst aber die Einträge nach der Anzeige im Flexgrid wieder überschreiben. Das musst Du nur nach jedem Refresh der Datenbank wiederholen.

Gruß Rainer

#3

Hallo Rainer,

habe es gestern so probiert und es hat geklappt.

Ich dachte, dies sei umständlich.

nach dem refresh:
MSFlexgrid2.row = 0
MSFlexgrid2.col = 0 : MSFlexgrid2.Text = „Datum“
MSFlexgrid2.col = 1 : MSFlexgrid2.Text = „Thema“
usw

hätte es auch mit
With MSFlexgrid2
.row = 0
usw
machen können.

Mein Problem mit der SQL Datumsabfrage habe ich geschafft - auch umständlich aber es geht

SQL_String_Flex2 = „Select * from VTR_List where Datum >= # „_
& format$(Ausw_Dat, „mmm-dd-YYYY“) & #““

Zuerst wollte ich zur Abfrage gleich den Wert von Kalendar2, wie Du mir geraten hast, verwenden.

Das ging bei mir nicht. Warum weiß ich nicht.
Habe mir dann den Inhalt SQL_String_Flex2 ausgedruckt, und der war vom Datum her, falsch!

Nun habe ich den Wert von Kalendar2.Wert in eine Variable vom Typ Date
gespeichert und diese für die Auswahl verwendet. Das funktionierte.
Wiso der Wert von Kalendar2.Wert nicht direkt funktioniert ist mir ein Rätsel.

Vielleicht hast Du eine Antwort!??!

lebe Grüß
Othmar Treml

#4

Hallo,

habe es gestern so probiert und es hat geklappt.

Ich dachte, dies sei umständlich.

nach dem refresh:
MSFlexgrid2.row = 0
MSFlexgrid2.col = 0 : MSFlexgrid2.Text = „Datum“
MSFlexgrid2.col = 1 : MSFlexgrid2.Text = „Thema“
usw

OK, das geht, ist aber recht langsam. Für 2 Felder ist das erträglich, werden es mehr würde ich es eher so machen:

Dim c As Integer, txt As String, arr() As String
txt = "Datum;Thema"
arr = Split(txt, ";")
For c = 0 To UBound(arr)
 MSFlexGrid2.TextMatrix(0, c) = arr(c)
Next

Das ist erheblich schneller.

hätte es auch mit
With MSFlexgrid2
.row = 0
usw
machen können.

Mein Problem mit der SQL Datumsabfrage habe ich geschafft -
auch umständlich aber es geht

SQL_String_Flex2 = „Select * from VTR_List where Datum >= # „_
& format$(Ausw_Dat, „mmm-dd-YYYY“) & #““

Zuerst wollte ich zur Abfrage gleich den Wert von Kalendar2,
wie Du mir geraten hast, verwenden.

Das ging bei mir nicht. Warum weiß ich nicht.
Habe mir dann den Inhalt SQL_String_Flex2 ausgedruckt, und der
war vom Datum her, falsch!

Nun habe ich den Wert von Kalendar2.Wert in eine Variable vom
Typ Date
gespeichert und diese für die Auswahl verwendet. Das
funktionierte.
Wiso der Wert von Kalendar2.Wert nicht direkt funktioniert ist
mir ein Rätsel.

Vielleicht hast Du eine Antwort!??!

Nur eine Idee. Du hast in Deiner Datenbank scheinbar nicht nur das Datum sondern auch die Zeit. Erweitere doch einfach mal das Format um die Zeitangabe. Wie das exakt aussehen muss habe ich leider keine Ahnung und keine Daten zum Testen. Experiementier doch einfach mal.

Gruß Rainer