MensajePublicado: Mie 12 Ago, 2015 7:43 pm    Asunto: No encuentro componente relacionado en rad studio XE6 Responder citando
Estimados.

tengo un ejemplo en basic en donde lleno un objeto "DataTable", que es llenado con otros elementos (se ve muy simple) y luego lo transmito por un canal WSDL (esto se como hacerlo).

mi consulta es, qué componentes en Rad Studio XE6 o superior puedo utilizar?. he intentado con TSQLTable pero no logro "imitar" la funcionalidad de agregar la data.

adjunto ejemplo en basic,

Código:

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim table As New DataTable
        // Create four typed columns in the DataTable.
        table.Columns.Add("ident", GetType(String))
        table.Columns.Add("nombre", GetType(String))
        table.Columns.Add("tipo", GetType(String))
        table.Columns.Add("lat", GetType(Decimal))
        table.Columns.Add("lon", GetType(Decimal))
        table.Columns.Add("vel", GetType(Integer))
        table.Columns.Add("sent", GetType(Integer))
        table.Columns.Add("fecha", GetType(DateTime))
        table.Columns.Add("comp1", GetType(Boolean))
        table.Columns.Add("comp2", GetType(Boolean))
        table.Columns.Add("comp3", GetType(Boolean))
        table.Columns.Add("comp4", GetType(Decimal))
        table.Columns.Add("comp5", GetType(Decimal))
        table.Columns.Add("comp6", GetType(Decimal))
        // Add five rows with those columns filled in the DataTable.
        table.Rows.Add("1", "KKKHHH", "jj", -39.5313, -72.84129, 10, 91, DateTime.Now, 0, 0, 0, 999, 999, 999)
        table.Rows.Add("2", "UUUTTT", "ksk", -34.8764, -71.1445, 97, 180, DateTime.Now, 0, 0, 0, 999, 999, 999)

        Dim WS As New ServiceReference1.ServiceSoapClient
        Dim DS As New DataSet
        DS.Tables.Add(table)

        Dim result As String = WS.EnviarDatos(DS.Tables(0))

        If result = "1" Then
            TextBox1.Text = "Insertado los Datos"
        ElseIf result = False Then
            TextBox1.Text = "Error"
        End If

    End Sub

End Class