Visual Basic und MSflexgrid

Na ja 2 GB Ram sollten ja wohl reichen. Dann werd ich mal woanders nach nem Fehler suchen.

Ferdi

Ich zapfe die DSN an.
Dort lege ich verschiedene Verbindungen an, dann brauch ich nur noch mit VB auf die DSN zuzugreifen. Ich habe eigendlich nur vor Inhalte von Tabellen auszulesen und da sind 2 dabei die halt einbisschen länger sind (ca 65000) Zeilen. Nach 6000 Zeilen sagt mir das Prog, es kann nicht mehr ins Flexgrid schreiben.

Ferdi

Morgen im Laufe des Vormittag schick ich mal den Quellcode den ich bis jetzt habe.

Muss jetzt gospeln gehen.

Ferdi

Moin
So sieht der Quellcode aus, bitte nicht an der Unordnung stören , bin halt noch am rumprobieren
Wenn ich bei diesem Gebilde eine Tabelle mit mehr als 6000 Zeilen einlesen, Anzahl der Spalten weiss ich nicht, gibts eine Fehlermeldung.


Ferdi

*
Public Sub Form_load()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim viel As Long
Dim vielzeilen As Long
Dim i As Long
Dim nRow As Long


Set Conn = New ADODB.Connection
Conn.Provider = "MSDASQL"
Conn.Mode = adModeRead
Conn.CursorLocation = adUseClient

Conn.Open "Provider=MSDASQL;DSN=????"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient

Set rs.ActiveConnection = Conn
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockReadOnly

rs.Open "select distinct table_schema from information_schema.tables"

'Datenbank auswählen und Connection ändern

i = 0
For i = 0 To rs.Fields.Count - 1
Text1.Text = rs.Fields(i).Value
Next i


'Flexgrid füllen
viel = rs.Fields.Count
With MSFlexGrid1

' Zählvariable für die aktuelle Zeile
nRow = 0
.Rows = rs.RecordCount + 1
While Not rs.EOF
nRow = nRow + 1
i = 0
For i = 0 To rs.Fields.Count - 1
' ' Aktuellen Wert ins FlexGrid kopieren
.TextMatrix(nRow, i) = rs.Fields(i).Value
.Col = i 'Spalte zuweisen
Next i
' auch hier gibt es ein "MoveNext"
rs.MoveNext
Wend

If .Row > 0 Then .Row = 1
.Enabled = (.Rows > 1)

End With

'Recordset schließen
rs.Close
Set rs = Nothing

'Connection schließen
Conn.Close
Set Conn = Nothing

End Sub

Hier die Fehlermeldung:

Laufzeitfehler '30006'
Reservieren von Speicher für Flex Tabelle nicht möglich


.Rows = rs.RecordCount + 1

Wenn ich mit der Maus über "rs.RecordCount" gehe zeigt mir das Kontextmenue 75606 an
aber wie gesagt die Meldung kommt auch schon bei einem Wert von 8000


Das ich nicht soviel Tabellen weis ich selbst, hatte nur bei dem Quellcode eine andere SQL-Abfrage aktiv, das ist aber doch nebensächlich da ihr ja auch nicht die Datenbank habt.


Ferdi