Mensajes

no entiendo muy bien que quieres hacer con el FOR, porque eso te crea un monton de registros duplicados, y coincido con PepiX, te sobra el "rs.MoveNext", deberias checar que es lo que quieres guardar realmente...

pues eso es de lo más sencillo:


en el form inicial

Private Sub Form_Load()
    Dim i As Long
    i = Shell("calc", vbNormalFocus)
    El_otro_form.Show
End Sub

pues podrías usar el control Inet

With Inet1
        .AccessType = icUseDefault
        .UserName = "tu_usuario"
        .Password = "tu_password"
        .URL = "http://Servidor/Archivo.txt"
        .Execute "PUT"
wend

Private Sub Inet1_StateChanged(ByVal State As Integer)
   ' Obtiene la respuesta del servidor con el método
   ' GetChunk cuando State = 12.

   Dim vtData As Variant ' Variable de datos.
   Select Case State
   ' ... Otros casos no mostrados.
   Case icError ' 11
      ' En caso de error, devuelve ResponseCode
      ' y ResponseInfo.
      vtData = Inet1.ResponseCode & ":" & _
      Inet1.ResponseInfo
   Case icResponseCompleted ' 12
      Dim vtData As Variant
      Dim strData As String
      Dim bDone As Boolean: bDone = False

      ' Obtiene el primer bloque.
      vtData = Inet1.GetChunk(1024, icString)
      DoEvents

      Do While Not bDone
         strData = strData & vtData
         ' Obtiene el siguiente bloque.
         vtData = Inet1.GetChunk(1024, icString)
         DoEvents

         If Len(vtData) = 0 Then
            bDone = True
         End If
      Loop
      txtData.Text = strData
   End Select
   
End Sub

y porque en lugar de manejar los datos como una hoja de excel no los manipulas con un Datacontrol, asi es más fácil y con lo puedes hacer con una consulta SQL

Bueno puede ser que estes usando OCX's o DLL's que no tenga la otra pc lo más recomendable esque hagas y un instalador y checa si la pc tiene instalado el framework

Código [Seleccionar] Expandir

"SELECT * DISTINCT FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'"

creo que la sintaxis va asi:

Código [Seleccionar] Expandir

"SELECT DISTINCT * FROM Cliente Where Nombre='MARTHA AND SEXO='M' AND EDAD=18'"



perdón por posterar 2 veces fue un error

Código [Seleccionar] Expandir

"SELECT * DISTINCT FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'"

creo que la sintaxis va asi:

Código [Seleccionar] Expandir

"SELECT DISTINCT * FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'"

buenas, mira estuve revisando tu codigo y encontre lo siguiente:

1. Algunas variables no estan declaradas, a menos que se ta haya pasado ponerlas aqui, deberías usar Option explicit para que te diga que variables falta declrar

2. en cuanto al codigo detecte un error

Código:
crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))

la variable y a veces toma un valor mayor a MaxPass y por eso falla te recomiento que pongas el incremento de la variable antes del if, i al if agregarle >=, ej:

y = y+1
if y >= MaxPass then y = 1


yo ya lo probe de esta manera y no me ha fallado

en el visual 5, viene un ejemplo de como ejecutar la calculadora de windows dentro de un MDIForm, deberias de revisarlo.

no he usado mucho el DataReport, pero hasta donde se, no se puede, a ver si alguien más nos puede decir