[SOLUCIONADO] Problemas con un insert en un dataTable en VB.Net

[josiasdaniel_]

Saludos amigos foristas, les escribo para saber si alguien me puede ayudar a realizar un insert utilizando dataTable. Tengo el siguiente codigo de la siguiente manera

Código:

 Dim adapter As New TH_nomina0000thEmpresaTableAdapters.th_EmpresaTableAdapter
        Dim data As TH_nomina0000thEmpresa.th_EmpresaDataTable = adapter.InsertNewReg(txt_codEmp.Text, txt_razonSocial.Text, txt_rif.Text)

Y el query que tengo en el dataSet es el siguiente:

Código:

 INSERT INTO th_Empresa
                         (th_codEmp, th_descEmp, th_RifEmp)
VALUES        (@th_codEmp,@th_descEmp,@th_RifEmp);

El error que me está arrojando el compilador de VB.NET es "Un valor de tipo 'Integer' no se puesde convertir en 'MT_nomina.TH_nomina0000thEmpresa.th_EmpresaDataTa ble'

Muchas gracias por la ayuda que me puedan brindar..

[josiasdaniel_]

He solucionado el problema, y les comparto la forma como me quedó el código al compilar el programa.

Código:

 Try
            txt_codEmp.Text = adapter.CodMax + 1
            If txt_codEmp.Text.Length > 0 And txt_razonSocial.Text.Length > 0 And txt_rif.Text.Length > 0 Then
                adapter.InsertNewReg(txt_codEmp.Text, txt_razonSocial.Text, txt_rif.Text)
            End If
            Me.Th_EmpresaTableAdapter.Fill(Me.TH_nomina0000thEmpresa.th_Empresa)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

De esta forma ayudo a cualquiera que tenga una duda similar.

[cronopiomx]

Gracias por tu aporte.

s2
cronos