VB.NET SQL ExecuteReader.

Question

0.00/5 (No votes)

See more:

SQL-Server-2008

Hello everyone,

Is there an easy way to get the values return in SQL using field names.
I have a function that executes a SELECT script.

VB

Public Function ExecuteQuery(ByVal SQL As String) As DataSet
    Dim dt As New DataSet
    Try
        If SQLConn.State = ConnectionState.Closed Then SQLConn.Open()
        Dim SQLCmd As New SqlCommand
        SQLCmd.Connection = SQLConn
        SQLCmd.CommandText = SQL
        SQLCmd.ExecuteReader()
        SQLCmd.Connection.Close()
        Dim SQLAdp As New SqlDataAdapter(SQLCmd)
        SQLAdp.Fill(dt)
    Catch ex As Exception
        dt = Nothing
    End Try
    Return dt
End Function

This is how I get the field values

VB

Dim dt As DataSet = ExecuteQuery(My.Resources.AddressFile.Replace("%%", trvSearch.SelectedNode.Tag))
MessageBox.Show(dt.Tables(0).Rows(0).Item(0))

Can I get data using field name:

VB

dt.items("Field01")

Is there a ResultSet in SqlClient?

Please help... Thanks

Posted 12-Jul-13 5:59am

hansoctantan

Updated 12-Jul-13 6:01am

v2

Add a Solution

Comments

[no name] 12-Jul-13 12:20pm

I am not sure exactly what it is that you are asking. I use an SqlDataReader to "get data using field name" which you are getting but throwing away without using.... SQLCmd.ExecuteReader()

mgoad99 12-Jul-13 12:42pm

You would have to do something like dt.Tables(0).Rows(0).Item("Field01")

You are using a dataset which is made up of 1 or more tables. each table has 1 or more rows. Each row has 1 or more items. To get an item, you do have to specify the table, and row.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Aydin Homay · Accepted Answer · 2013-07-12T21:28:00

Hi
Yes you can do it with DataReader object:

Public Function ExecuteQuery(ByVal SQL As String) As DataSet
      Dim dr As New SqlDataReader ' or OleDataReader
      Dim List<object> myReaderList = new List<object>()
      Try
          If SQLConn.State = ConnectionState.Open Then SQLConn.Close()
          Dim SQLCmd As New SqlCommand
          ConnectionState.Open
          SQLCmd.Connection = SQLConn
          SQLCmd.CommandText = SQL
          dr = SQLCmd.ExecuteReader()
          while(dr.Read())
             myReaderList.Add(dr.Read("FiealName"))
          end while
          SQLCmd.Connection.Close()
          ' you can remove SQLAdp and dt maybe you don`t need that ;)
          Dim SQLAdp As New SqlDataAdapter(SQLCmd)
          SQLAdp.Fill(dt)
      Catch ex As Exception
          dt = Nothing
      End Try
      Return dt
  End Function</object></object>

Of course you should note if you are close the connection you will lost reader so close connection after finished your work with reader.
Best Regards.