provider: SQL Network Interfaces, error: 26 - Fehler beim Bestimmen des angegeben Servers/der angegebenen Instanz

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Sami41194.

    provider: SQL Network Interfaces, error: 26 - Fehler beim Bestimmen des angegeben Servers/der angegebenen Instanz

    Hallo bitte um schnelle Hilfe
    Mein problem ist das wie oben genant

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public con As New SqlClient.SqlConnection
    3. Public cmd As New SqlClient.SqlCommand
    4. Public reader As SqlClient.SqlDataReader
    5. Public DK As Integer
    6. Public ES As Integer
    7. Public txt As String
    8. Public Firma As String
    9. Public Starße As String
    10. Public PLZ As String
    11. Public Ort As String
    12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. Try
    14. con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
    15. cmd.Connection = con
    16. cmd.CommandText = "SELECT Name FROM Fahrer"
    17. con.Open()
    18. reader = cmd.ExecuteReader()
    19. ComboBox1.Items.Clear()
    20. Do While reader.Read()
    21. ComboBox1.Items.Add(reader("Name"))
    22. Loop
    23. reader.Close()
    24. con.Close()
    26. cmd.CommandText = "SELECT Name FROM Adressen"
    27. con.Open()
    28. reader = cmd.ExecuteReader()
    29. ComboBox2.Items.Clear()
    30. Do While reader.Read()
    31. ComboBox2.Items.Add(reader("Name"))
    32. Loop
    33. reader.Close()
    34. con.Close()
    36. Catch ex As Exception
    37. MsgBox(ex.Message)
    38. End Try
    39. End Sub
    41. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    42. con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
    43. cmd.Connection = con
    44. cmd.CommandText = "SELECT Kenzeichen FROM Fahrer WHERE (Name = '" & ComboBox1.Text.ToString & "')"
    45. con.Open()
    46. reader = cmd.ExecuteReader()
    47. Do While reader.Read()
    48. Label2.Text = reader("Kenzeichen")
    49. Loop
    50. con.Close()
    51. End Sub
    53. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
    54. con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
    55. cmd.Connection = con
    56. cmd.CommandText = "SELECT Firma, Straße, PLZ, Ort FROM Adressen WHERE (Name = '" & ComboBox2.Text.ToString & "')"
    57. con.Open()
    58. reader = cmd.ExecuteReader()
    59. Do While reader.Read()
    60. Firma = reader("Firma")
    61. Starße = reader("Straße")
    62. PLZ = reader("PLZ")
    63. Ort = reader("Ort")
    64. Loop
    65. con.Close()
    66. End Sub
    68. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    69. If CheckBox1.Checked = True Then TextBox1.Visible = True Else TextBox1.Visible = False
    70. End Sub
    72. Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    73. If CheckBox2.Checked = True Then TextBox2.Visible = True Else TextBox2.Visible = False
    74. End Sub
    76. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    77. Dim und As String
    78. Check()
    79. If TextBox1.Text <> "" Then DK += CInt(TextBox1.Text)
    80. If TextBox2.Text <> "" Then ES += CInt(TextBox2.Text)
    81. If DK <> 0 And ES <> 0 Then und = " and " Else und = ""
    82. Dim Titel = "On " + DateTimePicker1.Value.Day.ToString + "." + DateTimePicker1.Value.Month.ToString + " we will load app. "
    83. If DK <> 0 Then Titel += DK.ToString + " cbm Diesel"
    84. Titel += und
    85. If ES <> 0 Then Titel += ES.ToString + " cbm BA 95"
    87. txt += "the driver is " + ComboBox1.Text.ToString + " he is loading "
    88. If CheckBox1.Checked = True Then txt += TextBox1.Text + " cbm Diesel" & vbCrLf + Label2.Text.ToString & vbCrLf & vbCrLf
    89. If CheckBox2.Checked = True Then txt += TextBox2.Text + " cbm BA 95" & vbCrLf + Label2.Text.ToString & vbCrLf & vbCrLf
    90. txt += "the place of arrivel is" & vbCrLf
    91. txt += Firma & vbCrLf & Starße & vbCrLf & PLZ + " " + Ort & vbCrLf & vbCrLf
    93. RichTextBox1.Text = Titel & vbCrLf & vbCrLf + txt
    94. Clicked()
    95. End Sub
    96. Private Sub Clicked()
    97. CheckBox1.Checked = False
    98. CheckBox2.Checked = False
    99. TextBox1.Text = ""
    100. TextBox2.Text = ""
    101. End Sub
    102. Private Sub Check()
    103. If ComboBox1.Text = "" Then MsgBox("Bitte Fahrer auswählen!")
    104. If ComboBox2.Text = "" Then MsgBox("Bitte Lieferadresse auswählen!")
    105. If CheckBox1.Checked = True And TextBox1.Text = "" Then MsgBox("Bitte Menge beim Diesel eingeben!")
    106. If CheckBox2.Checked = True And TextBox2.Text = "" Then MsgBox("Bitte Menge beim Eurosuper eingeben!")
    107. If CheckBox1.Checked = True And CheckBox2.Checked = True Then MsgBox("Diesel und Eurosuper ausgewählt!")
    108. End Sub
    109. End Class



    Bin ganz neu

    VB.NET-Quellcode

    1. con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
    2. cmd.Connection = con
    3. con.open
    4. cmd.CommandText = "SELECT Name FROM Fahrer"
    5. reader = cmd.ExecuteReader()
    6. ComboBox1.Items.Clear()
    7. Do While reader.Read()
    8. ComboBox1.Items.Add(reader("Name"))
    9. Loop
    10. reader.Close()
    11. con.Close()


    machs mal damit

Facebook
Telefonspende