SELECT query

[ramyan]

hi
I am new to vb.net and i want to store the values for a selectcommand into a dynamic array.is it possible? i am using MS access
this is my code
Me.OleDbConnection1.Open()
Me.OleDbDataAdapter1.SelectCommand.CommandText = " SELECT age FROM sample where age>50"
Me.OleDbSelectCommand1.ExecuteNonQuery()
i want to store the result of selectcommand1 to get stored in an array

thanks
ramya

[umeshpotdar]

use data Reader to read one by one and store in the array

[ramyan]

use data Reader to read one by one and store in the array

how to ?can u explain witha piece of code.sorry ..i am new to.net

[vijaydiwakar]

how to ?can u explain witha piece of code.sorry ..i am new to.net

wait for some time i'll give it to u

[vijaydiwakar]

hi
I am new to vb.net and i want to store the values for a selectcommand into a dynamic array.is it possible? i am using MS access
this is my code
Me.OleDbConnection1.Open()
Me.OleDbDataAdapter1.SelectCommand.CommandText = " SELECT age FROM sample where age>50"
Me.OleDbSelectCommand1.ExecuteNonQuery()
i want to store the result of selectcommand1 to get stored in an array

thanks
ramya

try this code

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Conn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim Rdr As OleDb.OleDbDataReader
        With Conn
            .ConnectionString = "<thy connection string>"
            .Open()
            With cmd
                .CommandText = "SELECT age FROM sample where age>50"
                .CommandType = CommandType.Text
                Rdr = .ExecuteReader
                .Clone()
                .Dispose()
            End With
            .Close()
            .Dispose()
        End With
        Dim myarr() As String
        Dim i%
        With Rdr
            Do While .Read
                i += 1
                '<strore the item in thy array here 0th column value will be returned  as
                myarr(i) = .GetValue(0).ToString
            Loop
 
        End With
        'insted of using dynamic array u may use dataset as
        Dim ds As New DataSet
        Dim Adp As OleDb.OleDbDataAdapter
        With Conn
            .ConnectionString = "<thy connection string>"
            .Open()
            With cmd
                .CommandText = "SELECT age FROM sample where age>50"
                .CommandType = CommandType.Text
                Adp = New OleDb.OleDbDataAdapter(cmd)
                .Clone()
                .Dispose()
            End With
            .Close()
            .Dispose()
        End With
        Adp.Fill(ds)
        ' here all values will be stored in dataset
    End Sub
 

[ramyan]

Hi
Thanks a ton!i could work with dataset as u said.but i am getting run time error in array
Dim Rdr As OleDb.OleDbDataReader
OleDbConnection1.Open()
OleDbDataAdapter1.SelectCommand.CommandText = " SELECT age FROM sample where age>50"
Rdr = OleDbSelectCommand1.ExecuteReader
Dim myarr() As String
Dim i%
i = 1
While Rdr.Read
myarr(i) = Rdr.GetValue(0).ToString
i += 1
End While


note: if i give the size of array it works fine .else if its a dynamic array it gives an error Object reference not set to an instance of an object. but for this what you gave is fine .