• Sábado 12 de Julio de 2025, 07:45

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.


Temas - rock_park185

Páginas: [1]
1
Visual Basic 6.0 e inferiores / palabra "new"
« en: Miércoles 17 de Febrero de 2010, 00:56 »
Hola amigos de solocodigo, esta es mi primera vez en este foro y espero me puedan ayudar. estoy realizando un programa de una bitacora de lost and found y ya casi la tengo con excepcion  de l reporte, encontre un programa que realiza reportes en la web y hace lo que necesito, lo anexe  a mi programa y lo ajuste usando mi información y mis datos, (lo mas seguro es que algo no haya hecho algo bien) y cuando genero el modulo de reportes me marca el error en esta parte del código.

Private Sub Form_Load()
Move (Screen.Width - Width)  2, (Screen.Height - Height)  2
   
Set cn = New Connection ******************************aqui marca el error diciendo "el uso de la palabra clave new no es valido"
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" & App.Path & "bitacora.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"
***el codigo de abajo es el original y el de arriba es el de mi programa, mi bd se llama bitacora  
 'cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=MS Access Database;DBQ=C:Bitácora_Fairmont_respusbBitacora.mdb;DefaultDir=C:Bitácora_Fairmont_respusb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
End Sub

el programa cuando se genera solo si funciona a la perfeccion, pero no se que estoy haciendo mal, por favor necesito que me ayuden para corregirlo, si necesitan mas datos de mi error este es mi correo Rock_park185@hotmail.com

gracias amigos de solocodigo

Páginas: [1]