• Viernes 9 de Mayo de 2025, 18:35

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - nostromo

Páginas: 1 ... 4 5 [6]
126
Visual Basic 6.0 e inferiores / Re: Error 713
« en: Martes 27 de Julio de 2004, 15:55 »
Hola;

Puedes entregar una lista de los controles que estas utilizando y las referencias del proyecto.

no te reconoce la forma de extraer los datos, crear tablas, etc..

La forma de utilizar ADO ó DAO, es la clase de Acces que tienes instalado, si tienes Acces2000, 2003 vas ha tener problema. En el caso que desarrollaste en Acces97 o del Win95.

En Proyectos / Referencias / , tienes el:

Microsoft DAO 2.5/3.51 Compability Library

o;

Microsoft DAO 3.5 Object Library

Es posible que hayas programado con el 2.6, que es precisamente para Acces97, surge otra pregunta, con que Visual estas programando, con 5 o el 6??

Otra forma es instalar el VB en el equipo nuevo y ver las referencias que salgan, ves la versión del acces que tienes, o de frenteon ocupar otro instalador que te registre los ocx y dll de tu proyecto.

Nos vemos, si tienes problemas escribe...

127
Visual Basic 6.0 e inferiores / Re: Necesito Hacer Algo
« en: Martes 27 de Julio de 2004, 15:38 »
Hola;

Esta bueno el proyecto, pero es muy grande. Pero si pagan no malestaría tanto.

Primero, debes agregar evento en form Load del formulario, en donde reconozca el tamaño de la pantalla.

1088 x 736
1024 x 768
:
Etc.

Código: Text
  1.  
  2. Private Sub Form_Load()
  3.     'Tamaño del area de trabajo (Ancho x Alto)
  4.         'Altura de la pantalla
  5.         h = Screen.Height / Screen.TwipsPerPixelY
  6.         'Ancho de la pantalla
  7.         w = Screen.Width / Screen.TwipsPerPixelX
  8.     'REsolucion 800 x 600
  9.     If h = 600 And w = 800 Then
  10.         With Me
  11.             .Height = 8670
  12.             .Width = 12090
  13.         End With
  14.     End If
  15.     'Resolución 1024 x 768
  16.     If h = 768 And w = 1024 Then
  17.         With Me
  18.             .Height = 11145 '9930
  19.             .Width = 12090
  20.              'Determinas la posición del form en la pantalla
  21.             .Top = Screen.TwipsPerPixelY '/ 2 + 200
  22.             .Left = Screen.TwipsPerPixelX + 1526 '/ 2 + 200
  23.         End With
  24.     End If
  25.     'Resolución 1152 x 864
  26.     If h = 864 And w = 1152 Then
  27.         With Me
  28.             .Height = 11145 '9930
  29.             .Width = 12090
  30.             .Top = h / 2
  31.             .Left = w / 2
  32.         End With
  33.     End If
  34. End Sub
  35.  
  36.  

Para adecuarse en Alto y Largo.

La base de datos, estaría en el cliente o en el sitio oficial de tu programa, y desde tu cliente se conecta???... Como??? lo has pensado.

Desde Form Load se conecta automáticamente al control internet que tienes.

Código: Text
  1.  
  2. Private Sub Form_Load ()
  3.     WebBorwser.Navigate ("http://www.publicidad.com/publi/mostar.php/")
  4. [COLOR=blue]End Sub[/COLOR]
  5.  
  6.  

Nos vemos.

128
Visual Basic 6.0 e inferiores / Re: Necesito Hacer Algo
« en: Martes 27 de Julio de 2004, 15:35 »
Hola;

También debes controlar el timer control para cargar rápidamente el WebBrowser.

Nos vemos.

129
C/C++ / Re: Base De Datos En C
« en: Martes 27 de Julio de 2004, 00:28 »
Se me olvidaba...

Desde Dev-C++, puedes importar el proyecto de VBC++

Nos vemos.

130
C/C++ / Re: Base De Datos En C
« en: Martes 27 de Julio de 2004, 00:26 »
Hola viejo;

Esto es lo que tengo, espero que te sirva:

Create Database with MySQL

Compatibility:C, C++ (general), Microsoft Visual C++, UNIX C++

Demonstrates how to use plain C to create a MySQL database, connect to it, create a table with fields, populate the table, execute an SQL query, and print the results. No MFC required - uses only plain C.

ZIP : Create_Dat1576414192003.zip

Nos vemos.

131
C/C++ / Re: Como Puedo Linkar Una Base De Datos Access?
« en: Lunes 26 de Julio de 2004, 23:57 »
Hola;

