Hi Leute
ICh habe eine Datagridview. Diese ist über ein Dataset gekoppelt. Das Dataset mit einem DataTableadapter aus dem MySqlConnector.
Mein Problem ist zb. das ich beim Insert eine Benutzerid einfügen möchte. Jedoch komme ich nicht so recht klar damit.
Ich möchte die Anweisungen Insert, DElete usw so anpassen das diese BenutzerID, sofern erforderlich, durch eine eigene Zahl ersetzt wird.
Die Software greift auf eine MySqlDatenbank zu und Liest meine Kategorien. Diese Kategorien sind Benutzerabhängig.
Mein Aktueller Code ist folgender.
Ich würde gerne so auch weiter arbeiten weil es wesendlich einfacher ist Komplexe Systeme damit zu erstellen
ICh habe eine Datagridview. Diese ist über ein Dataset gekoppelt. Das Dataset mit einem DataTableadapter aus dem MySqlConnector.
Mein Problem ist zb. das ich beim Insert eine Benutzerid einfügen möchte. Jedoch komme ich nicht so recht klar damit.
Ich möchte die Anweisungen Insert, DElete usw so anpassen das diese BenutzerID, sofern erforderlich, durch eine eigene Zahl ersetzt wird.
Die Software greift auf eine MySqlDatenbank zu und Liest meine Kategorien. Diese Kategorien sind Benutzerabhängig.
Mein Aktueller Code ist folgender.
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class categories
- Dim conn As New MySqlConnection("server=5.45.104.51;uid=USER;pwd=PASSWORT;database=DATENBANK;")
- Public Manager As New Account_Manager.PHP("http://5.45.104.51/html/Account_Manager/")
- Dim Adapter_Categories As MySqlDataAdapter
- Dim DataSet_Categories As New DataSet
- Dim CommandBu As MySqlCommandBuilder
- #Region "Aktionen"
- Sub Read_Categories()
- DataGridView1.Rows.Clear()
- Dim cmd As New MySqlCommand("SELECT * FROM categories WHERE UserID = '" & Manager.ReadUser("USERID") & "'", conn)
- Dim reader As MySqlDataReader = cmd.ExecuteReader()
- While (reader.Read())
- Dim NewRow As Integer = DataGridView1.Rows.Add()
- With DataGridView1.Rows(NewRow)
- .Cells("Id_").Value = reader("Id")
- .Cells("Description_").Value = reader("Description")
- End With
- End While
- reader.Close()
- End Sub
- #End Region
- Private Sub categories_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Manager.Login()
- MessageBox.Show(Manager.ReadUser("USERID"))
- conn.Open()
- Dim Command_Select As New MySqlCommand("SELECT * FROM Categories WHERE UserID = @UserID", conn)
- Dim Command_Insert As New MySqlCommand("INSERT INTO Categories (UserID, Description) VALUES (@UserID, @Description)", conn)
- Dim Command_Delete As New MySqlCommand("DELETE * FROM Categories WHERE Id = @Id", conn)
- Adapter_Categories = New MySqlDataAdapter
- CommandBu = New MySqlCommandBuilder(Adapter_Categories)
- Adapter_Categories.SelectCommand = Command_Select
- Adapter_Categories.DeleteCommand = Command_Delete
- Adapter_Categories.InsertCommand = Command_Insert
- Adapter_Categories.UpdateCommand = CommandBu.GetUpdateCommand
- Dim P1 As MySqlParameter = Adapter_Categories.SelectCommand.Parameters.Add("@UserID", MySqlDbType.Int16)
- P1.Value = Manager.ReadUser("USERID")
- Dim P2 As MySqlParameter = Adapter_Categories.InsertCommand.Parameters.Add("@UserID", MySqlDbType.Int16)
- P2.Value = Manager.ReadUser("USERID")
- Dim P3 As MySqlParameter = Adapter_Categories.InsertCommand.Parameters.Add("@Description", MySqlDbType.Text)
- P3.SourceColumn = "Description"
- Dim P4 As MySqlParameter = Adapter_Categories.DeleteCommand.Parameters.Add("@Id", MySqlDbType.Text)
- P4.SourceColumn = "Id"
- Adapter_Categories.Fill(DataSet_Categories, "Categories")
- DataGridView1.DataSource = DataSet_Categories.Tables("Categories")
- DataGridView1.Columns("Id").Visible = False
- DataGridView1.Columns("UserID").Visible = False
- End Sub
- Private Sub categories_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
- conn.Close()
- Adapter_Categories.Update(DataSet_Categories, "Categories")
- End Sub
- End Class
Ich würde gerne so auch weiter arbeiten weil es wesendlich einfacher ist Komplexe Systeme damit zu erstellen