Ayuda con ejecutar código de procedimiento de un modulo vb.net
Publicado por Miguel Angel (1 intervención) el 27/02/2020 02:53:34
Buenas noches Señores, espero me puedan apoyar con este problema que tengo, soy nuevo vb.net tengo conocimientos vba, por lo que funciona bien en vba, aqui en vb.net no, estoy tratando de llamar al procedimiento "CargarDG_Contribuyentes", y no carga el datagriview, pero si lo pongo en el entorno del formulario si carga normal, no se que estoy haciendo mal?
Gracias por su apoyo.
Miguel Angel
1
2
3
4
5
6
7
8
9
10
11
12
Imports System.Data.OleDb
Public Class FormDBContribuyentesvb
Private Sub FormDBContribuyentesvb_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
conextarDBC.Open()
Call CargarDG_Contribuyentes() ''''AQUI LLAMO AL PROCEDIMIENTO
' MsgBox("Conectado a la BD", vbInformation, "Correcto")Catch ex As Exception
MsgBox("Error al conectar con la BD", vbCritical, "Sin conextarseDBEmpresas")
End Try
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Imports System
Imports System.DataImports System.Data.OleDb
Module Modulo_DBContribuyentes
Public Sub CargarDG_Contribuyentes()
Dim adaptador As New OleDb.OleDbDataAdapterDim registros As New DataSet
Dim consulta As String
consulta = "select * from DBContribuyentes"
adaptador = New OleDb.OleDbDataAdapter(consulta, conextarDBC)
registros.Tables.Add("DBContribuyentes")
adaptador.Fill(registros.Tables("DBContribuyentes"))
FormDBContribuyentesvb.DataGridView1.DataSource = registros.Tables("DBContribuyentes")
With FormDBContribuyentesvb.DataGridView1.Columns("RUC").Width = 85
.Columns("RAZON_SOCIAL").Width = 250
.Columns("RAZON_SOCIAL").HeaderText = "RAZON SOCIAL"
.Columns("REGIMEN").Width = 115
.Columns("USUARIO").Visible = False
.Columns("CLAVE").Visible = False
.Columns("DIRECCION").Width = 300
.Columns("TERMINAL").Visible = False
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End With
End Sub
End Module
Gracias por su apoyo.
Miguel Angel
Valora esta pregunta
0