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
      2. 'Programm um Adressdaten zu verwalten.
      3. 'nicht vergessen, dll - MySQL.Data.dll als Verweis über Projekt ganz oben (beim Projektnamen in diesem Fall: Lernprogramm 1.0 Sicherung) einfügen.
      4. ' Auch wichtig in diesem Programm immer alle Daten eingeben und dann ändern, sonst kommt Fehlermeldung, das Programm funktioniert.
      5. 'Daten werden aus Microsof sql Datenbank meineBeispieldatenbank / table Users 1 geladen.
      6. 'hier der Anfangsaufbau
      7. ''CREATE TABLE [dbo].[Users](
      8. ''[id] [int] NULL,
      9. ' [Vorname] [varchar](50) NULL,
      10. ' [Name] [varchar](50) NULL,
      11. ' [Telefon] [text] NULL,
      12. ') ON [PRIMARY]
      13. 'GO
      14. '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.
      15. Public Class Form1
      16. Dim sCommand As SqlCommand
      17. Dim sAdapter As SqlDataAdapter
      18. Dim sBuilder As SqlCommandBuilder
      19. Dim sDs As DataSet
      20. Dim sTable As DataTable
      21. Private con As SqlConnection
      22. Private myCon As Object
      23. Private Sub btn_exit_Click(sender As System.Object, e As System.EventArgs) Handles btn_exit.Click
      24. MeExit()
      25. End Sub
      26. Private Sub MeExit()
      27. Dim iExit As DialogResult
      28. iExit = MessageBox.Show("Bestätige bitte, wenn du das Programm Datenbank verlassen willst.", "DataGridView System", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
      29. If iExit = DialogResult.Yes Then
      30. Application.Exit()
      31. End If
      32. End Sub
      33. Private Sub Btn_load_Click(sender As System.Object, e As System.EventArgs) Handles Btn_load.Click
      34. Dim connectionString As String = "data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True"
      35. Dim sql As String = "SELECT * FROM Users3"
      36. Dim connection As New SqlConnection(connectionString)
      37. connection.Open()
      38. sCommand = New SqlCommand(sql, connection)
      39. sAdapter = New SqlDataAdapter(sCommand)
      40. sBuilder = New SqlCommandBuilder(sAdapter)
      41. sDs = New DataSet()
      42. sAdapter.Fill(sDs, "Users3")
      43. sTable = sDs.Tables("Users3")
      44. connection.Close()
      45. DataGridView1.DataSource = sDs.Tables("Users3")
      46. DataGridView1.ReadOnly = True
      47. 'save_btn.Enabled = False
      48. DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
      49. End Sub
      50. Private Sub Btn_neu_Click(sender As System.Object, e As System.EventArgs) Handles Btn_neu.Click
      51. Dim con As New SqlClient.SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      52. Dim cmd As New SqlCommand()
      53. cmd.Connection = con
      54. con.Open()
      55. 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 & "') "
      56. cmd.ExecuteNonQuery()
      57. MsgBox("Record is successfully stored")
      58. con.Close()
      59. End Sub
      60. Private Sub Btn__delete_Click(sender As System.Object, e As System.EventArgs) Handles Btn__delete.Click
      61. If MessageBox.Show("Do you want to delete this row ?", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes Then
      62. DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
      63. 'sAdapter.Update(sTable)
      64. End If
      65. End Sub
      66. Private Sub Btn_clear_Click(sender As System.Object, e As System.EventArgs) Handles Btn_clear.Click
      67. Id.Clear()
      68. Vorname.Clear()
      69. Nachname.Clear()
      70. Telefon.Clear()
      71. Email.Clear()
      72. Ort.Clear()
      73. Plz.Clear()
      74. Strasse.Clear()
      75. Nummer.Clear()
      76. Firma.Clear()
      77. Firma.Clear()
      78. End Sub
      79. 'Button löschen, nicht test
      80. Private Sub Btn_test_Click(sender As System.Object, e As System.EventArgs) Handles Btn_test.Click
      81. Dim connection As New SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      82. Dim command As New SqlCommand("DELETE FROM Users3 WHERE Id =@id", connection)
      83. command.Parameters.Add("@id", SqlDbType.Int).Value = Id.Text
      84. connection.Open()
      85. If command.ExecuteNonQuery() = 1 Then
      86. MessageBox.Show("User Deleted")
      87. Else
      88. MessageBox.Show("User Not Deleted")
      89. End If
      90. connection.Close()
      91. End Sub
      92. Private Sub Btn_update_Click(sender As System.Object, e As System.EventArgs) Handles Btn_update.Click
      93. Dim connection As New SqlConnection("data source=JOACHIM1\MEINSERVER1;Initial catalog=BeispielDATENBANK;Integrated Security=True")
      94. 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)
      95. command.Parameters.Add("@Vn", SqlDbType.VarChar).Value = Vorname.Text
      96. command.Parameters.Add("@Na", SqlDbType.VarChar).Value = Nachname.Text
      97. command.Parameters.Add("@Te", SqlDbType.Text).Value = Telefon.Text
      98. command.Parameters.Add("@Em", SqlDbType.Text).Value = Email.Text
      99. command.Parameters.Add("@Or", SqlDbType.VarChar).Value = Email.Text
      100. command.Parameters.Add("@Pl", SqlDbType.Int).Value = Email.Text
      101. command.Parameters.Add("@St", SqlDbType.Text).Value = Email.Text
      102. command.Parameters.Add("@Nr", SqlDbType.Text).Value = Email.Text
      103. command.Parameters.Add("@Fa", SqlDbType.Text).Value = Email.Text
      104. command.Parameters.Add("@No", SqlDbType.Text).Value = Email.Text
      105. command.Parameters.Add("id", SqlDbType.Int).Value = Id.Text
      106. connection.Open()
      107. If command.ExecuteNonQuery() = 1 Then
      108. MessageBox.Show("Data updated")
      109. Else
      110. MessageBox.Show("Data Not updated")
      111. End If
      112. connection.Close()
      113. End Sub
      114. End Class


      CodeTags korrigiert ~VaporiZed

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