Recordset-Klasse

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Recordset-Klasse

    Hallo,

    Problem: Bei der Verbindung mit der Mysql Datenbank tritt immerwieder das "to many Connections" Problem auf.
    Versuch der Lösung durch eine eigene Klasse:

    VB.NET-Quellcode

    1. Public Class dbRecordset
    3. Public Sub New(sSQL As String)
    4. _sSQL = sSQL
    6. Loadparameter()
    7. End Sub
    8. Private _rec As ADODB.Recordset
    9. Private _dbRecordset As ADODB.Recordset
    10. Private _cursorType As ADODB.CursorTypeEnum = adOpenDynamic
    11. Private _lockType As ADODB.LockTypeEnum = adLockOptimistic
    12. Private _cursorLocation As ADODB.CursorLocationEnum = adUseClient
    13. Private _sSQL As String
    14. Private _oConn1 As ADODB.Connection
    16. Public Property rec As ADODB.Recordset
    17. Get
    18. Return _rec
    19. End Get
    20. Set(value As ADODB.Recordset)
    21. _rec = value
    22. End Set
    23. End Property
    24. Public Property CursorType As ADODB.CursorTypeEnum
    25. Get
    26. Return _cursorType
    27. End Get
    28. Set(value As ADODB.CursorTypeEnum)
    29. _cursorType = value
    30. End Set
    31. End Property
    32. Public Property LockType As ADODB.LockTypeEnum
    33. Get
    34. Return _lockType
    35. End Get
    36. Set(value As ADODB.LockTypeEnum)
    37. _lockType = value
    38. End Set
    39. End Property
    40. Public Property CursorLocation As ADODB.CursorLocationEnum
    41. Get
    42. Return _cursorLocation
    43. End Get
    44. Set(value As ADODB.CursorLocationEnum)
    45. _cursorLocation = value
    46. End Set
    47. End Property
    48. Public Property sSQL As String
    49. Get
    50. Return _sSQL
    51. End Get
    52. Set(value As String)
    53. _sSQL = value
    54. End Set
    55. End Property
    56. Public Property oConn1 As ADODB.Connection
    57. Get
    58. Return _oConn1
    59. End Get
    60. Set(value1 As ADODB.Connection)
    61. _oConn1 = value1
    62. End Set
    63. End Property
    64. Public Sub Loadparameter()
    65. Dim _oConn1 As New ADODB.Connection
    66. _oConn1.Open(FConnStrg.ConnectionStrg)
    68. Try
    69. _rec = New ADODB.Recordset
    70. With _rec
    71. .CursorLocation = CursorLocation
    72. 'MsgBox(sSQL)
    73. .Open(sSQL, _oConn1, CursorType, LockType)
    74. End With
    76. Catch ex As Exception
    77. MsgBox(ex.ToString)
    79. End Try
    81. End Sub
    82. Public Sub Close()
    83. rec.Close()
    84. oConn1.Close()
    85. End Sub
    87. End Class
    89. '-----------------------AUFRUF
    90. Dim recordset As New dbRecordset("SELECT * FROM daten")
    91. Do Until recordset.rec.EOF = True
    93. With recordset
    94. .rec("Name").Value
    95. .rec.MoveNext()
    96. End With
    97. Loop
    98. .rec.close()


    Problem dieses Lösungsversuches: Aufruf rec("Name").Value ist nicht möglich. Dh. so ist es nicht möglich die Werte einer Spalte aufzurufen.

    Gruß
    Foogo

    Foogo schrieb:

    Problem: Bei der Verbindung mit der Mysql Datenbank tritt immerwieder das "to many Connections" Problem auf.
    Bei mir nicht.
    Guggemol allgemeine Zugriffs-Lösung für: MySql, Access, SqlCe, SqlServer, DatasetOnly, das PersonBeruf-Sample im Download2010 - das ist eine lauffähige Anwendung, die auf einer MySql im Internet rumorgelt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Danke, aber das erscheint mir etwas komplex für mein Wissensstand. Wenn ich das richtig gesehen habe gehst du über ein Dataset. Und ich will ja nur ein Recordset implementieren. Und auch verstehen warum meine Lösung so nicht klappt.

Facebook
Telefonspende