Problemas con datagrid Problemas con datagrid
Hola compañeros,
Tengo el siguiente código dentro de un formualrio que
contiene un grid:
Public Function initializate_values(ByVal connection As
String, ByVal value As String, ByVal optSee As Byte)
Dim oDataAdapter As SqlDataAdapter
Dim oDataSet As DataSet
Dim cnnSource As New SqlConnection
cnnSource.ConnectionString = connection
oDataAdapter = New SqlDataAdapter(value, cnnSource)
Dim oCB As SqlCommandBuilder = New
SqlCommandBuilder(oDataAdapter)
oDataSet = New DataSet
oDataAdapter.Fill(oDataSet, value)
Me.dgViewData.DataSource = oDataSet
Me.dgViewData.DataMember = value
oDataAdapter = Nothing
oDataSet = Nothing
cnnSource = Nothing
oCB = Nothing
End Function
A esta función la llamo de la siguiente forma desde otro
formulario:
Private Sub cmdConsulta_Click(ByVal sender As
System.Object,
Dim FrmViewDataAux As New FrmViewData
FrmViewDataAux.initializate_values
(Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=DATOS_JCYL_IMPORT;Data
Source=DIVISAAS, "SELECT * FROM TABLA", 1)
FrmViewDataAux.ShowDialog()
End Sub
¿Alguien sabe porque no me funciona? ¿Como tengo que hacerlo?
Saludos y gracias por vuestra ayuda.
</TR>
__________________
Roberto García Prieto
Director del Departamento de Desarrollo
Altia Consultores
Valladolid
|