WIKI de apuntes de Billy Rondón

Herramientas de usuario

Herramientas del sitio

Traza: • svn • vb6_grid
informatica:lenguajes_de_programacion:vbasic:vb6_grid

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

informatica:lenguajes_de_programacion:vbasic:vb6_grid [2025/04/08 00:45] – created admininformatica:lenguajes_de_programacion:vbasic:vb6_grid [2025/04/08 00:46] (actual) – admin
Línea 1: Línea 1:
-====== SQL BULK ======+====== Vb Grids ======
  
-Formato par Bulk: +===== DataGridView ======
-  * [[https://social.msdn.microsoft.com/Forums/es-ES/ec07a539-3abf-484b-b143-6e76e8c17a76/como-evitar-comillas-dobles-en-texto-al-usar-bulk-insert?forum=sqlserveres]]+
  
-ubigeo inei+<code vb> 
 +Con DataGrid1
  
-  * [[https://itsalljustelectrons.blogspot.com/2016/01/Openrowset-Bulk-Rowset-Provider.html]] +  Dim lcStrSQL            As String 
-  * [[https://social.msdn.microsoft.com/Forums/es-ES/ec07a539-3abf-484b-b143-6e76e8c17a76/como-evitar-comillas-dobles-en-texto-al-usar-bulk-insert]] +  Dim lcObjRcs            As ADODB.Recordset 
-  * [[https://blog.sqlauthority.com/2008/02/06/sql-server-import-csv-file-into-sql-server-using-bulk-insert-load-comma-delimited-file-into-sql-server/]] +   
-  * [[https://docs.microsoft.com/en-us/sql/relational-databases/import-export/use-a-format-file-to-bulk-import-data-sql-server?view=sql-server-ver15]]+  Set lcObjRcs = New ADODB.Recordset 
 +   
 +  lcObjRcs.Fields.Append "Guia EER", adChar, 100 
 +  lcObjRcs.Fields.Append "Codigo de Barra UPS", adDouble 
 +  lcObjRcs.Fields.Append "DUA", adDouble 
 +  lcObjRcs.Fields.Append "Estado", adDouble 
 +   
 +  lcObjRcs.Open 
 +  '* Add your fabricated records here... 
 +  lcObjRcs.AddNew Array("Guia EER", "Codigo de Barra UPS", "DUA", "Estado"), Array("asd", 2, 3, 4) 
 +   
 +  lcObjRcs.Update 
 +   
 +  Set DataGrid1.DataSource = lcObjRcs 
 +</code>
  
  
-<code sql>+===== Microsoft FlexGrids =====
  
-CREATE TABLE #UbigeoIneiMigra( +Componente Microsoft FlexGrid Control 6.0 (MSFLXGRD.OCX)
- cod_dep_inei  VARCHAR(1000), +
- desc_dep_inei VARCHAR(1000), +
- cod_prov_inei VARCHAR(1000), +
- desc_prov_inei VARCHAR(1000), +
- cod_ubigeo_inei VARCHAR(1000), +
- desc_ubigeo_inei VARCHAR(1000), +
- cod_dep_reniec VARCHAR(1000), +
- desc_dep_reniec VARCHAR(1000), +
- cod_prov_reniec VARCHAR(1000), +
- desc_prov_reniec VARCHAR(1000), +
- cod_ubigeo_reniec VARCHAR(1000), +
- desc_ubigeo_reniec VARCHAR(1000), +
- cod_dep_sunat VARCHAR(1000), +
- desc_dep_sunat VARCHAR(1000), +
- cod_prov_sunat VARCHAR(1000), +
- desc_prov_sunat VARCHAR(1000), +
- cod_ubigeo_sunat VARCHAR(1000), +
- desc_ubigeo_sunat VARCHAR(1000) +
-)+
  
-BULK INSERT #UbigeoIneiMigra +<code vb>
-FROM 'C:\equivalencia-ubigeos-oti-concytec.csv' +
-WITH ( FIELDTERMINATOR =',', CODEPAGE = 'ACP', rowterminator = '0x0a',FIRSTROW = 2 )+
  
--- Limpio comillas +' Definiendo la cantidad de filas y columnas: 
-SELECT * FROM #UbigeoIneiMigra +    MSFlexGrid1.Rows = 10 
---UPDATE #UbigeoIneiMigra +    MSFlexGrid1.Cols = 10 
- SET cod_dep_inei = REPLACE(cod_dep_inei,'"',''), +     
- desc_dep_inei = REPLACE(desc_dep_inei,'"',''), +' Definiendo el tamaño de las columnas:  
- cod_prov_inei = REPLACE(cod_prov_inei,'"',''), +    With Me.MSFlexGrid1 
- desc_prov_inei = REPLACE(desc_prov_inei,'"',''), +        '.CellHeight(0) = 200 
- cod_ubigeo_inei = REPLACE(cod_ubigeo_inei,'"',''), +        .ColWidth(0) = 300 
- desc_ubigeo_inei = REPLACE(desc_ubigeo_inei,'"',''), +        .ColWidth(1) = 2000 
- cod_dep_reniec = REPLACE(cod_dep_reniec,'"',''), +        .ColWidth(2) = 4000 
- desc_dep_reniec = REPLACE(desc_dep_reniec,'"',''), +        .ColWidth(3) = 1000 
- cod_prov_reniec = REPLACE(cod_prov_reniec,'"',''), +        .ColWidth(4) = 1000 
- desc_prov_reniec = REPLACE(desc_prov_reniec,'"',''), +        .ColWidth(5) = 1000 
- cod_ubigeo_reniec = REPLACE(cod_ubigeo_reniec,'"',''), +    End With 
- desc_ubigeo_reniec = REPLACE(desc_ubigeo_reniec,'"',''), +     
- cod_dep_sunat = REPLACE(cod_dep_sunat,'"',''), +' Definiendo el nombre de las columnas: 
- desc_dep_sunat = REPLACE(desc_dep_sunat,'"',''), +    'MSFlexGrid1.Row = 0 
- cod_prov_sunat = REPLACE(cod_prov_sunat,'"',''), +    'MSFlexGrid1.Text = "" 
- desc_prov_sunat = REPLACE(desc_prov_sunat,'"',''), +    MSFlexGrid1.Col = 1 
- cod_ubigeo_sunat = REPLACE(cod_ubigeo_sunat,'"',''), +    MSFlexGrid1.Text = "Nombres" 
- desc_ubigeo_sunat = REPLACE(desc_ubigeo_sunat,'"','')+    MSFlexGrid1.Col = 2 
 +    MSFlexGrid1.Text = "Descripcion" 
 +    MSFlexGrid1.Col = 3 
 +    MSFlexGrid1.Text = "Precios" 
 +    MSFlexGrid1.Col = 4 
 +    MSFlexGrid1.Text = "Descuentos" 
 +     
 +</code>
  
 +  * [[https://bytes.com/topic/visual-basic/answers/722706-how-change-coloumn-name-flex-grid]]
  
--- Maximo de columna +===== SGrid 2 =====
-SELECT +
- MAX(LEN(cod_dep_inei)), +
- MAX(LEN(desc_dep_inei)), +
- MAX(LEN(cod_prov_inei)), +
- MAX(LEN(desc_prov_inei)), +
- MAX(LEN(cod_ubigeo_inei)), +
- MAX(LEN(desc_ubigeo_inei)), +
- MAX(LEN(cod_dep_reniec)), +
- MAX(LEN(desc_dep_reniec)), +
- MAX(LEN(cod_prov_reniec)), +
- MAX(LEN(desc_prov_reniec)), +
- MAX(LEN(cod_ubigeo_reniec)), +
- MAX(LEN(desc_ubigeo_reniec)), +
- MAX(LEN(cod_dep_sunat)), +
- MAX(LEN(desc_dep_sunat)), +
- MAX(LEN(cod_prov_sunat)), +
- MAX(LEN(desc_prov_sunat)), +
- MAX(LEN(cod_ubigeo_sunat)), +
- MAX(LEN(desc_ubigeo_sunat)) +
-FROM #UbigeoIneiMigra+
  
--- segun su maximo de length modifico la pagina. +Componente vbAccelerator VB6 SGrid Control 2.0 (vbalSGrid.ocx)
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_dep_inei  VARCHAR(2) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_dep_inei VARCHAR(13) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_prov_inei VARCHAR(4) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_prov_inei VARCHAR(25) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_ubigeo_inei VARCHAR(6) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_ubigeo_inei VARCHAR(36) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_dep_reniec VARCHAR(2) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_dep_reniec VARCHAR(23) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_prov_reniec VARCHAR(4) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_prov_reniec VARCHAR(25) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_ubigeo_reniec VARCHAR(6) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_ubigeo_reniec VARCHAR(30) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_dep_sunat VARCHAR(2) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_dep_sunat VARCHAR(23) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_prov_sunat VARCHAR(4) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_prov_sunat VARCHAR(25) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN cod_ubigeo_sunat VARCHAR(6) +
-ALTER TABLE #UbigeoIneiMigra ALTER COLUMN desc_ubigeo_sunat VARCHAR(36)+
  
 +  * [[http://www.vbaccelerator.com/home/index.asp]]
 +  * [[https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/506-ejemplos-del-control-s-grid-de-visual-basic-accelerator.htm]]
 +  * [[https://10tec.com/activex-grid/vbaccelerator-sgrid.aspx]]
  
 +Documentación principal:
  
--- Si es que se quiere crear( ojo con las comillas al insert desde csv) +  * [[http://www.vbaccelerator.com/home/VB/Code/Controls/S_Grid_2/S_Grid_2/article.asp]] 
-CREATE TABLE #UbigeoIneiMigra( +  * [[http://www.vbaccelerator.com/codelib/sgrid/sgrid.htm]]
- cod_dep_inei  VARCHAR(2), +
- desc_dep_inei VARCHAR(13), +
- cod_prov_inei VARCHAR(4), +
- desc_prov_inei VARCHAR(25), +
- cod_ubigeo_inei VARCHAR(6), +
- desc_ubigeo_inei VARCHAR(36), +
- cod_dep_reniec VARCHAR(2), +
- desc_dep_reniec VARCHAR(23), +
- cod_prov_reniec VARCHAR(4), +
- desc_prov_reniec VARCHAR(25), +
- cod_ubigeo_reniec VARCHAR(6), +
- desc_ubigeo_reniec VARCHAR(30), +
- cod_dep_sunat VARCHAR(2), +
- desc_dep_sunat VARCHAR(23), +
- cod_prov_sunat VARCHAR(4), +
- desc_prov_sunat VARCHAR(25), +
- cod_ubigeo_sunat VARCHAR(6), +
- desc_ubigeo_sunat VARCHAR(36) +
-)+
  
 +<code vb>
  
 +' Definiendo los titulos
  
-</code> 
  
-Si no se define correctamente el CODEPAGE aparecerán errores  +' Codigo frmMatrixDemo de pTestSGrid 
-<code> + 
-LA UNIÊN - LA UNIÓN +   With grdMatrix 
-FERREÐAFE - FERREÑAFE +      .Redraw = False 
-P+UCAR DEL SARA SARA +      .ImageList = ilsIcons 
 +      .StretchLastColumnToFit = True 
 +      .GridLineColor = &HC0C0C0 
 +      .GridLines = True 
 +      .Editable = True 
 +      .AddColumn "tasks", , , , 8 
 +      .AddColumn "typeid", , , , , False 
 +      .AddColumn "articleid", , , , , False 
 +      .DefaultRowHeight = cboArticle.Height \ Screen.TwipsPerPixelY 
 +       
 +      pLoadInfo 
 +                   
 +      .Redraw = True 
 +   End With 
 </code> </code>
  
-===== Creando la tablas ===== 
  
-Tomado como ejemplo de ubigeos que hice en postgresql+<code vb>
  
-<code sql>+    With vbalGrid1
  
 +        'Agrego y defino columnas
 +        .AddColumn "Guias", "Guias"
 +        .AddColumn "DSEER", "DSEER"
 +        .AddColumn "CATPCHA", "CATPCHA"
 +        .AddColumn "Texto", "Texto"
 +        .AddColumn "Canal", "Canal"
 +        .AddColumn "DocOrigen", "Doc Origen"
 +        .AddColumn "Manifiesto", "Manifiesto"
  
---#### UBIGEOS DEPARTAMENTOS +        'Defino tamaño 
-CREATE TABLE ubigeos_dep( +        .ColumnWidth(1) = 123 
- cod_dep_inei CHAR(2) PRIMARY KEY, +        .ColumnWidth(2) = 123 
- desc_dep_inei VARCHAR(13) +        .ColumnWidth(3) = 123
-); +
---INSERT INTO ubigeos_dep( cod_dep_inei, desc_dep_inei ) +
-SELECT RIGHT('00'+cod_dep_inei,2) AS cod_dep_inei, desc_dep_inei FROM #UbigeoIneiMigra +
-WHERE desc_dep_inei <> 'NA' +
-GROUP BY cod_dep_inei, desc_dep_inei +
-ORDER BY cod_dep_inei ASC+
  
 +        '.CellText(2, 2), "asdasd"
 +        Dim lRow        As Long
 +        .Redraw = False
 +        Randomize
 +        For lRow = 1 To 100
 +            .AddRow
 +            ' -- Agregar id de producto
 +            Call .CellDetails(lRow, 1, CInt(Rnd * 25))
 +            ' -- Agregar nombres de productos
 +            Call .CellDetails(lRow, 2, "Producto " & CStr(lRow))
 +            ' -- Agregar el precio de los productos
 +            Call .CellDetails(lRow, 3, CDbl(Rnd * 5000))
 +            ' -- Agregar el precio de los productos
 +            Call .CellDetails(lRow, 4, CDbl(Rnd * 100))
 +            ' -- Agregar el Stock
 +            Call .CellDetails(lRow, 5, CInt(Rnd * 120))
 +            ' -- Agregar fecha hora
 +            Call .CellDetails(lRow, 6, DateAdd("d", Now, CInt(Rnd * 28)))
 +          
 +        Next
 +    
 +        .Redraw = True
 +    End With
  
---#### UBIGEOS PROVINCIAS +</code>
-CREATE TABLE ubigeos_prov( +
- cod_prov_inei CHAR(4) PRIMARY KEY, +
- cod_dep_inei CHAR(2), +
- desc_prov_inei VARCHAR(25) +
-); +
---INSERT INTO ubigeos_prov(cod_prov_inei,cod_dep_inei,desc_prov_inei) +
-SELECT  +
- RIGHT('0000'+cod_prov_inei,4) AS cod_prov_inei, +
- RIGHT('00'+cod_dep_inei,2) AS cod_dep_inei, +
- desc_prov_inei +
-FROM #UbigeoIneiMigra +
-WHERE desc_prov_inei <> 'NA' +
-GROUP BY cod_prov_inei, +
- cod_dep_inei, +
- desc_prov_inei +
-ORDER BY cod_prov_inei ASC+
  
 +[[https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/506-ejemplos-del-control-s-grid-de-visual-basic-accelerator.htm]]
  
---#### UBIGEOS DISTRITOS +<code vb>
-CREATE TABLE ubigeos_dist( +
- cod_ubigeo_inei CHAR(6) PRIMARY KEY, +
- cod_prov_inei CHAR(4), +
- cod_dep_inei CHAR(2), +
- desc_ubigeo_inei VARCHAR(36) +
-); +
-INSERT INTO ubigeos_dist( +
- cod_ubigeo_inei, +
- cod_prov_inei, +
- cod_dep_inei, +
- desc_ubigeo_inei +
-) +
-SELECT  +
- RIGHT('000000'+cod_ubigeo_inei,6) AS cod_ubigeo_inei, +
- RIGHT('0000'+cod_prov_inei,4) AS cod_prov_inei, +
- RIGHT('00'+cod_dep_inei,2) AS cod_dep_inei,  +
- desc_ubigeo_inei +
-FROM #UbigeoIneiMigra +
-WHERE desc_ubigeo_inei <> 'NA' +
-ORDER BY cod_ubigeo_inei ASC+
  
 +                Call .AddRow
 +                Call .CellDetails(.Rows, 1, UCase(sKey), , , RGB(0, 132, 196), vbWhite)
 +                Call .CellDetails(.Rows, 2, mCFindFiles.GetFileName(xFile))
 +                Call .CellDetails(.Rows, 3, mCFindFiles.GetFileText(xFile), DT_LEFT Or DT_MODIFYSTRING Or DT_WORDBREAK Or DT_END_ELLIPSIS, vbalImageList2.ItemIndex(sKey) - 1)
 +                Call .CellDetails(.Rows, 4, mCFindFiles.GetFormatSize(FileLen(xFile)))
 +                Call .CellDetails(.Rows, 5, mCFindFiles.GetFileType(xFile))
  
---## UBIGEOS VISTA +</code>
-CREATE VIEW ubigeos AS+
  
-SELECT dis.cod_dep_inei, +<code vb>
- dep.desc_dep_inei, +
- dis.cod_prov_inei, +
- pro.desc_prov_inei, +
- dis.cod_ubigeo_inei, +
- dis.desc_ubigeo_inei +
-FROM ubigeos_dist AS dis +
-LEFT JOIN ubigeos_dep AS dep +
- ON dep.cod_dep_inei = dis.cod_dep_inei +
-LEFT JOIN ubigeos_prov AS pro +
- ON pro.cod_prov_inei = dis.cod_prov_inei+
  
 +  With vbalGrid1
 +        Call .CellDetails(1, 1, "hola")
 +        'Es lo mismo
 +        .CellDetails 1, 2, "sd"
 +  End With
  
 </code> </code>
  
-correción de Acentos del csv +==== Parametros S Grid 2: ====
-<code sql> +
-SELECT * FROM ubigeos_prov WHERE ( desc_prov_inei LIKE '%À%' OR desc_prov_inei LIKE '%Á%' ) OR +
- ( desc_prov_inei LIKE '%È%' OR desc_prov_inei LIKE '%É%' ) OR +
- ( desc_prov_inei LIKE '%Ì%' OR desc_prov_inei LIKE '%Í%' ) OR +
- ( desc_prov_inei LIKE '%Ò%' OR desc_prov_inei LIKE '%Ó%' ) OR +
- ( desc_prov_inei LIKE '%Ù%' OR desc_prov_inei LIKE '%Ú%' )+
  
 +<code vb>
 +
 +   ' -- Mostrar Lineas divisorias
 +   vbalGrid1.GridLines = True
 +   
 +   ' -- Selecciona toda la fila
 +   .RowMode = True
 +   
 +   
 +</code>
 +
 +
 +===== Ejemplo MsFlexGrid =====
 +
 +<code vb>
 +
 +
 +Private Sub Btn_PegarExcel_Click()
 +
 + TxtClipboard = Split(Clipboard.GetText, Chr(13))
 + 
 + MSHFlexGrid1.Rows = UBound(TxtClipboard) + 1
 + 
 + For i = 0 To UBound(TxtClipboard) - 1
 +    fila = Split(TxtClipboard(i), Chr(9))
 +    For ii = 0 To UBound(fila)
 +        'MSHFlexGrid1.TextMatrix(i, ii) = fila(ii)
 +        If (ii < MSHFlexGrid1.Cols - 2) Then
 +          With MSHFlexGrid1
 +            MSHFlexGrid1.RowHeight(i + 1) = 300
 +            .Row = i + 1
 +            .Col = ii + 1
 +            .Text = Trim(Replace(fila(ii), Chr(10), ""))
 +            
 +          End With
 +        End If
 +    Next
 + Next
 +
 +End Sub
 +
 +Private Sub Btn_CargarExcel_Click()
 +   Dim Ruta As String
 +   Dim POS, ini As Integer
 +   Dim Cadena As String
 +   Dim Archivo As String
 +   
 +   CommonDialog1.CancelError = True
 +
 +On Error GoTo ErrHandler
 +   
 +   CommonDialog1.flags = cdlOFNHideReadOnly
 +   CommonDialog1.InitDir = App.Path
 +   CommonDialog1.Filter = "Archivos de Excel *.xls (*.xls)|*.xls|"
 +   CommonDialog1.FilterIndex = 1
 +   CommonDialog1.ShowOpen
 +   Cadena = CommonDialog1.Filename
 +
 +   POS = InStr(1, Cadena, "\", vbBinaryCompare)
 +   While (POS <> 0)
 +      ini = POS + 1
 +      POS = InStr(ini, Cadena, "\", vbBinaryCompare)
 +   Wend
 +
 +   'Obtiene nombre del archivo y la ruta
 +   Archivo = Mid(Cadena, ini, Len(Cadena))
 +   Ruta = Mid(Cadena, 1, ini - 1)
 +   POS = InStr(1, Archivo, ".", vbBinaryCompare)
 +   Archivo = Mid(Archivo, 1, POS - 1)
 +   Archivo = Mid(Archivo, 1, Len(Archivo) + 1)
 +
 +   Call ImportarXls(Ruta, Archivo)
 +   Exit Sub
 +
 +ErrHandler:
 +   Exit Sub    'El usuario ha hecho clic en el botón Cancelar
 +End Sub
 +
 +
 +
 +Private Sub ImportarXls(ByVal parRuta As String, ByVal parArchivo As String)
 +   Dim fila As Long
 +   Dim filaxls As Integer
 +   Dim cant As Integer
 +   Dim ObjExcel As EXCEL.Application
 +   Dim ObjHoja As EXCEL.Worksheet
 +   
 +   Dim sql As String
 +   Dim col01 As String
 +   Dim col02 As String
 +   Dim col03 As String
 +   
 +On Error GoTo ControlError
 +
 +   Set ObjExcel = CreateObject("excel.application")
 +   ObjExcel.Workbooks.Open (parRuta & parArchivo)
 +   Set ObjHoja = ObjExcel.Worksheets(1)
 +
 +   fila = 2
 +   
 +   filaxls = 1
 +   
 +   cant = 0
 +   
 +   ObjHoja.Range("A1:C1").Activate
 +   
 +   'MSHFlexGrid1.Rows = 300
 +   
 +   Do While ObjExcel.Cells(fila, 1).Value <> ""
 +      
 +      cant = cant + 1
 +      col01 = UCase(ObjExcel.Cells(fila, 1).Value)    'Nro
 +      col02 = UCase(ObjExcel.Cells(fila, 2).Value)    'Guia
 +      col03 = UCase(ObjExcel.Cells(fila, 3).Value)    'DUA
 +      'MsgBox fila & " : " & col01 & " " & col02 & " " & col03
 +      'MsgBox "asdas"
 +        MSHFlexGrid1.Rows = filaxls + 1
 +        '= fila + 1
 +        MSHFlexGrid1.Row = filaxls
 +        MSHFlexGrid1.Col = 1
 +        MSHFlexGrid1.Text = Trim(Replace(col01, Chr(10), ""))
 +        MSHFlexGrid1.Col = 2
 +        MSHFlexGrid1.Text = Trim(Replace(col02, Chr(10), ""))
 +        MSHFlexGrid1.Col = 3
 +        MSHFlexGrid1.Text = Trim(Replace(col03, Chr(10), ""))
 +
 +      
 +      fila = fila + 1
 +      filaxls = filaxls + 1
 +   
 +   Loop
 +   
 +   MsgBox "Se cargo " & cant & " registros"
 +   
 +ControlError:
 +   'MsgBox Err.Description
 +   Set ObjHoja = Nothing
 +   Set ObjExcel = Nothing
 +   On Error GoTo 0
 +   
 +End Sub
 +
 +Private Sub AccionarDeMarcar()
 +
 +  If chk_MarcarComoRetiroAnticipado.Value Then
 +    Btn_Procesar.Caption = "Procesar"
 +  Else
 +    Btn_Procesar.Caption = "Revertir Procesado"
 +  End If
 +
 +End Sub
 +
 +Private Sub Btn_Procesar_Click()
 +  
 +End Sub
 +
 +Private Sub chk_MarcarComoRetiroAnticipado_Click()
 +  Call AccionarDeMarcar
 +End Sub
 +
 +Private Sub Form_Load()
 +  
 +  MSHFlexGrid1.Cols = 5
 +  MSHFlexGrid1.RowHeight(1) = 300
 +  
 +  With MSHFlexGrid1
 +      '.CellHeight(0) = 200
 +      .ColWidth(0) = 10
 +      .ColWidth(1) = 1000
 +      .ColWidth(2) = 2000
 +      .ColWidth(3) = 2500
 +      .ColWidth(4) = 1000
 +      
 +      .Row = 0
 +      .Col = 1
 +      .Text = "Nro Orden"
 +      .Col = 2
 +      .Text = "Guia"
 +      .Col = 3
 +      .Text = "DUA"
 +      .Col = 4
 +      .Text = "Estado"
 + 
 +  End With
 +  
 +  
 +  
 +  
 +End Sub
 +
 +Private Sub Label_MarcarComoRetiroAnticipado_Click()
 +
 +  If chk_MarcarComoRetiroAnticipado.Value Then
 +    chk_MarcarComoRetiroAnticipado.Value = 0
 +  Else
 +    chk_MarcarComoRetiroAnticipado.Value = 1
 +  End If
 +
 +  Call AccionarDeMarcar
 +  
 +End Sub
  
-SELECT * FROM ubigeos_prov 
--- UPDATE ubigeos_prov SET desc_prov_inei = 'PÁUCAR DEL SARA SARA' 
-WHERE desc_prov_inei = 'PÀUCAR DEL SARA SARA' 
  
  
-SELECT * FROM ubigeos_prov 
--- UPDATE ubigeos_prov SET desc_prov_inei = 'LA UNIÓN' 
-WHERE desc_prov_inei = 'LA UNIÒN' 
 </code> </code>
  
-Busqueda con acentos insensible +=====  Error en MshFlexGrid =====
-<code sql>+
  
-SELECT * FROM ubigeos_prov +solo carga 2000 filas:
-WHERE desc_prov_inei COLLATE Latin1_general_CI_AI LIKE '%PAUCAR%' COLLATE Latin1_general_CI_AI+
  
--- EL collate puede ir en cualquiera COLLATE Latin1_general_CI_AI+Ojo error en mshflexgrid
  
---ALTER TABLE ubigeos_prov ALTER COLUMN desc_prov_inei VARCHAR(25) COLLATE Modern_Spanish_CI_AI+"This bug was fixed in Service Pack 3. 
 +  * [[http://support.microsoft.com/kb/q194653/"]] 
 +  * [[https://www.vbforums.com/showthread.php?549433-Is-There-any-limit-for-MSHFlexGrid-s-rows#:~:text=But%20the%20MSHFlexGrid%20shows%20only%202048%20rows%20instead%20of%2015600%20rows.]] 
 + 
 +====== Usando MSHFlexGrid ===== 
 + 
 +  * [[https://www.toolbox.com/tech/programming/question/datagridview-control-in-vb-061015/]] 
 + 
 +<code vb> 
 + 
 +dtatgridview1.DataSource = GetData() 
 +.. 
 +Function GetData() As ICollection 
 +Dim dt As DataTable, ds As DataSet 
 +Try 
 +ds = New DataSet() 
 +dt = New DataTable() 
 +dt = ds.Tables.Add(“Names”) 
 +dt.Columns.Add(“FirstName”, GetType(String)) 
 +dt.Columns.Add(“LastName”, GetType(String)) 
 +dt.Rows.Add(“John”, “Doe”) 
 +dt.Rows.Add(“Jane”, “Doe”) 
 +Catch ex As Exception 
 +System.Windows.Forms.MessageBox.Show(ex.Message) 
 +End Try 
 +Dim dv As DataView 
 +dv = New DataView(dt) 
 +Return dv 
 +End Function
  
 </code> </code>
  
 +<code vb>
  
 +Dim ds As New DataSet
 +Try
 +ds = GetDS()
 +DataGridView2.DataSource = ds
 +DataGridView2.DataMember = ds.Tables(0).TableName
 +Catch ex As Exception
 +System.Windows.Forms.MessageBox.Show(ex.Message)
 +End Try
 +End Sub
 +Function GetDS() As DataSet
 +Dim ds As DataSet = New DataSet()
 +Dim dt As DataTable
 +Dim dr As DataRow
 +Try
 +dt = ds.Tables.Add(“Names”)
 +dt.Columns.Add(“FirstName”, GetType(String))
 +dt.Columns.Add(“LastName”, GetType(String))
 +dr = dt.NewRow
 +dr.Item(0) = “John”
 +dr.Item(1) = “Doe”
 +ds.Tables(0).Rows.Add(dr)
 +Catch ex As Exception
 +MsgBox(ex.Message.ToString())
 +End Try
 +Return ds
 +End Function
 +
 +</code>
 +====== Prueba ======
informatica/lenguajes_de_programacion/vbasic/vb6_grid.1744073149.txt.gz · Última modificación: 2025/04/08 00:45 por admin