http://wiki.billyrondon.com/ 2026-06-04T19:22:10+00:00 http://wiki.billyrondon.com/ http://wiki.billyrondon.com/lib/exe/fetch.php/wiki:dokuwiki.svg text/html 2025-04-08T03:39:02+00:00 Anonymous (anonymous@undisclosed.example.com) http://wiki.billyrondon.com/doku.php/informatica:lenguajes_de_programacion:vbasic:vb_conexion_db?rev=1744083542&do=diff VB6 ASP Conexión SQL Server * <https://razorsql.com/articles/sqlserver_asp_column_names_values.html> * <https://stackoverflow.com/questions/49103537/how-to-create-select-using-asp-classic-where-data-source-from-ms-sql-server-an> * <https://www.w3schools.com/asp/ado_ref_recordset.asp> * <https://stackoverflow.com/questions/17397216/how-to-loop-for-each-recordset-in-asp/17398468> Dim strDbConnection Dim objConn Dim objRS Dim strSQL strDbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Da… text/html 2025-04-08T00:46:12+00:00 Anonymous (anonymous@undisclosed.example.com) http://wiki.billyrondon.com/doku.php/informatica:lenguajes_de_programacion:vbasic:vb6_grid?rev=1744073172&do=diff Vb Grids DataGridView Con DataGrid1 Dim lcStrSQL As String Dim lcObjRcs As ADODB.Recordset 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("a…