Hi Leudde,
ich habe mal wieder ein Problem und sehe den Wald vor lauter Bäumen nicht. Ich versuche verzweifelt aus einem SQL-Server eine CBX zu befüllen, jedoch bekomm ich hier nur den System.Data.DataRowView zurück. Kann mir jemand helfen und mir sagen, was ich falsch mache? Ich blick nimmer durch...
mfg meta (ehem. powerprogger)
ich habe mal wieder ein Problem und sehe den Wald vor lauter Bäumen nicht. Ich versuche verzweifelt aus einem SQL-Server eine CBX zu befüllen, jedoch bekomm ich hier nur den System.Data.DataRowView zurück. Kann mir jemand helfen und mir sagen, was ich falsch mache? Ich blick nimmer durch...
VB.NET-Quellcode
- Private Sub fillStaffList()
- Dim conn As SqlClient.SqlConnection
- Dim SQLadapter As SqlClient.SqlDataAdapter
- Dim StrSQLUnternehmen As String = "SELECT User FROM dbo._User"
- Dim dst1 As DataTable
- 'Deklaration für Variable, die Verbindungsinformationen enthält
- Dim connString As String
- 'connString = "Initial Catalog=Test;"
- connString = "Data Source=name\SQLEXPRESS;Initial Catalog=Ticket;User ID=sa;Password=passwort"
- conn = New SqlClient.SqlConnection(connString)
- Try
- conn.Open()
- Catch
- MsgBox("Die Verbindung konnte nicht hergestellt werden.")
- Exit Sub
- End Try
- Try
- dst1 = New DataTable()
- SQLadapter = New SqlClient.SqlDataAdapter("select User from dbo._User", conn)
- SQLadapter.Fill(dst1)
- MsgBox(dst1.ToString)
- Catch ex As SqlClient.SqlException
- MsgBox("DB-Fehler", MsgBoxStyle.Critical, "Error")
- End Try
- 'MsgBox(dst1.ToString)
- If dst1.Rows.Count > 0 Then
- Me.cbxNewTicketStaff.DataSource = dst1
- Me.cbxNewTicketStaff.DisplayMember = "User"
- Else
- MsgBox("Für eine Füllung der Combobox liegen keine Daten vor", _
- MsgBoxStyle.Information, "FillCombo")
- End If
mfg meta (ehem. powerprogger)