Por el momento tengo cóodigo pero en forma consola:

1.- Primer ejemplo:
Código: Text
  1.  
  2. #include<stdio.h>
  3. #include"C:\Program Files\Microsoft Visual Studio\VC98\mfc\SRC\stdafx.h"
  4.  
  5. #import "c:\program files\common files\system\ado\msado15.dll" rename("EOF", "EOFile")
  6.  
  7. struct StartOLEProcess
  8. {
  9.   StartOLEProcess()
  10.   {
  11.     ::CoInitialize(NULL);
  12.   }
  13.   ~StartOLEProcess()
  14.   {
  15.     ::CoUninitialize();
  16.   }
  17. } _start_StartOLEProcess;
  18.  
  19. void main(void)
  20. {
  21.   ADODB::_ConnectionPtr con = NULL;
  22.   ADODB::_RecordsetPtr rec = NULL;
  23.   ADODB::FieldPtr pAuthor;
  24.   _variant_t vAuthor;
  25.   char sAuthor[40];
  26.   HRESULT hr = S_OK;
  27.   char File[255], ConStr[500];
  28.   VARIANT *vRecordsAffected = NULL;
  29.   int ctr;
  30.  
  31.   printf("\nEnter Database Path and File name: ");
  32.   fgets(File, 250, stdin);
  33.   for (ctr = 0; (unsigned int)ctr < strlen(File); ctr++)
  34.   {
  35.     if (File[ctr] == '\n')
  36.     {
  37.       File[ctr] = '\0';
  38.       break;
  39.     }
  40.   }
  41.   ConStr[0] = '\0';
  42.   strcat(ConStr, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=");
  43.   strcat(ConStr, File);
  44.  
  45.   hr = con.CreateInstance(__uuidof(ADODB::Connection));
  46.   printf("\nCreateInstance result= %d uuidof= %d\n", hr, __uuidof(ADODB::Connection));
  47.   printf("\nConnection object created.");
  48.  
  49.   con->Open(ConStr, "", "", 0);
  50.  
  51.   printf("\nConnection opened.");
  52.  
  53.   printf("\nEnter Database table name: ");
  54.   fgets(File, 250, stdin);
  55.   for (ctr = 0; (unsigned int)ctr < strlen(File); ctr++)
  56.   {
  57.     if (File[ctr] == '\n')
  58.     {
  59.       File[ctr] = '\0';
  60.       break;
  61.     }
  62.   }
  63.   ConStr[0] = '\0';
  64.   strcat(ConStr, "SELECT * FROM ");
  65.   strcat(ConStr, File);
  66.   rec = con->Execute(ConStr, vRecordsAffected, 1);
  67.  
  68.   printf("\nSQL statement processed");
  69.  
  70.   printf("\nEnter Database field name: ");
  71.   fgets(File, 250, stdin);
  72.   for (ctr = 0; (unsigned int)ctr < strlen(File); ctr++)
  73.   {
  74.     if (File[ctr] == '\n')
  75.     {
  76.       File[ctr] = '\0';
  77.       break;
  78.     }
  79.   }
  80.   pAuthor = rec->Fields->GetItem(File);
  81.  
  82.   if ((pAuthor->Type == 202)||(pAuthor->Type == 203))
  83.   {
  84.     printf("\nGetting data now...\n");
  85.  
  86.     while (!rec->EOFile)
  87.     {
  88.       vAuthor.Clear();
  89.       vAuthor = pAuthor->Value;
  90.       WideCharToMultiByte(CP_ACP, 0, vAuthor.bstrVal, -1, sAuthor, sizeof(sAuthor), NULL, NULL);
  91.  
  92.       printf("\n%s", sAuthor);
  93.       rec->MoveNext();
  94.     }
  95.     printf("\n\nEnd of data.");
  96.   }
  97.   else
  98.   {
  99.     if ((pAuthor->Type == 11)||(pAuthor->Type == 7))
  100.     {
  101.       printf("\nGetting data now...\n");
  102.  
  103.       while (!rec->EOFile)
  104.       {
  105.         vAuthor.Clear();
  106.         vAuthor = pAuthor->Value;
  107.  
  108.         printf("\n%d", vAuthor.boolVal);
  109.         rec->MoveNext();
  110.       }
  111.       printf("\n\nEnd of data.");
  112.     }
  113.     else
  114.     {
  115.       if (pAuthor->Type == 2)
  116.       {
  117.         printf("\nGetting data now...\n");
  118.  
  119.         while (!rec->EOFile)
  120.         {
  121.           vAuthor.Clear();
  122.           vAuthor = pAuthor->Value;
  123.  
  124.           printf("\n%d", vAuthor.intVal);
  125.           rec->MoveNext();
  126.         }
  127.         printf("\n\nEnd of data.");
  128.       }
  129.       else
  130.       {
  131.         printf("\nUnable to handle that data type, %d", pAuthor->Type);
  132.       }
  133.     }
  134.   }
  135.  
  136.   rec->Close();
  137.   rec = NULL;
  138.  
  139.   printf("\nClosed and removed recordset object.");
  140.  
  141.   con->Close();
  142.   con = NULL;
  143.  
  144.   printf("\nClosed and removed connection object.");
  145.  
  146.   return;
  147. }
  148.  
  149.  

2.- Access MDB Compatibility:C, C++ (general), Microsoft Visual C++
To open MS Access or Ms SQL server database using C/C++ or VC++

Código: Text
  1.  
  2. //**************************************
  3. //    
  4. // Name: Access MDB
  5. // Description:To open MS Access or Ms S
  6. //     QL server database using C/C++ or VC++
  7. // By: Mokarrabin A Rahman
  8. //
  9. // Returns:Shows some recordsets
  10. //
  11. // Assumes:Change the name of the databa
  12. //     se to any database and place it in the s
  13. //     ame directory as the .exe. You shoul als
  14. //     o change the SQL to your particular data
  15. //     base. You may change the connect string
  16. //     to connect to MS SQL Server.
  17. //
  18. // Side Effects:Great
  19. //
  20. //This code is copyrighted and has
  21. // limited warranties.Please see http://
  22. //     www.Planet-Source-Code.com/vb/scripts/Sh
  23. //     owCode.asp?txtCodeId=1371&lngWId=3
  24. //for details.
  25. //**************************************
  26. //    
  27.  
  28. #import "c:\Program Files\Common Files\System\ADO\msado15.dll" \
  29. no_namespace rename("EOF", "EndOfFile")
  30. // This code comes from : www.geocities.
  31. //     com/mokarrabin
  32. #include <stdio.h>
  33. #include <iostream.h>
  34. void main(void)
  35.  
  36.  
  37.     {
  38.     CoInitialize(NULL);
  39.     try
  40.  
  41.  
  42.         {
  43.         _RecordsetPtr pRst("ADODB.Recordset");
  44.         // Connection String
  45.         _bstr_t strCnn("DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;DBQ=GBOOK.mdb");
  46.            // Open table
  47.           pRst->Open("SELECT * FROM ProductService where ProductService like '%samir%';", strCnn, adOpenStatic, adLockReadOnly, adCmdText);
  48.            
  49.            pRst->MoveFirst();
  50.  
  51.  
  52.                while (!pRst->EndOfFile) {
  53.                  cout<<(char*) ((_bstr_t) pRst->GetFields()->GetItem("ProductService")->GetValue())<<endl;
  54.                  pRst->MoveNext();
  55.                }
  56.                pRst->Close();
  57.                
  58.         }
  59.         catch (_com_error &e)
  60.  
  61.  
  62.             {
  63.             cout<<(char*) e.Description();
  64.         }
  65.         ::CoUninitialize();
  66.     }
  67.  
  68.  

3.- Database Access - beta
Compatibility:C++ (general), Microsoft Visual C++

ZIP : Database_A1505751212002.zip

Nos vemos, espero que te sirva en Win32 Aplicación aún no encuentro nada.

132
Visual Basic 6.0 e inferiores / Re: Cerrar Excel
« en: Domingo 25 de Julio de 2004, 08:01 »
Hola;

Para no tener problemas:

Código: Text
  1.  
  2. Dim xlsApp As Variant
  3.    
  4.     Set xlsApp = CreateObject("Excel.application")
  5.  
  6.  

Terminando con :

Set ApExcel = Nothing

Y sin olvidar:

Código: Text
  1.  
  2. Private Sub Form_Unload(Cancel As Integer)
  3.     Set xlsApp = Nothing
  4. End Sub
  5.  
  6.  

Nos vemos.

133
Visual Basic 6.0 e inferiores / Re: Imprimir Excel Desde Vb6
« en: Domingo 25 de Julio de 2004, 07:52 »
Hola;

por lo menos lo realizo de la siguiente manera:

Código: Text
  1.  
  2.         'Ver documento antes de imprimir
  3.         If optVista.Value = True Then
  4.             .Worksheets.PrintPreview
  5.         End If
  6.         Set ApExcel = Nothing
  7.  
  8.  

Tengo dos Option, Ver documento y Vista preliminar.

No se si es lo que buscas.

Nos vemos

Páginas: 1 ... 4 5 [6]