Halloj, har följande kod:

<code>
Dim Conn As New SqlConnection
Dim sSQL As New SqlCommand
Dim rs As New SqlDataReader()

Conn.ConnectionString = "Data Source = 111.222.333.444;Initial Catalog=MinDB;UID=sa;PWD=losen"
Conn.Open()

Try
nZip = Replace(sCneeZ, " ", "")

sSQL = New SqlCommand("SELECT * FROM tblSmall WHERE " & nZip & " BETWEEN nZipFrom AND nZipTo", Conn)
rs = sSQL.ExecuteReader

If rs.EOF Then
sType = "Slask"
nLoss = "0"
Else
sType = rs("fType")
nLoss = "1"
End If

Catch ex As SystemException
' om fel uppstår
Me.StatusBox.Text = sText & vbCrLf & " - SQL-fel:" & vbCrLf & (ex.Message)
End Try

Conn.Close()
</code>

Denna kod genererar två fel:

1. Type 'System.Data.SqlClientDataReader' has no constructors.
2. EOF is not a member of 'System.Data.SqlClient.SqlDataReader'.


Vad sjutton ska man göra åt detta???


M V H
Johannes

Efter mycket om och men så försöker jag med

<code>
If rs.HasRows = False Then
</code>

och

<code>
Dim rs As SqlDataReader = sSQL.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
</code>
och det funkar!!!