Mit SQLDataReader anstelle von recordset

Ich bin neu hier und hatte diese Frage. Kann ich die SQLDataReader verwenden, anstatt ein Recordset. Ich möchte erreichen, das folgende Ergebnis in einem SQLDataReader.

Dim dbConn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqlstr As String = "SELECT Name,Status FROM table1 WHERE id=" + item_id.Value.ToString
rs.Open(SQL, dbConn)
While Not rs.EOF
   txtName.Text = rs.Fields.Item("Name").Value
   ddlstatus.SelectedIndex = 1
   rs.MoveNext()
End While
rs.Close()
rs = Nothing
dbConn.Close()
dbConn = Nothing

Kann ich ersetzen recordset mit SQLDataReader und wenn ich kann, können Sie bitte zeigen Sie mir die änderungen im code?

InformationsquelleAutor nerts | 2010-01-28
  1. 19

    Seine dringend empfohlen, dass Sie verwenden die using Muster:

        Dim sConnection As String = "server=(local);uid=sa;pwd=PassWord;database=DatabaseName"
    Using Con As New SqlConnection(sConnection)
        Con.Open()
        Using Com As New SqlCommand("Select * From tablename", Con)
            Using RDR = Com.ExecuteReader()
                If RDR.HasRows Then
                    Do While RDR.Read
                        txtName.Text = RDR.Item("Name").ToString()
                    Loop
                End If
            End Using
        End Using
        Con.Close()
    End Using
    • Gibt es eine C# - Antwort für diese ?
    • Sie können Telerik-Konverter zu konvertieren vb.net zu C# oder Umgekehrt
    InformationsquelleAutor Chris Haas
  2. 2

    Müssen Sie swap ein paar Sachen, die etwas ähnlich der folgenden.

    Hier ist ein Beispiel, werden Sie brauchen, dies zu ändern um Ihr Ziel zu erfüllen, aber das zeigt den Unterschied.

    Ich auch empfehlen die Verwendung von "Using" - Anweisung, um die Verbindung verwalten/reader. Auch eine parametrisierte Abfrage.

    Dim sConnection As String = "server=(local);uid=sa;pwd=PassWord;database=DatabaseName"

Dim objCommand As New SqlCommand
objCommand.CommandText = "Select * From tablename"
objCommand.Connection = New SqlConnection(sConnection)
objCommand.Connection.Open()

Dim objDataReader As SqlDataReader = objCommand.ExecuteReader()

If objDataReader.HasRows Then
Do While objDataReader.Read()
Console.WriteLine(" Your name is: " & Convert.ToString(objDataReader(0)))
Loop
Else
Console.WriteLine("No rows returned.")
End If

objDataReader.Close()
objCommand.Dispose()
    InformationsquelleAutor Mitchel Sellers
  3. 0
    Dim rdrDataReader As SqlClient.SqlDataReader
Dim cmdCommand As SqlClient.SqlCommand
Dim dtsData As New DataSet
Dim dtbTable As New DataTable
Dim i As Integer
Dim SQLStatement as String

msqlConnection.Open()

cmdCommand = New SqlClient.SqlCommand(SQLStatement, msqlConnection)

rdrDataReader = cmdCommand.ExecuteReader()

For i = 0 To (rdrDataReader.FieldCount - 1)
    dtbTable.Columns.Add(rdrDataReader.GetName(i), rdrDataReader.GetFieldType(i))
Next
dtbTable.BeginLoadData()

Dim values(rdrDataReader.FieldCount - 1) As Object

While rdrDataReader.Read
    rdrDataReader.GetValues(values)
    dtbTable.LoadDataRow(values, True)
End While
dtbTable.EndLoadData()

dtsData.Tables.Add(dtbTable)

msqlConnection.Close()

Return dtsData
    • Es gibt keine Notwendigkeit, erstellen/laden eines dataset für diese.
    InformationsquelleAutor Seth Moore
Schreibe einen Kommentar