Mensajes

[adoProductos.ConnectionString = RutaadoProductos.OpenrstProductos.CursorLocation = adUseServerrstProductos.Open "PRODUCTOS", adoProductos, adOpenKeyset, adLockOptimistic, adCmdTableDirectrstProductos.Index = "Descripcion_Producto"]

El problema es que he configurado el Recordset para que tenga un Indice pero me da error escribi lo siguiente:
adoProductos.ConnectionString = Ruta
adoProductos.Open
rstProductos.CursorLocation = adUseServer
rstProductos.Open "PRODUCTOS", adoProductos, adOpenKeyset, adLockOptimistic, adCmdTableDirect
rstProductos.Index = "Descripcion_Producto"

es como si la Tabla Productos no existiera en la Base de Datos, porque hasta le he cambiado el Nomre de la Tabla y da el mismo error,  la Base de Datos es una que tenia en Advantage y la exporte no se  si eso sea el problema.

Este es el Error:

'Descripcion_Producto' is not an index in this table.'

Ayuda, Gracias.

[Adodc.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=RutaBaseDatos;Jet OLEDB:Database Password=laclave"]

Simplemente es asi:

Adodc.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=RutaBaseDatos;Jet OLEDB:Database Password=laclave"


Nota: 3.51 es para Base de Datos en Access 97 y 4.0 para Access 2000

Chiao 

bueno si es un Archivo encryptado pues se me ocurren dos cosas:

1. descifrar ese archivo
2. Renombrar el Archivo para asi "joder" el Zone Alarm

Supongo que el Zone Alarm o cualquiera tendras que escribir en el Registro basta con saber cuales son las entradas correctas.

Chiao

['---------------------EN ESTE PROCEDIMIENTO ME AÑADO A LA LISTA DE PROGRAMAS PERMITIDOS POR EL Windows Firewall _Y UTILIZO EL PUERTO 2708 PARA HACER ALGUNAS FUNCIONES QUE REQUIEREN INTERNETRegSetValues RegLocalMachine, "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "Security Data.exe", App.Path & "\" & "Security Data.exe" & ":*:Enabled:Security Data", RegStringRegSetValues RegLocalMachine, "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2708:TCP", "2708:TCP:*:Enabled:Puerto Security Data", RegString]

Bueno a aqui esta es una forma que yo utilizo para hacer mis Aplicaciones aceptables para el WinXP Firewall, lo primero que hago es que escribo en el Registro (y no a travez de)

Inicio>Panel de Control>FireWall de Windows>Exepciones>Agregar Puerto/Programa

Basta con escribir esto:
'---------------------EN ESTE PROCEDIMIENTO ME AÑADO A LA LISTA DE PROGRAMAS PERMITIDOS POR EL Windows Firewall _
Y UTILIZO EL PUERTO 2708 PARA HACER ALGUNAS FUNCIONES QUE REQUIEREN INTERNET
RegSetValues RegLocalMachine, "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "Security Data.exe", App.Path & "\" & "Security Data.exe" & ":*:Enabled:Security Data", RegString
RegSetValues RegLocalMachine, "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2708:TCP", "2708:TCP:*:Enabled:Puerto Security Data", RegString


De esta manera el WinXP Firewall no saltara jamas porque lo que esta haciendo el Programa es que se esta añadiendo al Registro del Firewall para que utilize el Puerto 2708, asi que es una exelente idea a la hora de hacer Viruses o Troyanos

Bueno, en realidad ya encontre la solucion es que debo ponerle un While para esperar a que termine el comando anterior asi:

While Inet1.StillExecuting=True
  DoEvents
Wend

With Inet1
.URL = "ftp.web.deprueba"
.UserName = "usuario"
.Password = "pass"
.Execute , "CD images"
.Execute , "GET foto.gif C:\FotoDescargada.gif"
.Execute , "CLOSE"
End With

me da error de "Still Executing Last Request"

que pasa?

[Public Declare Function GetKeyState Lib `user32` (ByVal nVirtKey _As Long) As Integer]

Para hacer necesitas esta API

Public Declare Function GetKeyState Lib `user32` (ByVal nVirtKey _
As Long) As Integer

Luego en un boton escribes;

Tmp = GetKeyState(vbKeyCapital)
If Tmp = 1 Then
MsgBox "Caps Lock está encendido"
Else
MsgBox "Caps Lock está apagado"
End If



Y para apagarlo o encenderlo tienes que usar esta API y estas Constantes;

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Const VK_NUMLOCK = &H90
Private Const VK_SCROLL = &H91


Luego te creas una Sub o Funcion aparte y le escribes esto;

Public Sub EncenderApagar()
        keybd_event VK_CAPITAL, 0, 1, 0
        keybd_event VK_CAPITAL, 0, 2, 0
End Sub

[Private Sub Command1_Click()cmdSave_ClickEnd Sub]

Si te refieres a dar un Click a un Boton en tu Aplicacion:

Private Sub Command1_Click()
cmdSave_Click
End Sub


Al presionar el Boton Command1
presiono el Boton cmdSave_Click

La Version que utlilizo es la 10