vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Scheinbar leeres Recordset 
Autor: amateur
Datum: 03.05.07 09:35
Hallo!
Ich möchte ein eine Tabelle CPU aktualisieren und das Ergebnis direkt in einem MSHFlexGrid anzeigen lassen. Die Aktualisierung als solche funktioniert auch, jedoch bekomme ich anschließend zwei Fehler.
1. Das Recorset lässt sich nicht mit dem MSHFlexGrid verknüpfen (Lzf 30022)
2. Bei Schließen der Verbindung bekomme ich den Lzf 3704

Das Ganze passiert aber nur bei Aktualisierungsabfragen, normale Select-Abfragen funktionieren tadellos.

Die Verbindung zur DB stelle ich folgendermaßen her: 
Public Sub InitConnection(sql)
 
    'Verbindung zu Datenbank erzeugen
 
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000
    Cn.ConnectionString = db_pfad 'Datenbankpfad
 
    Cn.CursorLocation = adUseClient
    Cn.Mode = adModeReadWrite 'zum lesen und schreiben öffnen
 
    Cn.Open 'Verbindung herstellen
 
    'Recordset öffnen
    Set Rs.ActiveConnection = Cn
    Rs.LockType = adLockOptimistic
    Rs.Source = sql
    Rs.Open
 
End Sub
Getrennt wird sie so: 
Public Sub CloseConnection()
 
    Rs.Close
    Set Rs = Nothing
    Cn.Close
    Set Cn = Nothing
 
End Sub
Und der Code für die Aktualisierung sieht so aus: 
Private Sub Command1_Click()
 
    sql = "Update " & Combo2.Text & " Set " & Combo2.Text & ".Bezeichnung = '" _
      & Text1.Text & "' Where " & Combo2.Text & ".ID = " & _
      MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & ";"
        Call InitConnection(sql) 'Datenbank öffnen
    Set MSHFlexGrid1.DataSource = Rs 'Ergbnismenge der Abfrage als Datenquelle 
    ' für die Tabelle festlegen
    MSHFlexGrid1.Refresh
    Call CloseConnection 'Datenbank schließen
 
End Sub
Was läuft hier schief??
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Scheinbar leeres Recordset1.545amateur03.05.07 09:35
Re: Scheinbar leeres Recordset801wincnc03.05.07 13:22
Re: Scheinbar leeres Recordset715amateur03.05.07 15:27

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel