Array en C1TrueDBGrid (en .Net) - VB-MUNDO

Ronald_Leon_Madrid · #1 (**permalink**) 15-06-2005, 21:05:06

Estimados Programadores suelto este post porque he visto cambios radicales de los ComponentOne de VB6 a .Net es especial el C1TrueDBGrid por ejemplo yo tengo este codigo para llenar esta grilla
en Vb6

Código:

Dim mxArrArea As XArrayDB - Declaración de Array

Public Sub rTraerDatos(ByVal psSql As String)
Dim lrRs            As ADODB.Recordset
Dim objArea         As TraTablas.clsAreasQry
Dim lnI             As Long
Dim lsCadErr        As String

On Error GoTo Errores

    Set objArea = New TraTablas.clsAreasQry
    lsCadErr = objArea.LeerDatos(psSql, lrRs)
    If mxArrArea Is Nothing Then
        Set mxArrArea = New XArrayDB
    Else
        Set mxArrArea = Nothing
        Set mxArrArea = New XArrayDB
    End If
    mxArrArea.ReDim 0, lrRs.RecordCount - 1, 0, cnTipoOperCia
    lnI = 0
    Do While Not lrRs.EOF
        mxArrArea.Value(lnI, 0) = "" & Trim(lrRs!Cia_Id)
        mxArrArea.Value(lnI, 1) = "" & Trim(lrRs!Nombre)
        mxArrArea.Value(lnI, 2) = "" & Trim(lrRs!Area_Id)
        mxArrArea.Value(lnI, 3) = "" & Trim(lrRs!Dpto_Dsc)
        mxArrArea.Value(lnI, 4) = mnConsultar
        lnI = lnI + 1
        lrRs.MoveNext
    Loop
    [b]Set tdbgArea.Array = mxArrArea
    tdbgArea.ReBind[/b]    Set objArea = Nothing
    Set lrRs = Nothing
    Exit Sub
    
Errores:
    Set objArea = Nothing
    Set lrRs = Nothing
    MsgBox CStr(Err.Number) & " " & Err.Description, vbCritical + vbMsgBoxHelpButton, Me.Caption, Err.HelpFile, Err.HelpContext
    
End Sub

Sin embargo en .Net veo que ya no existe el método Array, donde se le asigna el arreglo cargado.

Alguien ya habrá investigado como puede ser esto?

Saludos cordiales,

mensazen · #2 (**permalink**) 26-06-2005, 08:19:51

Apreciado Ronald. Me he dado una vuelta por C1 y lo que he podido encontrar es esto:

Cita:

Does True DBGrid for .NET have a storage mode (using XArray) like its ActiveX predecessor?
Article ID: 56
Product: True DBGrid for .NET
Published On: 3/9/2005

Answer
The .NET platform provides several intrinsic collections that serve the same purpose as the XArray COM object. For this reason, there is no .NET version of XArray and True DBGrid for .NET does not support storage mode.

However, you can achieve similar results by creating a DataTable object in code. In fact, any object that supports the IList interface can be used as a DataSource.

No se si aclarará algo tus dudas. :smt017

Un abrazo :smt006

Ronald_Leon_Madrid · #3 (**permalink**) 27-06-2005, 13:38:55

Estimado Mensazen :

que tal un gusto en saludarte, muchas gracias por el post ya que me deja claro mis dudas que el ComponentOne de .Net no soporta Array, pues ojala haya otra manera mas facil de hacerlo ya que el VB6 trabajo muchos con Arrays.

Punto menos para el .Net..jajajjajaajaja

Saludos cordiales,

imported_chiaravel · #4 (**permalink**) 27-06-2005, 14:25:53

Cita:

Empezado por Ronald_Leon_Madrid

Estimado Mensazen :

que tal un gusto en saludarte, muchas gracias por el post ya que me deja claro mis dudas que el ComponentOne de .Net no soporta Array, pues ojala haya otra manera mas facil de hacerlo ya que el VB6 trabajo muchos con Arrays.

Punto menos para el .Net..jajajjajaajaja

Saludos cordiales,

Amigo Ronald, si lees bien la respuesta de Menzasen ahi deja en claro que no soporta Array pero que lo tiene resuelto intrinsecamente, por la cual debes encontrar la forma de reemplazarlo.

Saludos

Ronald_Leon_Madrid · #5 (**permalink**) 27-06-2005, 17:40:52

Amigo Pablo :

que tal un gusto en saludarte, difinitivamente no encuentro la forma intrinsica de reemplazarlo, será que me falta investigar mas este fabuloso control.

Saludos cordiales,

mensazen · #6 (**permalink**) 25-08-2005, 15:10:37

Querido Ronald, perdona que resucite este post después de tanto tiempo. ¿Has podido solucionar el problema?. Yo me estoy empezando a meter en Vb.Net y el problema que me he encontrado (bueno uno de los problemas) es que yo utilizo mucho las matrices de controles para la carga de formularios y en Vb.Net no se pueden utilizar.

La solución, creo, es crear colecciones. Supongo que esto también te serviría, en vez de utilizar una matríz usar una colección. Seguiré haciendo pruebas, voy poco a poco por falta de tiempo, y cuando sepa algo mas, si te puede ser de interés,ya te lo comentaré.

Un abrazo :smt006

Istyar · #7 (**permalink**) 26-08-2005, 00:34:00

Para llenar un TrueDBGrid puedes hacerlo de una forma muy facil.
Sería algo así como (escribo código de memoria, que no tengo ejemplos a mano):

' Esto al principio
Imports System.Data.SqlClient

' Para leer los datos usamos un adaptador, que es una
' clase que permite sincronizar una tabla en memoria del
' PC local con una tabla en la base de datos de un PC remoto
Dim CadenaConexion As String = "Data Source=(Local);Initial Catalog=Northwind; Integrated Security=SSPI"
Dim tabla as New DataTable()
Dim Adp As New SqlDataAdapter("SELECT * FROM Products", CadenaConexion)

' Leemos todos los datos de la base de datos.
Adp.Fill(tabla)

' Asociamos la tabla al Grid que habremos añadido
' en el diseñador de formularios
C1TrueDBGrid1.DataSource = tabla