DevTrain Forum - Datagrid zeigt keine Ergebnisse an

Forum: Visual Basic | Thema: Datagrid zeigt keine Ergebnisse an | Von: G. Guest ( 23.09.2002 08:58)

		In einer Form kann ich zwar Daten aus einem Recordset anzeigen (Label2.Caption = rs!DMSID), aber das Datagrid bleibt leer. Während des Programmlaufs blinkt das Datagrid zwar kurz auf, aber es werden darin keine Daten angezeigt. Was mache ich falsch?

Liebe Grüße in den Süden

Gregor Doege

Der Code lautet:

Private Sub Command1_Click()
    'Eingaben prüfen
    If DatabaseName.Caption = "" Then
        MsgBox "Es wurde keine Datenbank geöffnet!"
        'Form1.Datenbankopen_Click
    End If
    
    If Not ExistFile(DatabaseName.Caption) Then
        MsgBox "Die angegebene Datenbankdatei existiert nicht."
        'Datenbankopen_Click
    End If
    
ValidateEingabe:
    If Val(Text1.Text) < 1 Then
        Text1.Text = InputBox("Es wurde kein gültiger Suchwert eingegeben.")
        GoTo ValidateEingabe
    End If
    
    
    ' Datenbankanbindung
    
    Dim conn As New Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    
      conn.CursorLocation = adUseClient
      conn.Provider = "Microsoft.Jet.OLEDB.4.0"
      conn.Open DatabaseName.Caption
      
      'Datensatz suchen und Ergebnis anzeigen
      
      
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockOptimistic
      sql = "SELECT * FROM Zahlenwerte WHERE DocstoreID LIKE '" & Text1.Text & "'"
      'rs.Open "Zahlenwerte", conn, , adLockOptimistic, adCmdTable
      'rs.Filter = "DocstoreID" & " LIKE '" & Text1.Text & "'"
      
      Set rs.ActiveConnection = conn
      rs.Open sql
      
      If rs.EOF Then
        Label2.Caption = "nicht gefunden!"
      Else
        Label2.Caption = rs!DMSID
        Set DataGrid1.DataSource = rs
      End If
      
      
      'Datenbankverbindung schließen
      
      conn.Close
      Set rs = Nothing
      Set conn = Nothing

End Sub



	

Betreff Von Datum

RE:Datagrid zeigt keine Ergebnisse an

hallo versuche mal ein disconnected Recordset zuzuweisen. disconnected heisst... rs.Cursorlocation = adUseClient und nach dem öffnen des rs... set rs.ActiveConnection = nothing Sollte das auch...

Bernhard Elbl 23.09.2002 17:17

RE:RE:Datagrid zeigt keine Ergebnisse an

Das Disconnecten hat geklappt - auch wenn ich nicht recht verstehe, wieso *g* Aber vielen Dank! Gregor

Gregor Doege 24.09.2002 09:26

RE:RE:RE:Datagrid zeigt keine Ergebnisse an

hallo kein Problem aber niemand soll dumm sterben ;-) also hier die Erklärung: disconnected Recordsets können, wie der Name "disconnected" schon sagt, auch ohne Connection überleben. In deinem...

Bernhard Elbl 26.09.2002 20:01

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!