20 lines
464 B
VB.net
20 lines
464 B
VB.net
|
Public Class LlenaGrid
|
||
|
|
Private Command As New Command()
|
||
|
|
|
||
|
|
Public Sub LlenaData(ByVal Sentencia As String, ByVal Grid As DataGrid, ByVal Tabla As DataTable)
|
||
|
|
Try
|
||
|
|
Tabla.Clear()
|
||
|
|
Catch
|
||
|
|
End Try
|
||
|
|
Try
|
||
|
|
Command.spsql = Sentencia
|
||
|
|
Grid.DataSource = Command.SeleccionGrid(Command.spsql, Tabla)
|
||
|
|
Catch e As Exception
|
||
|
|
MessageBox.Show(e.Message)
|
||
|
|
End Try
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Class
|
||
|
|
|