Datagrid zeigt Inhalt des Recordsets nicht an

01/08/2008 - 15:08 von Peter Maler | Report spam
Hallo Newsgroup,

ist mir schon fast peinlich zu fragen, aber ich hab da ein kleines Problem
beim zuweisen eines Recordsets an ein Datagrid.

Auf der Form hab ich ein Datagrid.

Hier mein Code:

'Recordset öffnen
Public Function OpenRecordset(ByRef cnConn As Connection, ByRef
rstRecordset, strTabelle As String, Optional blnSilent As Boolean) As
Boolean
On Error GoTo OpenRecordsetError
Set rstRecordset = New ADODB.Recordset
With rstRecordset

.CursorType = adOpenKeyset 'adOpenDynamic
.LockType = adLockOptimistic
'.CursorLocation = adUseClient
.Open strTabelle, cnConn
Debug.Print strTabelle

End With
OpenRecordset = True
Exit Function

OpenRecordsetError:
OpenRecordset = False
If blnSilent = True Then
Else

MsgBox "Möglicherweise ist die Verbindung zur Datenbank nicht mehr
vorhanden.", vbCritical, "Fehler"
End If
End Function


'Datagrid füllen //Recordset hab ich global deklariert
Public Sub loaddatas(strsql As String)

If myconnection.OpenRecordset(scConn.cnEngine, rstr, strsql) = True Then

Set Me.dg.DataSource = rstr

End If

End Sub


Das Recordset wird einwandfrei gefüllt, aber im Datagrid tut sich nix.

Wenn ich statt eines Datagrid, ein HFlexGrid nehme funktionierts. Brauche
aber ein DG um Daten zu modifizieren. In einem anderen Projekt funktioniert
das, allerdings nutze ich da eine MS SQL Server DB.


VB6 SP6
Access DB
Provider MS JET OLEDB 4.0


Schönen Gruß
Peter
 

Lesen sie die antworten

#1 Peter Maler
01/08/2008 - 15:32 | Warnen spam
Hat sich erledigt... hab die CursorLocation vergessen. *DOH!*

"Peter Maler" schrieb im Newsbeitrag
news:e2sp$
Hallo Newsgroup,

ist mir schon fast peinlich zu fragen, aber ich hab da ein kleines Problem
beim zuweisen eines Recordsets an ein Datagrid.

Auf der Form hab ich ein Datagrid.

Hier mein Code:

'Recordset öffnen
Public Function OpenRecordset(ByRef cnConn As Connection, ByRef
rstRecordset, strTabelle As String, Optional blnSilent As Boolean) As
Boolean
On Error GoTo OpenRecordsetError
Set rstRecordset = New ADODB.Recordset
With rstRecordset

.CursorType = adOpenKeyset 'adOpenDynamic
.LockType = adLockOptimistic
'.CursorLocation = adUseClient
.Open strTabelle, cnConn
Debug.Print strTabelle

End With
OpenRecordset = True
Exit Function

OpenRecordsetError:
OpenRecordset = False
If blnSilent = True Then
Else

MsgBox "Möglicherweise ist die Verbindung zur Datenbank nicht mehr
vorhanden.", vbCritical, "Fehler"
End If
End Function


'Datagrid füllen //Recordset hab ich global deklariert
Public Sub loaddatas(strsql As String)

If myconnection.OpenRecordset(scConn.cnEngine, rstr, strsql) = True Then

Set Me.dg.DataSource = rstr

End If

End Sub


Das Recordset wird einwandfrei gefüllt, aber im Datagrid tut sich nix.

Wenn ich statt eines Datagrid, ein HFlexGrid nehme funktionierts. Brauche
aber ein DG um Daten zu modifizieren. In einem anderen Projekt
funktioniert das, allerdings nutze ich da eine MS SQL Server DB.


VB6 SP6
Access DB
Provider MS JET OLEDB 4.0


Schönen Gruß
Peter

Ähnliche fragen