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-2024
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Aktualisieren aller Daten im DataTable eines DataSets 
Autor: spatzimatzi
Datum: 18.06.17 19:29

Hallo Manfred X, hallo effeff,
vielen Dank für eure Hinweise.

@Manfred X
Die 2. Form ist die Einzeldarstellung der Notiz
In der 1. Form habe ich nur das DataGridView mit allen Notizen.
Diese Form wird ausschließlich für die Auswahl angezeigt

Unter dem 2. Anwender kann man jemanden verstehen, der in welcher Form auch immer Veränderungen an der Datenbank vornimmt. Z.B. über das Microsoft SQLServer Management Studio oder über ein Fremdprogramm

Die Records haben keinen Zeitstempel und sind jederzeit von jedermann aufrufbar.
Die Veränderungen an der DB-Tabelle (Nicht Insert) werden mit dem SQLAdapter durchgeführt

Eine Frage:
Was gibt mir SQLDependency zurück? Wie kann ich die Informationen einsetzen bzw. nutzen?

@effeff
Der neue Record wird direkt über eine StoredProcedure erzeugt

      con.ConnectionString = strConnectionString
      Dim cmdNew As New SqlCommand
      cmdNew.Connection = con
      cmdNew.CommandType = CommandType.StoredProcedure
      cmdNew.CommandText = "usp_IdentityNewNotizen"
 
      With cmdNew
        With .Parameters
          .Add("@AdressenIdent", SqlDbType.Int).Value = bsNotizenSng.Current( _
            "AdressenIdent")
          .Add("@ArtikelIdent", SqlDbType.Int).Value = bsNotizenSng.Current( _
          "ArtikelIdent")
          .Add("@LieferantenIdent", SqlDbType.Int).Value = bsNotizenSng.Current( _
          "LieferantenIdent")
          .Add("@Kurznotiz", SqlDbType.VarChar, 100).Value = _
          bsNotizenSng.Current("Kurznotiz")
          .Add("@Notiz", SqlDbType.Text).Value = bsNotizenSng.Current("Notiz")
 
          .Add("@identity", SqlDbType.Int).Direction = ParameterDirection.Output
 
        End With
      End With
 
      If con.State = ConnectionState.Closed Then con.Open()
 
      cmdNew.ExecuteNonQuery()
      bsNotizenSng.Current("NotizenIdent") = cmdNew.Parameters( _
        "@identity").Value
      intNotizenIdent = cmdNew.Parameters("@identity").Value
 
      ...
Die StoredProcedure sieht so aus:
ALTER PROCEDURE [dbo].[usp_IdentityNewNotizen]
	@AdressenIdent int,
	@ArtikelIdent int,
	@LieferantenIdent int,
	@Kurznotiz varchar(100),
	@Notiz varchar(MAX),
	@identity int OUTPUT	-- Rückgabewert
AS
BEGIN	
	SET NOCOUNT ON
 
	-- Anlegen eines neuen Records und Rückgabe,
	-- des SCOPE_IDENTITY()
	-- ----------------------------------------------------------------------------
	--BEGIN TRY	
		INSERT INTO tblNotizen(
			AdressenIdent,
			ArtikelIdent,
			LieferantenIdent,
			Kurznotiz,
			Notiz)
		VALUES (
			@AdressenIdent,
			@ArtikelIdent,
			@LieferantenIdent,
			@Kurznotiz,
			@Notiz)
 
		SET @identity = SCOPE_IDENTITY()
Das Schreiben in die Tabelle des DataSets geschieht mit folgendem Code

          Dim dv As DataView = New DataView(dsDatenPool.Tables("Notizen"))
          Dim NewRow As DataRowView = dv.AddNew()
          NewRow.BeginEdit()
          NewRow("NotizenIdent") = bsNotizenSng.Current("NotizenIdent")
          NewRow("ArtikelIdent") = 0
          NewRow("ArtikelNummer") = ""
          NewRow("AdressenIdent") = 0
          NewRow("AdressenNummer") = ""
          NewRow("LieferantenIdent") = 0
          NewRow("LieferantenNummer") = ""
          NewRow("Gruppe") = "Global"
          NewRow("Kurznotiz") = bsNotizenSng.Current("Kurznotiz")
          NewRow("DatenAnlageAm") = System.DateTime.Now.ToString("yyyy.MM.dd")
          NewRow.EndEdit()
Ansonsten werden die Daten über SQLAdapter angepasst.

Stehe jederzeit für Frage zur Verfügung

spatzimatzi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Aktualisieren aller Daten im DataTable eines DataSets3.887spatzimatzi18.06.17 16:47
Re: Aktualisieren aller Daten im DataTable eines DataSets2.920Manfred X18.06.17 18:21
Re: Aktualisieren aller Daten im DataTable eines DataSets2.998effeff18.06.17 18:27
Re: Aktualisieren aller Daten im DataTable eines DataSets2.967spatzimatzi18.06.17 19:29
Re: Aktualisieren aller Daten im DataTable eines DataSets2.952Manfred X19.06.17 11:28
Re: Aktualisieren aller Daten im DataTable eines DataSets2.926effeff19.06.17 12:41
Re: Aktualisieren aller Daten im DataTable eines DataSets2.924spatzimatzi19.06.17 12:22
Re: Aktualisieren aller Daten im DataTable eines DataSets2.896Manfred X19.06.17 15:48
Re: Aktualisieren aller Daten im DataTable eines DataSets2.880spatzimatzi19.06.17 13:03
Re: Aktualisieren aller Daten im DataTable eines DataSets2.845Manfred X19.06.17 16:08
Re: Aktualisieren aller Daten im DataTable eines DataSets2.836spatzimatzi19.06.17 14:05
Re: Aktualisieren aller Daten im DataTable eines DataSets2.920Manfred X19.06.17 15:59
Re: Aktualisieren aller Daten im DataTable eines DataSets2.954spatzimatzi19.06.17 16:15
Re: Aktualisieren aller Daten im DataTable eines DataSets2.919spatzimatzi19.06.17 16:34
Re: Aktualisieren aller Daten im DataTable eines DataSets2.854Manfred X19.06.17 17:10
Re: Aktualisieren aller Daten im DataTable eines DataSets2.864spatzimatzi19.06.17 17:32

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-2024 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