VB.NET: syntax to insert value into an array

[seshu]

Hi everybody
This is seshu to explain more clearly about the above title i have a table in database now i want get a column from that table with all the rows for suppose the comlumn is containg the name i want send all those to an array in my fron end and after that on a button click i want to send all the names in array in to another table in my database i hope someone will help me atleast with giving input to array and retrive the data from array
thanking you
regards
seshu

[Killer42]

Well, I haven't tested it, but I think this little self-contained routine will add a string to an array...

Public Sub AddStringToArray(ByVal strEntry As String, strArray() As String)
  Dim Upper As Long, Lower As Long
  Upper = UBound(strArray)
  Lower = LBound(strArray)
  ReDim Preserve strArray(Lower To Upper + 1)
  strArray(Upper + 1) = strEntry
End Sub

Note that the array must be defined in such a way that the size can be changed, for this to work. But anyway, even if you don't use the routine, the code should be useful as an example of adding to an array.

[willakawill]

Hi everybody
This is seshu to explain more clearly about the above title i have a table in database now i want get a column from that table with all the rows for suppose the comlumn is containg the name i want send all those to an array in my fron end and after that on a button click i want to send all the names in array in to another table in my database i hope someone will help me atleast with giving input to array and retrive the data from array
thanking you
regards
seshu

Is this an array or a recordset that you want? Do you want to return the data to your app so that you can access it, sort it etc or do you specifically want it to be transferred into an array?

A recordset object will hold the data and you can create an array from it if you really need to using the GetRows() method if you declare a variant.

Dim MyArray As Variant
 
MyArray = MyRecordset.GetRows()

[seshu]

thanks to both of you and iam sorry for delaying in watching your sugesions ofcourse i dint check yet the moment i check this i will report you
thank you
regards
seshu

[seshu]

sorry sir i dint find the way to impleement i mean i dint understand atall can you give me detail coding and one more thing i dont know how to asign this array to a column and the my application is in vb.net

[hariharanmca]

sorry sir i dint find the way to impleement i mean i dint understand atall can you give me detail coding and one more thing i dont know how to asign this array to a column and the my application is in vb.net

Dim strName() As String

Private Sub Load_dbNames_TO_Array()
Dim rst As ADODB.Recordset
Dim lngRecordCount As Long
Dim i As Long
strsql = "Select Names from Table1"
Set rst = dbConnection.Execute(strsql)
If rst.recordcount > 0 Then
lngRecordCount = rst.recordcount - 1
ReDim strName(0 To lngRecordCount) As String
For i = 0 To lngRecordCount
strName(i) = rst.field("Names").Value
rst.MoveNext
Next i
End If
End Sub

Private Sub Load_strNames_To_Database()
Dim rst As ADODB.Recordset
Dim lngArrayCount As Long
Dim i As Long
lngArrayCount = UBound(strName)
For i = 0 To lngArrayCount
strsql = "Insert into Table2 (Names) values('" & strName(i) & "')"
dbConnection.Execute strsql
Next i
End Sub

Private Sub Command1_Click()
Load_strNames_To_Database
End Sub

Private Sub Form_Load()
Load_dbNames_TO_Array
End Sub


I think this will solve you

[willakawill]

Dim strName() As String

Private Sub Load_dbNames_TO_Array()
Dim rst As ADODB.Recordset
Dim lngRecordCount As Long
Dim i As Long
strsql = "Select Names from Table1"
Set rst = dbConnection.Execute(strsql)
If rst.recordcount > 0 Then
lngRecordCount = rst.recordcount - 1
ReDim strName(0 To lngRecordCount) As String
For i = 0 To lngRecordCount
strName(i) = rst.field("Names").Value
rst.MoveNext
Next i
End If
End Sub

Private Sub Load_strNames_To_Database()
Dim rst As ADODB.Recordset
Dim lngArrayCount As Long
Dim i As Long
lngArrayCount = UBound(strName)
For i = 0 To lngArrayCount
strsql = "Insert into Table2 (Names) values('" & strName(i) & "')"
dbConnection.Execute strsql
Next i
End Sub

Private Sub Command1_Click()
Load_strNames_To_Database
End Sub

Private Sub Form_Load()
Load_dbNames_TO_Array
End Sub


I think this will solve you

This is not a good idea. Using the recordcount property will give different results depending on the recordset type, cursor type etc. You could have a million records and get -1 for the recordcount property as shown.

You are also limited here to a single column at a time. You can capture all of the columns of a table with GetRows()

Dim MyArray As Variant
 
If Not rs.EOF Then
   MyArray = rs.GetRows()
End If

[seshu]

sir here at this place i dont have vb6 and i am strugling to convert the code into vb.net how is it in .net
regards
seshu