hsadeh
دوشنبه 26 شهریور 1386, 11:35 صبح
سلام - در کد زیر ، Datareader مقداری را برنمی گرداند . آیا کسی میتواند به من کمک کند ؟
Dim cn As New SqlConnection
cn.ConnectionString = "server=...;database=...;uid=...;pwd=..."
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "Select * FROM quran WHERE id='1' "
Dim da As New SqlDataAdapter
Dim ds As New DataSet
da.SelectCommand = cmd
da.Fill(ds, "quran")
cn.Open()
cmd.ExecuteNonQuery()
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.Read() Then
Do While dr.Read()
.
.
.
Loop
End If
dr.Close()
cn.Close()
باتشکر
Dim cn As New SqlConnection
cn.ConnectionString = "server=...;database=...;uid=...;pwd=..."
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "Select * FROM quran WHERE id='1' "
Dim da As New SqlDataAdapter
Dim ds As New DataSet
da.SelectCommand = cmd
da.Fill(ds, "quran")
cn.Open()
cmd.ExecuteNonQuery()
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.Read() Then
Do While dr.Read()
.
.
.
Loop
End If
dr.Close()
cn.Close()
باتشکر