SQL, Formulare

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    SQL, Formulare

    Hallo,

    ich habe folgendes Problem. Die Datei, die ich erstellt habe, lautet produkteinzeln.vb und hat folgenden Code:


    Imports System.Data
    Imports System.Data.DataSet
    Imports System.Data.DataTable
    Imports System.Data.Common

    Public Class frmProdukteEinzeln

    Dim dt As New DataTable()
    Dim bs As New BindingSource

    Private Sub Einzelblattansicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    Dim c As New SqlClient.SqlConnection
    c.ConnectionString = "Data Source=.\SQLEXPRESS;" _
    & "AttachDbFilename=|DataDirectory|\Hausaufgabe.mdf;" _
    & "Integrated Security=True;Connect Timeout=30;User Instance=True"
    c.Open()

    Dim da As New SqlClient.SqlDataAdapter
    da.SelectCommand = (New SqlClient.SqlCommand("SELECT produkte.nummer as Produktnummer, produkte.produktname as Produktname FROM Produkte", c))
    da.Fill(dt)
    c.Close()

    bs.DataSource = dt

    Dim b As Binding
    b = New Binding("Text", bs, "Produktnummer")
    Me.NummerTextBox.DataBindings.Add(b)

    b = New Binding("Text", bs, "Produktname")
    Me.ProduktnameTextBox.DataBindings.Add(b)


    End Sub

    Private Sub Navigation(ByVal sender As System.Object, ByVal e As System.EventArgs)


    Select Case sender.name
    Case Me.btnerster.Name
    bs.MoveFirst()
    Case Me.btnvoriger.Name
    bs.MovePrevious()
    Case Me.btnnächster.Name
    bs.MoveNext()
    Case Me.btnletzter.Name
    bs.MoveLast()
    End Select


    End Sub

    Private Sub btnSuchen_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSuchen.Click

    Dim pos As Integer
    pos = bs.Find("Bezeichnung", Me.txtSuchen.Text)
    If pos > -1 Then bs.Position = pos

    End Sub


    End Class

    Ich möchte diese vom Haupt.vb per Formular abrufen, den ich bereits definiert habe. Der COde dazu lautet:

    Imports System.Windows.Forms

    Public Class frmhaupt

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    Me.Close()
    End Sub
    Private Sub mnuHaupt_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles EinzelnToolStripMenuItem.Click, _
    DatenblattToolStripMenuItem.Click





    Dim f As Form


    Select Case sender.name
    Case "EinzelnToolStripMenuItem"
    f = New frmProdukteEinzeln
    Case "DatenblattToolStripMenuItem"
    f = New frmProdkteDatenblatt


    f.MdiParent = Me
    f.Show()

    End Select


    End Sub


    End Class




    Könnte mir jemand zeigen, wieso er das Formular nicht abruft? haupt.vb ist als "ismdicontainer =true" eingestellt.
    Ich wäre für jegliche Hilfe super dankbar.
    Ich wünsche euch einen schönen Tag und ein schönes Wochenende.

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class frmhaupt
    5. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    6. Me.Close()
    7. End Sub
    8. Private Sub mnuHaupt_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    9. Handles EinzelnToolStripMenuItem.Click, _
    10. DatenblattToolStripMenuItem.Click
    14. Dim f As Form
    17. Select Case sender.name
    18. Case "EinzelnToolStripMenuItem"
    19. f = New frmProdukteEinzeln
    20. Case "DatenblattToolStripMenuItem"
    21. f = New frmProdkteDatenblatt
    24. f.MdiParent = Me
    25. f.Show()
    27. End Select
    30. End Sub
    33. End Class

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Holm“ ()

    Es ist genau so unlesbar wie vorher.
    Geh auf "Bearbeiten", dann drin auf "Quellcode", lösch alles, drück auf VB-Button in der Symbolleiste (3 linnks vom grünen Prozentzeichen) und füge dann deinen vom Visual Studio kopierten Code ein. Nicht den vom Beitrag hier, denn er ist nicht richtig eingerückt.

    EDIT: Der gesamte Code muss jeweils zwischen die [ vb] und [ /vb] (ohne Leerzeichen)

    VB.NET-Quellcode

    1. Imports System.Data
    2. Imports System.Data.DataSet
    3. Imports System.Data.DataTable
    4. Imports System.Data.Common
    6. Public Class frmProdukteEinzeln
    8. Dim dt As New DataTable()
    9. Dim bs As New BindingSource
    11. Private Sub Einzelblattansicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    13. Dim c As New SqlClient.SqlConnection
    14. c.ConnectionString = "Data Source=.\SQLEXPRESS;" _
    15. & "AttachDbFilename=|DataDirectory|\Hausaufgabe.mdf;" _
    16. & "Integrated Security=True;Connect Timeout=30;User Instance=True"
    17. c.Open()
    19. Dim da As New SqlClient.SqlDataAdapter
    20. da.SelectCommand = (New SqlClient.SqlCommand("SELECT produkte.nummer as Produktnummer, produkte.produktname as Produktname FROM Produkte", c))
    21. da.Fill(dt)
    22. c.Close()
    24. bs.DataSource = dt
    26. Dim b As Binding
    27. b = New Binding("Text", bs, "Produktnummer")
    28. Me.NummerTextBox.DataBindings.Add(b)
    30. b = New Binding("Text", bs, "Produktname")
    31. Me.ProduktnameTextBox.DataBindings.Add(b)
    34. End Sub
    36. Private Sub Navigation(ByVal sender As System.Object, ByVal e As System.EventArgs)
    39. Select Case sender.name
    40. Case Me.btnerster.Name
    41. bs.MoveFirst()
    42. Case Me.btnvoriger.Name
    43. bs.MovePrevious()
    44. Case Me.btnnächster.Name
    45. bs.MoveNext()
    46. Case Me.btnletzter.Name
    47. bs.MoveLast()
    48. End Select
    51. End Sub
    53. Private Sub btnSuchen_Click(ByVal sender As System.Object, _
    54. ByVal e As System.EventArgs) Handles btnSuchen.Click
    56. Dim pos As Integer
    57. pos = bs.Find("Bezeichnung", Me.txtSuchen.Text)
    58. If pos > -1 Then bs.Position = pos
    60. End Sub
    63. End Class