Bekomme unterschiedliche Ergebnisse im Management Studio und VB 2010

  • VB.NET

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

    Bekomme unterschiedliche Ergebnisse im Management Studio und VB 2010

    Hallo,
    ich sitze schon seit mehreren Tagen an folgendem Problem: Im SQL bekomme ich über das Server Management Studio das richtige Ergebnis: 4. Führe ich das Programm aus, bekomme ich kein Ergebnis. Ich finde den Fehler aber nicht. Wäre nett, wenn mir jemand auf die Sprünge helfen könnte. Hier der Code:



    Visual Basic-Quellcode

    1. Dim dsErgebnis As DataSet = New DataSet
    3. clSql.sqlCmd.CommandText = "SELECT RTRIM(strBuchungstagInterv) AS Intervall " & _
    4. "FROM Einstellungen " & _
    5. "WHERE intFirmaID = @Firma "
    7. clSql.sqlCmd.Parameters.Add(New SqlClient.SqlParameter("@Firma", intFirmaID))
    9. clSql.sqlDataAdapter.TableMappings.Clear()
    11. clSql.mapping = clSql.sqlDataAdapter.TableMappings.Add("Table", "Einstellungen")
    12. clSql.mapping.ColumnMappings.Add("Intervall", "Intervall")
    14. dsErgebnis = clSql.SqlDatenbank("Select", "Einstellungen")
    16. clSql.sqlCmd.Parameters.Clear()
    18. Dim lngIntervall As Long
    19. Dim strIntervall As String = dsErgebnis.Tables("Einstellungen").Rows(0)("Intervall").ToString.Trim


    Hier die verwendeten Funktionen:

    Visual Basic-Quellcode

    1. Imports System.Data.SqlClient
    3. Public Class classDatenbanken
    4. '---------------------------------------------------------------------------------
    5. 'SQL Datenbank
    6. '---------------------------------------------------------------------------------
    7. Dim clStandardFunktionen As New classStandardfunktionen
    9. Public sqldsErgebnis As New DataSet("Ergebnis")
    10. Public mapping As Common.DataTableMapping = New Common.DataTableMapping
    11. Public sqldtErgebnis As New DataTable
    12. Public sqlCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand()
    13. Public sqlDataAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter
    14. Public sqlds As New DataSet
    16. Function SqlDatenbank(ByVal strAbfrageart As String, ByVal strTabellenname As String) As DataSet
    17. mapping = Nothing
    19. Dim sqlCon As SqlClient.SqlConnection = SqlVerbindung()
    21. Try
    22. System.Threading.Thread.Sleep(100)
    24. sqlCmd.Connection = sqlCon
    26. Select Case strAbfrageart
    27. Case "Select"
    28. sqlDataAdapter.SelectCommand = sqlCmd
    29. sqlDataAdapter.FillSchema(sqldsErgebnis, SchemaType.Source, strTabellenname)
    30. sqlDataAdapter.Fill(sqldsErgebnis)
    32. Case "Update"
    33. Dim sqlcbCommandBuilder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder
    34. sqlcbCommandBuilder.DataAdapter = sqlDataAdapter
    35. sqlDataAdapter.Update(sqlds)
    36. sqlds.Clear()
    37. sqlDataAdapter.Fill(sqldsErgebnis)
    38. Case "NonQuery"
    39. sqlCmd.ExecuteNonQuery()
    41. End Select
    44. Catch ex As Exception
    45. clStandardFunktionen.Fehler(ex.Message)
    47. Finally
    48. If (sqlCon.State And ConnectionState.Open) > 0 Then sqlCon.Close()
    50. End Try
    52. Return sqldsErgebnis
    54. End Function
    56. Function SqlVerbindung() As SqlClient.SqlConnection
    57. Dim conSqlConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection
    58. Dim cbSql As SqlClient.SqlConnectionStringBuilder = New SqlClient.SqlConnectionStringBuilder()
    60. Try
    61. cbSql.DataSource = My.Settings.strSqlServer
    62. cbSql.InitialCatalog = My.Settings.strSqlDatenbank
    63. cbSql.UserID = My.Settings.strSqlUser
    64. cbSql.Password = My.Settings.strSqlPasswort
    66. conSqlConnection = New SqlClient.SqlConnection(cbSql.ConnectionString)
    68. conSqlConnection.Open()
    71. Catch ex As Exception
    72. clStandardFunktionen.Fehler(ex.Message)
    73. End Try
    75. Return conSqlConnection
    76. End Function
    77. End Class


    Visual Basic-Quellcode

    1. Imports System.Net.Mail
    2. Imports System.Net
    3. Imports System.Drawing
    5. Public Class classStandardfunktionen
    7. 'Form an Panel binden
    8. Sub PanelInhaltNeu(ByVal plÄndern As Panel, ByVal frmAnzeigen As Form)
    9. plÄndern.Controls.Clear()
    10. frmAnzeigen.TopLevel = False
    11. frmAnzeigen.Visible = True
    12. plÄndern.Controls.Add(frmAnzeigen)
    13. frmAnzeigen.Enabled = True
    14. frmMain.plMain.Enabled = True
    17. End Sub
    19. 'Fehler anzeigen
    21. Sub Fehler(ByRef strText As String)
    22. MsgBox("Es ist ein Fehler aufgetreten: " & strText, MsgBoxStyle.Critical, "Fehler")
    23. End Sub
    24. End Class


    Hier noch die SQL-Tabelle der DB:


    intEinstellungenID int NotNull
    intFirmaID int NotNull
    strScanFeld nchar(250) NotNull
    strBuchungstagInterv nchar(100) NotNull
    strPassAnzeige nchar(10) NotNull
    strInfoAnzeige nchar(10) NotNull

    Werte:

    intEinstellungenID = 1
    intFirmaID = 1
    strScanFeld = Personal-Nr.
    strBuchungstagInterv = 4
    strPassAnzeige = 30
    strInfoAnzeige = 30

    Beim Debugging habe ich natürlich den intFirmaID überprüft. Ist 1, also OK.

    Danke für die Hilfe und schönen Abend!
    René

    Schreib mal Beispiele für die unterschiedlichen Output.

    Das kann an der Spracheinstellung in Connection String liegen.

    Ich z.B. muss Türkische Zeichen hinzufügen: charset=latin5


    Public Shared myConnectionString As String = "server=" & DATENBANK.DATENBANKIP & ";uid=root; pwd=root; database=xxx;Compress=false;" & _
    "Pooling=false;" & _
    "Min Pool Size=0;" & _
    "Max Pool Size=1000000;Connection Timeout=600000;" & _
    "Connection Lifetime=0;charset=latin5"

    ist denn ühaupt eine Table im Dataset vorhanden?
    Falls ja, was ist die Table.Tablename-Eigenschaft?
    Wie viele Rows hat diese Table?

    naja - ich rate jdfs. strikt davon ab, untypisierte Datasetse zu verwenden.

    guggemol "Datenbank in 10 Minuten" auf Movie-Tuts.
    Da wird im Grunde diese Vorgehensweise vor-exerziert: "Gewußt wie"

    Auf diese Weise baust du dir einen sicher funzenden DB-Zugriff auf. Die entstehenden TableAdapter kannste auch jederzeit um weitere Abfragen erweitern, auch um parametrisierte Abfragen, wie hier ja scheints beabsichtigt ist.

Facebook
Telefonspende