Vbnet und Microsoft sql Daten, eingeben, löschen, updaten, mit Gridview

    • VB.NET

      Vbnet und Microsoft sql Daten, eingeben, löschen, updaten, mit Gridview

      Hallo Leute,

      hier mal mein Beitrag, ich hoffe er findet Interesse, es geht darum über eine VBnet Oberfläche mit einer Microsoft sql Datenbank und Table zu kommunizieren. Datenbank ist hier die BeispielDATENBANK und die in meinem Fall
      verwendete Table die Users3 bez. Bsp. Aufbau. Ich verwende den kostenlosen Microsoft Server Management Studio 18 und noch Microsoft Visual Basic 10 Express. Ich hab zwar auch die aktuelle IDE. Bevorzuge aber diese
      Variante. Nicht vergessen. Ihr müsst die dll - MySQL.Data.dll importieren und ihr braucht das Namespace Imports System.Data.SqlClient. Ich bin mir jetzt nicht sicher, ob das alles optimal ist. Aber da es sich nur um eine Software
      die ich für Adressen nur für mich selber benutze, passt das für mich. Anregungen nehme ich gerne an. Vielleicht hilft das Beispiel jemandem.

      VB.NET-Quellcode

      1. Imports System.Data.SqlClient
      3. 'Programm um Adressdaten zu verwalten.
      5. 'nicht vergessen, dll - MySQL.Data.dll als Verweis über Projekt ganz oben (beim Projektnamen in diesem Fall: Lernprogramm 1.0 Sicherung) einfügen.
      6. ' Auch wichtig in diesem Programm immer alle Daten eingeben und dann ändern, sonst kommt Fehlermeldung, das Programm funktioniert.
      7. 'Daten werden aus Microsof sql Datenbank meineBeispieldatenbank / table Users 1 geladen.
      9. 'hier der Anfangsaufbau
      11. ''CREATE TABLE [dbo].[Users](
      12. ''[id] [int] NULL,
      13. ' [Vorname] [varchar](50) NULL,
      14. ' [Name] [varchar](50) NULL,
      15. ' [Telefon] [text] NULL,
      17. ') ON [PRIMARY]
      18. 'GO
      20. 'AutoSizeColumsMode: Befehl AllCells sorgt in der Grid für eine Breite der Zellen, die sich dem Inhalt anpasst. Fill für die erste Zelle geht in dieser Konfiguration leider nicht.
      22. Public Class Form1
      24. Dim sCommand As SqlCommand
      25. Dim sAdapter As SqlDataAdapter
      26. Dim sBuilder As SqlCommandBuilder
      27. Dim sDs As DataSet
      28. Dim sTable As DataTable
      29. Private con As SqlConnection
      30. Private myCon As Object
      32. Private Sub btn_exit_Click(sender As System.Object, e As System.EventArgs) Handles btn_exit.Click
      34. MeExit()
      35. End Sub
      37. Private Sub MeExit()
      39. Dim iExit As DialogResult
      41. iExit = MessageBox.Show("Bestätige bitte, wenn du das Programm Datenbank verlassen willst.", "DataGridView System", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
      43. If iExit = DialogResult.Yes Then
      44. Application.Exit()
      46. End If
      48. End Sub
      50. Private Sub Btn_load_Click(sender As System.Object, e As System.EventArgs) Handles Btn_load.Click
      52. Dim connectionString As String = "data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True"
      53. Dim sql As String = "SELECT * FROM Users3"
      54. Dim connection As New SqlConnection(connectionString)
      55. connection.Open()
      56. sCommand = New SqlCommand(sql, connection)
      57. sAdapter = New SqlDataAdapter(sCommand)
      58. sBuilder = New SqlCommandBuilder(sAdapter)
      59. sDs = New DataSet()
      61. sAdapter.Fill(sDs, "Users3")
      62. sTable = sDs.Tables("Users3")
      63. connection.Close()
      64. DataGridView1.DataSource = sDs.Tables("Users3")
      65. DataGridView1.ReadOnly = True
      66. 'save_btn.Enabled = False
      67. DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
      69. End Sub
      71. Private Sub Btn_neu_Click(sender As System.Object, e As System.EventArgs) Handles Btn_neu.Click
      73. Dim con As New SqlClient.SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      75. Dim cmd As New SqlCommand()
      76. cmd.Connection = con
      77. con.Open()
      79. cmd.CommandText = "insert into Users3 values ('" & Id.Text & "','" & Vorname.Text & "','" & Nachname.Text & "','" & Telefon.Text & "','" & Email.Text & "','" & Ort.Text & "','" & Plz.Text & "', '" & Strasse.Text & "', '" & Nummer.Text & "' , '" & Firma.Text & "' , '" & Notiz.Text & "') "
      81. cmd.ExecuteNonQuery()
      83. MsgBox("Record is successfully stored")
      84. con.Close()
      86. End Sub
      88. Private Sub Btn__delete_Click(sender As System.Object, e As System.EventArgs) Handles Btn__delete.Click
      90. If MessageBox.Show("Do you want to delete this row ?", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes Then
      91. DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
      92. 'sAdapter.Update(sTable)
      93. End If
      95. End Sub
      97. Private Sub Btn_clear_Click(sender As System.Object, e As System.EventArgs) Handles Btn_clear.Click
      99. Id.Clear()
      100. Vorname.Clear()
      101. Nachname.Clear()
      102. Telefon.Clear()
      103. Email.Clear()
      104. Ort.Clear()
      105. Plz.Clear()
      106. Strasse.Clear()
      107. Nummer.Clear()
      108. Firma.Clear()
      109. Firma.Clear()
      111. End Sub
      113. 'Button löschen, nicht test
      115. Private Sub Btn_test_Click(sender As System.Object, e As System.EventArgs) Handles Btn_test.Click
      117. Dim connection As New SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      118. Dim command As New SqlCommand("DELETE FROM Users3 WHERE Id =@id", connection)
      120. command.Parameters.Add("@id", SqlDbType.Int).Value = Id.Text
      122. connection.Open()
      124. If command.ExecuteNonQuery() = 1 Then
      126. MessageBox.Show("User Deleted")
      128. Else
      130. MessageBox.Show("User Not Deleted")
      131. End If
      133. connection.Close()
      135. End Sub
      137. Private Sub Btn_update_Click(sender As System.Object, e As System.EventArgs) Handles Btn_update.Click
      138. Dim connection As New SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      140. Dim command As New SqlCommand("UPDATE Users1 SET Vorname = @Vn, Name = @Na, Telefon =@Te,Email =@Em , Ort =@Or , Plz =@Pl , Strasse =@St , Nummer =@Nr , Firma =@Fa , Notiz =@No WHERE Id =@id", connection)
      142. command.Parameters.Add("@Vn", SqlDbType.VarChar).Value = Vorname.Text
      143. command.Parameters.Add("@Na", SqlDbType.VarChar).Value = Nachname.Text
      144. command.Parameters.Add("@Te", SqlDbType.Text).Value = Telefon.Text
      145. command.Parameters.Add("@Em", SqlDbType.Text).Value = Email.Text
      146. command.Parameters.Add("@Or", SqlDbType.VarChar).Value = Email.Text
      147. command.Parameters.Add("@Pl", SqlDbType.Int).Value = Email.Text
      148. command.Parameters.Add("@St", SqlDbType.Text).Value = Email.Text
      149. command.Parameters.Add("@Nr", SqlDbType.Text).Value = Email.Text
      150. command.Parameters.Add("@Fa", SqlDbType.Text).Value = Email.Text
      151. command.Parameters.Add("@No", SqlDbType.Text).Value = Email.Text
      153. command.Parameters.Add("id", SqlDbType.Int).Value = Id.Text
      155. connection.Open()
      157. If command.ExecuteNonQuery() = 1 Then
      158. MessageBox.Show("Data updated")
      160. Else
      162. MessageBox.Show("Data Not updated")
      163. End If
      165. connection.Close()
      167. End Sub
      169. End Class


      CodeTags korrigiert ~VaporiZed

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

    Facebook
    Telefonspende