Dataset only -> DB / Welches System und wie?

  • VB.NET
  • .NET (FX) 4.0

Es gibt 96 Antworten in diesem Thema. Der letzte Beitrag () ist von Bit-Bieger.

    Dataset only -> DB / Welches System und wie?

    Mahlzeit zusammen.

    Ich durfte heute mein Dataset Only-Projekt im Unternehmen vorstellen und es soll nun zu einer Testphase kommen.
    Allerdings brauche ich dafür zwingend Multi-User Zugriff, das wird wohl nur mit Datenbank funzen, damit sich
    Änderungen nicht gegenseitig überschreiben.

    Meine Fragen dazu nun:
    - für die Testphase wird das nicht an die große Glocke gehangen, sprich die IT wird mir keinen DB-Server zur Verfügung stellen.
    Die Mittel, die ich selbst habe wäre ein Netzlaufwerk und ggf. auch einen PC den ich an meinem Standort einfach "dauerhauft laufen lassen kann" (pseudo-server sozusagen)

    Access kommt nicht in Frage, da die anderen PC's dann die Runtime dazu bräuchten, die die IT wieder installieren müsste.
    Gibt's was "kleines", was mal grad eben auf einem lokalen PC installiert werden und somit als DB-Server fungieren kann?
    wenn ja:

    - wie wäre der nun nächste Schritt mein Projekt von DataSet Only auf DB umzurüsten? Recordlock ist sinnvoll aber nicht vorrangig zu betrachten - wenn's natürlich
    im Zuge der Umstrukturierung Sinn macht, dann nehm ich das natürlich gerne direkt mit ;)

    oder ist das alles doch irgendwie über XML und DataSet Only lösbar?

    LG
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Wenn du zwingend multiuser Zugriff brauchst geht das nicht mehr mit Dataset only.
    Wie wäre es mit sql Express. Das kannst du auf einem extra Rechner laufen lassen. Zumindest für die Testphase.
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    Ich hätte gedacht, auch SqlServer kann man auf einem lokalen Rechner installieren. Da gibts glaub auch kostenlose Versionen - achja, glaub SqlExpress heisst die.

    Access wäre imo noch nicht draussen. AFAIK brauchen die Clients da keine RunTime.
    Die Client-Technologie heisst "OleDB", und ist im Framework OnBoard (ebenso wie die SqlServer-Client-Technologie: "SqlClient")
    Vielleicht irre ich mich auch, und kenne einfach nur keinen Windows-Rechner, auf dem OleDb nicht installiert ist. Da gibts iwie den "Jet-OleDb"-und den "OleDb.ACE 12.0"-Provider - (meist sind beide da, und ich weiss nie, was ich in den ConnectionString schreiben muss.)

    Aber SqlExpress besser - ist zB in Dts->Db eleganter gecodet.
    Hmm - mir war, ich hätte eine SqlServer-VAriante reingecodet, aber vielleicht auch nicht. Wenn nicht und wolle, melde dich.

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

    Akanel schrieb:

    Wie wäre es mit sql Express.

    hört sich gut an, teste ich dann mal

    ErfinderDesRades schrieb:

    Die Client-Technologie heisst "OleDB"

    das hatte ich bereits beim Importieren bzw. Einlesen von Excel-Dateien, das lief nicht ohne die runtime....

    also bleibt erstmal nur SQL-Express zum Probieren.
    Ich les' mir dein DTS->DB mal durch und schau' mal, wie weit ich damit komme...

    EDIT: Ist MySQL auch machbar? Ich hab' noch nen raspberry hier rumfliegen, da könnte ich mysql / mariadb auf debian aufsetzen und die kiste in der firma anklemmen...
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

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

    Also wie oben schon erwähnt wäre mysql der für mich beste Weg.
    Müssen die Tabellen schon in der MySQL-Datenbank vorhanden sein oder kann ich die mit meiner Anwendung da auch erstellen lassen (mit den Relations)? Wenn ja, wie?
    Das wäre jetzt erstmal der 1. Schritt :)

    Mein "Schlachtplan":
    1. Datenbank bereitstellen - Tabellen manuell anlegen / durch Anwendung anlegen lassen
    2. Programm für MySQL vorbereiten
    3. Aktuellen Datenstand aus XML-Datei an Datenbank übergeben
    4. weitere Schritte
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Ich hab mit MySql keine guten Erfahrungen gemacht. Immer iwelche Versionskonflikte.
    Dataset->Db müsstest du dir eine MySql-Variante zu coden.
    Wenn MySql In-Out-Parameter nicht unterstützt, musst du in einem Event den neu generierten PrimKey abrufen und einpflegen (ähnlich dem AccessSample).
    Wenn du dann mal auf SqlServer wechselst, kann das entfallen, weil SqlServer unterstützt In-Out-Parameter.

    Ich kenns auch nur, dass MySql-Datenmodelle mittels PHP-Admin gebaut werden, und dassis ist eine echt mega-dämliche Oberfläche, bei der man blöde wird, wenn man Relationen anlegen will, Not-Null-Felder, DefaultValues und Kram.

    Du wirst schon so einen Vogel kriegen, selbst wenn du einen brauchbaren Datenbank-Designer zur Verfügung hast.
    Etwa ein brauchbarer Datenbank-Designer finde ich das Access-Frontend - "Beziehungen"-Ansicht.
    Bastel damit mal zur Übung einen Teil deines Datenmodels in eine Access-DB (zum wegschmeissen). Nur dass du eine Vorstellung vom Aufwand kriegst, mit einem brauchbaren Tool.
    Und dann sieh zu, dass du für MySql ein ebenso komfortables Managment-Tool herbeikriegst.
    Weil wenn ich recht erinnere hast du echt einen Haufen Tabellen und Relationen und Kram - das muss alles ganz ganz akkurat ebenso in der DB aufgebaut sein.


    Ich hab übrigens eine DB-Generator-Anwendung gebastelt, vor langem, und weiss jetzt nicht, ob die auch MySql unterstützt.
    DbGenerator heisst das Ding, im SourceCode-Austausch.
    Das analysiert das typDataset und generiert dann Sql-Statements (und kann auch ausführen), mit denen ein passendes Datenmodell inne Db konstruiert wird.
    Crux wird sein, das Ding ans Laufen zu bringen - ist vlt. zickig, weil abhängig von installierten DB-Providern oder sowas.

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

    So, mit deinem DB-Generator hab' ich nu' schonma die Tabellen in die Access-Datenbank bekommen :thumbup:
    Wenn wir schonmal bei Access sind - wäre nun der nächste Schritt mal zu schauen, mein DataSet mit der Access-DB zu
    verbinden und gucken dass ich die Daten darein bekomme?

    LG

    Edit: Hab die Persistance nun in mein Projekt eingefügt OleDbPersistance.vb
    und wie folgt auf meiner frmMain eingebunden:

    VB.NET-Quellcode

    1. Private _Persistance As OleDbPersistance
    2. Private _sCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\dtsLogistik.accdb" 'aktuell: ACE-SqlCe
    4. Public Sub New()
    5. InitializeComponent()
    6. _Persistance = New OleDbPersistance(_sCon, Dts)


    und einen Button erstellt, der eigentlich mein DataSet rüberschmeißen sollte...
    bzw. ich glaube ich liege richtig mit meinem Gedanken, dass er mit Save() nur gerade gemachte Änderungen rüberschmeißt?

    Visual Basic-Quellcode

    1. Case sender Is tsFillDB
    2. _Persistance.Save()
    3. msgInformation("OK")


    also was tun, um erstmal den aktuellen Datenstand darein zu bekommen?
    EDIT: Ich glaub' ich brauch deine DB-Extensions - allerdings bin ich mir nicht sicher wie ich die korrekt einbinde, denn ich hab ja nur einen Teil
    deiner Helpers...
    Bilder

    • unbenannt.png

      290,17 kB, 3.790×1.645, 157 mal angesehen
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „tragl“ ()

    tragl schrieb:

    wäre nun der nächste Schritt mal zu schauen, mein DataSet mit der Access-DB zu
    verbinden und gucken dass ich die Daten darein bekomme?
    Ja, da ist nichts vorgesehen.
    Musste dir wohl eine Spezial-Methode bauen, die das Dataset von Platte lädt - nicht die Lade-Methode meiner Helpers.
    Und dann das Dataset mitte DbPersistance abspeichern.

    Weil meine Helpers setzen glaub nach dem Laden alle Datensätze auf Unchanged, und dann denkt die Persistance, es gebe nix zu speichern.
    Aber ist lange her, müsste man evtl nochmal untersuchen, ob meine Helpers wirklich so böse sind.

    In deinem Youtube-Video DbGenerator machst du genau das. Du erstellst aus deinem DTS die Tabellen in der Datenbank,
    dann schreibst du per Click die Daten aus dem DTS in die Datenbank...

    Wäre schön, wenn du helfen könntest die Helpers dann ordentlich zusammen mit den DBExtensions einzufädeln.. :)
    Folgende Helpers habe ich bei mir drin:
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    von DbExtensions rate ich ab - die sind zu fett, und abhängig von meine Gesamt-Helpers zum damaligen Stand.
    Die Gesamt-Helpers passen eh nicht mehr zu dem, was du hast, weil du hast die HelpersSmallEd ja glaub teilweise ziemlich verändert.
    Nimm DbPersistance - dassis vergleichsweise schlank und ohne Abhängigkeiten (oder nur ganz simple).

    Ok, dann damit.
    Würdest du mir dabei bei folgenden Sachen helfen:

    - alle Daten im DTS an Access-DB übergeben (egal ob geändert oder nicht)
    - Erkennen, ob Tabelle aus DTS bereits in der Access-DB existiert - falls nicht, dann dort anlegen (mit Relations)
    oder annersrum: Kann eine Table im DTS angelegt werden (mit Relations) wenn ich diese in Access hinzufüge? (was wäre hier sinnvoller?`)

    Ich denke das wäre für's Erste das Wichtigste - den "Rest" stellt DBPersistance ja schon bereit.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Tabellen in DB oder Dataset anlegen ist nicht sinnvoll.
    Das sollte mit dem DBGenerator erledigt sein, bzw. annersrum kann VisualStudio das.

    Der DatenTransfer der bestehenden Dataset-Daten in leere Access-Tabellen ist das Thema (so wie ich verstehe).
    Jo, und das kannich demnächst mal machen, vielleicht als Extra-Funktion der Persistance.

    ErfinderDesRades schrieb:

    Jo, und das kannich demnächst mal machen, vielleicht als Extra-Funktion der Persistance.

    das wär' prima :thumbup: gern helf' ich auch dabei...

    ErfinderDesRades schrieb:

    Das sollte mit dem DBGenerator erledigt sein, bzw. annersrum kann VisualStudio das.

    überschreibt der db-generator denn ggf. vorhandene tables?
    Hier geht's mir darum, dass wenn mein Programm erweitert wird (Felder oder eben komplette Tables), dass ich irgendwie die Änderungen am DataSet auch
    an die Datenbank weitergeben kann. Wenn ich dazu den DB-Generator nutzen kann soll's mir auch recht sein - er soll mir dann nur nix zerschießen inne DB ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    zeig mal die Transfer-Methode.
    Und du hast wirklich alle Doof-Fehler ausgeshlossen?
    Also das Dataset ist befüllt, wenn DbPersistance.Save ausgeführt wird, und die DbPersistance.Save-Methode wird wirklich durchlaufen (die muss ja im einzelschritt ziemlich kompliziert herumhopsen), und DBP saved wirklich das befüllte Dts (nicht eine annere Instanz), und so Zeugs?
    Und FAQ: Db speichern failt isses auch net?
    Also dann zeig mal die Transfer-Methode, und wenn ich da nix sehe, musste wohl malwieder das Projekt anhängen, mit allem drum und dran, und getestet, dasses auch läuft, wenn mans downloaded.

    Moin.

    Ich hab die Datenbankdatei garnet ins Projekt eingebunden, die liegt "einfach nur" im Datenverzeichnis bei der XML und dem DataSet.
    Zeile 69-81 ist deine originale Save()-Methode, Zeile 55-67 wäre die SaveAll()-Methode, wo dann nicht mehr nach geänderten oder
    gelöschten Datensätzen selektiert wird. Datenbank bleibt aber leer. :huh:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class OleDbPersistance
    5. Private _Con As OleDbConnection
    6. Private _Adapters As Dictionary(Of DataTable, OleDbDataAdapter)
    7. Private _RankedTables As New List(Of DataTable)
    8. Private _dts As DataSet
    9. Private _RequeryIdCommand As OleDbCommand ' not neccessary, if in-/out-DbParameter-Support is present
    10. Private _hshTempTables As HashSet(Of DataTable)
    12. Public Sub New(connectionString As String, dts As DataSet)
    13. _dts = dts
    14. _Con = New OleDbConnection(connectionString)
    15. _RequeryIdCommand = New OleDbCommand("SELECT @@IDENTITY", _Con)
    16. _hshTempTables = New HashSet(Of DataTable)(_dts.Tables.Cast(Of DataTable))
    17. While _hshTempTables.Count > 0 : BuildRankedTables(_hshTempTables.First) : End While
    18. _Adapters = New Dictionary(Of DataTable, OleDbDataAdapter)
    19. For Each tb In _RankedTables
    20. Dim adp = New OleDbDataAdapter("Select * from [" & tb.TableName & "]", _Con)
    21. Dim cmb = New OleDbCommandBuilder(adp)
    22. cmb.QuotePrefix = "`"
    23. cmb.QuoteSuffix = "`"
    24. If tb.PrimaryKey.Length = 1 AndAlso tb.PrimaryKey(0).AutoIncrement Then
    25. AddHandler adp.RowUpdated, AddressOf Table_RowUpdated ' not neccessary, if in-/out-DbParameter-Support is present
    26. End If
    27. _Adapters.Add(tb, adp)
    28. Next
    29. End Sub
    31. Public Sub FillAll()
    32. _dts.Clear()
    33. _Con.Open()
    34. For Each tb In _RankedTables
    35. _Adapters(tb).Fill(tb)
    36. Next
    37. _Con.Close()
    38. End Sub
    40. ''' <summary> since SELECT- and FROM-Clause are predefined by the tables-structure sqlAfterFrom can contain any other valid Sql-clauses, especially WHERE. To prevent Sql-Injection-attacs it is strongly recommended to use '?' as Parameter-PlaceHolder and submit appropriate args</summary>
    41. Public Sub CustomFill(table As DataTable, sqlAfterFrom As String, ParamArray args() As Object)
    42. ClearRecursive(table)
    43. Using adp = DirectCast(DirectCast(_Adapters(table), ICloneable).Clone, OleDbDataAdapter)
    44. Dim cmd = adp.SelectCommand
    45. cmd.CommandText &= " " & sqlAfterFrom
    46. For i = 0 To args.Length - 1
    47. cmd.Parameters.AddWithValue("@p" & i, args(i))
    48. Next
    49. _Con.Open()
    50. adp.Fill(table)
    51. _Con.Close()
    52. End Using
    53. End Sub
    55. Public Sub SaveAll()
    56. _Con.Open()
    57. For Each tb In _RankedTables
    58. Dim rows = tb.Select("", "")
    59. _Adapters(tb).Update(rows)
    60. Next
    61. Dim skipSubOrderedRowsConfig = New _AcceptruleCascadeConfig(_dts)
    62. For Each tb In _RankedTables
    63. Dim n = _Adapters(tb).Update(tb) ' send the remaining Deletes, skipping Cascade-Deleted-Rows, which will be deleted by Db itself
    64. Next
    65. skipSubOrderedRowsConfig.Restore()
    66. _Con.Close()
    67. End Sub
    69. Public Sub Save()
    70. _Con.Open()
    71. For Each tb In _RankedTables
    72. Dim rows = tb.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
    73. _Adapters(tb).Update(rows) ' first send Inserts and Updates
    74. Next
    75. Dim skipSubOrderedRowsConfig = New _AcceptruleCascadeConfig(_dts)
    76. For Each tb In _RankedTables
    77. Dim n = _Adapters(tb).Update(tb) ' send the remaining Deletes, skipping Cascade-Deleted-Rows, which will be deleted by Db itself
    78. Next
    79. skipSubOrderedRowsConfig.Restore()
    80. _Con.Close()
    81. End Sub
    83. ''' <summary> on Insert-Statements requery the database-generated primary-key. This is not neccessary on in-/out-DbParameters supporting Databases </summary>
    84. Private Sub Table_RowUpdated(sender As Object, e As OleDbRowUpdatedEventArgs)
    85. If e.StatementType <> StatementType.Insert Then Return
    86. Dim primCol = e.Row.Table.PrimaryKey(0)
    87. Dim primVal = _RequeryIdCommand.ExecuteScalar
    88. e.Row(primCol) = Convert.ChangeType(primVal, primCol.DataType)
    89. End Sub
    91. Private Class _AcceptruleCascadeConfig : Inherits List(Of Tuple(Of ForeignKeyConstraint, AcceptRejectRule))
    92. ' AccepRule.Cascade removes subordered rows from datasets change-tracking, during Updating Database
    93. ' Required while Updating deleted rows, since the db deletes subordered rows already by itself.
    94. Public Sub New(ByVal dts As DataSet)
    95. For Each rl As DataRelation In dts.Relations
    96. Dim ck = rl.ChildKeyConstraint
    97. If ck Is Nothing Then Continue For
    98. MyBase.Add(Tuple.Create(ck, ck.AcceptRejectRule))
    99. ck.AcceptRejectRule = AcceptRejectRule.Cascade
    100. Next
    101. End Sub
    102. Public Sub Restore()
    103. For Each tpl In Me
    104. tpl.Item1.AcceptRejectRule = tpl.Item2
    105. Next
    106. End Sub
    107. End Class
    109. Private Sub BuildRankedTables(tb As DataTable)
    110. If Not _hshTempTables.Remove(tb) Then Return 'prevent run in Cycles
    111. For Each rl As DataRelation In tb.ParentRelations
    112. If rl.ChildKeyConstraint IsNot Nothing Then BuildRankedTables(rl.ParentTable)
    113. Next
    114. _RankedTables.Add(tb)
    115. End Sub
    117. Private Sub ClearRecursive(tb As DataTable)
    118. If tb.Rows.Count = 0 OrElse Not _hshTempTables.Add(tb) Then Return 'prevent run in Cycles
    119. For Each rl As DataRelation In tb.ChildRelations
    120. If rl.ChildKeyConstraint IsNot Nothing Then ClearRecursive(rl.ChildTable)
    121. Next
    122. _hshTempTables.Remove(tb)
    123. tb.Clear()
    124. End Sub
    126. End Class


    Eingebunden nachwievor auf meiner frmMain:

    VB.NET-Quellcode

    1. Public Class frmMain
    3. Private _Persistance As OleDbPersistance
    4. Private _sCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\..\Daten\dtsLogistik.accdb" 'aktuell: ACE-SqlCe
    6. Public Sub New()
    7. InitializeComponent()
    8. _Persistance = New OleDbPersistance(_sCon, Dts)


    VB.NET-Quellcode

    1. Case sender Is tsFillDB
    2. _Persistance.SaveAll()
    3. msgInformation("OK")


    Das DataSet wird korrekt aus der XML befüllt beim Starten des Programms und es wird das korrekte DataSet an die Persistance übergeben.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    Das DataSet wird korrekt aus der XML befüllt beim Starten des Programms
    Wie gesagt: das Dataset nicht mit meine helper-Methoden einlesen, sondern mit Dataset.ReadXml.
    wie gesagt: schreib eine Extra-Methode für den Datentransfer, und zeige den Code.
    Nochmal zum Debuggen: Haltepunkte auf #71 und v.a. #73 müssen erreicht werden - das sieht man sogar, was da passiert:

    VB.NET-Quellcode

    1. For Each tb In _RankedTables
    2. Dim rows = tb.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
    3. _Adapters(tb).Update(rows) ' first send Inserts and Updates
    4. Next
    er speichert die Zufügungen und die Modifikationen.
    Und rows darf kein leeres Array sein, sondern muss DataRows enthalten.

    ErfinderDesRades schrieb:

    wie gesagt: schreib eine Extra-Methode für den Datentransfer, und zeige den Code.

    ich krieg' mit access noch das Kotzen wegen der Runtimes... auf der Arbeit kann ich ma wieder nix testen.
    Wie wär's an der Stelle mit SQLite? Das kann wohl bis zu nem bestimmten Grad auch MultiUser, allerdings kann dein DBGenerator da grad mal
    nicht mit umgehen...obwohl's ja drin steht. Hab System.Data.SqLite nochmal nachinstalliert - aber keine Änderung, DBGenerator lässt mich da nix machen :(



    Wär' das machbar den DBGenerator für SQLite vorzubereiten? Dann bräuchte ma keinen Rechner, keinen Server kein nix für die "Datenbank"
    und vor allem keine Runtimes. Programm wird mit allem ausgeliefert, die Datenbankdatei käme auf's Netzlaufwerk.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

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

    tragl schrieb:

    ErfinderDesRades schrieb:

    wie gesagt: schreib eine Extra-Methode für den Datentransfer, und zeige den Code.

    ich krieg' mit access noch das Kotzen wegen der Runtimes... auf der Arbeit kann ich ma wieder nix testen.


    versuche es mit einer .mdb statt mit .accdb
    die .mdb sollte zum test doch reichen

    hier ein Bsp.
    ändere verzeichnis

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. 'set references to COM MS ADO Ext. 2.x for DDL and Security
    4. Public Class Form1
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. '.mdb erstellen
    8. Dim cat As New ADOX.Catalog()
    9. Dim sSQL As String
    10. cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\XMLFolder\Xml.mdb")
    11. cat = Nothing
    13. 'öffne .mdb
    14. Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\XMLFolder\Xml.mdb")
    15. conn.Open()
    16. 'tabelle in .mdb erstellen
    17. sSQL = " Create Table tbl_Material"
    18. sSQL &= "( [MA_ID] AutoIncrement CONSTRAINT PRIMARYKEY PRIMARY KEY"
    19. sSQL &= ", [MA_Nr] Int Not Null"
    20. sSQL &= ", [MA_Text] varChar(15)"
    21. sSQL &= ", [TM_UserNameOpend] varChar(35)" 'Record in Edit By User
    22. sSQL &= ", [TM_UserLocked] varChar(15)" 'Record Locked = Status
    23. sSQL &= ")"
    24. Dim cmd As New OleDb.OleDbCommand("", conn)
    25. cmd.CommandText = sSQL
    26. cmd.ExecuteNonQuery()
    28. 'Bsp. Daten
    29. sSQL = "Insert Into tbl_Material (MA_Nr,MA_Text,TM_UserNameOpend,TM_UserLocked)Values(123,'Test','tragl','InEdit')"
    30. ExecuteSQL(conn, sSQL)
    32. sSQL = "Insert Into tbl_Material (MA_Nr,MA_Text)Values(13,'Test2')"
    33. ExecuteSQL(conn, sSQL)
    35. conn.Close()
    36. End Sub
    38. Public Function ExecuteSQL(ByVal Con As OleDb.OleDbConnection, _
    39. ByVal sSQL As String, _
    40. Optional ByRef ErrMessage As String = Nothing, _
    41. Optional ByVal TransAction As _
    42. OleDb.OleDbTransaction = Nothing) As Integer
    43. ErrMessage = Nothing
    44. Try
    45. Dim Result As Integer = 0
    46. Using Cmd As New OleDb.OleDbCommand(sSQL, Con, TransAction)
    47. Result = Cmd.ExecuteNonQuery
    48. End Using
    49. Return Result
    50. Catch ex As Exception
    51. ErrMessage = ex.Message
    52. Return 0
    53. End Try
    54. End Function
    56. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    57. Dim sSql As String
    58. sSql = "Select MA_Nr As [Material Nr] ,MA_Text AS [Bezeichnung],TM_UserNameOpend AS [Locked durch],TM_UserLocked AS Status From tbl_Material;"
    59. Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=E:\XMLFolder\Xml.mdb")
    60. Dim cmd As OleDbCommand = New OleDbCommand(sSql, con)
    61. con.Open()
    62. Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
    63. Dim myDataSet As DataSet = New DataSet()
    64. myDA.Fill(myDataSet, "MyT")
    65. DataGridView1.DataSource = myDataSet.Tables("MyT").DefaultView
    66. con.Close()
    67. con = Nothing
    68. End Sub
    69. End Class