Autor Tema: Llenar una matriz con un campo de una tabla (Leído 8261 veces)

jotae · « **en:** Lunes 7 de Febrero de 2011, 17:45 »

Podrían ayudarme para llenar una matriz con un campo de una tabla, por favor?
Trabajo con Visual Basic 2005 Express

El código base:

Código: vb.net

Me.con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:socios.mdb; Persist Security Info=False"
 con.Open()
vtda = New OleDbDataAdapter("Select nombre from inscritos where status= 1 ", con)
Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(dta)
dst = New DataSet
dta.Fill(dst, "inscritos")
vActivos = Me.dst.Tables("inscritos").Rows.Count
 

De esta DB necesito llenar una matriz con el campo nombre quizá por medio de un Datareader pero sinceramente no sé cómo hacerlo.

Agradecería mucho su ayuda porque soy novato en esto. Gracias!!!

gabio2

Código: vb.net

Me.con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:socios.mdb; Persist Security Info=False"
 con.Open()
vtda = New OleDbDataAdapter("Select nombre from inscritos where status= 1 ", con)
Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(dta)
Dim dt As  New  DataTable
Dim ArrayNombres As New ArrayList
dta.Fill(dt, "inscritos")
 
'Aquí se agregan a nuestro Array.. 
For Each dr As DataRow In dt.Rows
ArrayNombres.Add(dr(0).ToString())
Next
 
 

Saludos! espero te sirva..

jotae

Gracias por responderme. Me da un error en la línea marcada. El código quedó así:

Código: vb.net

Private Sub tbMensualidad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbMensualidad.Click
   ' la base de datos ya está abierta arriba....
    dta = New OleDbDataAdapter("Select nombre from inscritos where status= 1 ", con)
    Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(dta)
    Dim dt As New DataTable  
    Dim ArrayNombres As New ArrayList
    dta.Fill(dt, "inscritos") ' **** error en esta linea*****
    'Aquí se agregan a nuestro Array..
    For Each dr As DataRow In dt.Rows
      ArrayNombres.Add(dr(0).ToString())
    Next
    
  End Sub
 

El error:

El objeto no es ADODB.RecordSet ni ADODB.Record.
Nombre del parámetro: adodb

Saludos y gracias de nuevo.

gabio2

Algo estás haciendo mal con respecto a tu conexión con la BD, con el código que tenias anteriormente no te producia ningún error?...

te recomiendo que leeas los siguientes links
http://www.elguille.info/NET/ADONET/ejemploSQL.htm
http://social.msdn.microsoft.com/Forums ... ab3d4062aa
http://msdn.microsoft.com/es-es/library ... 71%29.aspx

Por cierto, igual puedes usar Google, solo pones a buscar "Como conectar VB.NET con SQL Server" , o cosas similares, tu problema ahora es con la BD, tu duda anterior espero haya quedado resuelta saludos!

jotae

Gracias pero la conexion funciona perfectamente. El problema no es la DB. Si quito las lineas del array todo trabaja perfecto. Realmente el programa está funcionando hace un año y no hay ni el más mínimo problema en la base de datos pero hay que hacer una modificación y para ello se requiere este array. De todas formas, gracias por la intención pero no me funciona. Seguiré intentando la solucion. Saludos.-

jotae

Por si le sirve a alguno, esta es la solución a mi problema en lugar del array:

Código: Visual Basic

Dim Cl_Nombres As New Collection
    For Each Dt_Row As DataRow In dst.Tables("inscritos").Rows
      Dim Dt_Nombre As String = Dt_Row.Item("nombre").ToString
      Cl_Nombres.Add(CObj(Dt_Nombre))
Next
 

Gracias gabio2 por tu ayuda.

SoloCodigo

Autor Tema: Llenar una matriz con un campo de una tabla (Leído 8261 veces)

jotae

Llenar una matriz con un campo de una tabla

gabio2

Re: Llenar una matriz con un campo de una tabla

jotae

Re: Llenar una matriz con un campo de una tabla

gabio2

Re: Llenar una matriz con un campo de una tabla

jotae

Re: Llenar una matriz con un campo de una tabla

jotae

Re: Llenar una matriz con un campo de una tabla