Mensajes

Yo no te pude resolver la duda, xq no habias colocado tu codigo fuente como para examinar el posible error! 


Sancho.Mazorka   

Fijate si algunos de estos links te sirve, porque no colocaste el codigo de tu programa:

http://foros.solocodigo.com/index.php?showtopic=20708
http://forums.microsoft.com/MSDN-ES/ShowPost.aspx?PostID=1633959&SiteID=11

http://www.forosdelweb.com/f29/ayuda-urgente-con-net-2003-sql2000-actualizar-registros-325868/
http://www.foro.vb-mundo.com/viewtopic.php?printertopic=1&t=2547865&start=0&postdays=0&postorder=asc&vote=viewresult


Sancho.Mazorka   

El cursor queda al final del documento:

Código [Seleccionar] Expandir

.SelStart = Len(.Text)

La seleccion se queda al final porque la funcion Len devuelve la cantidad de caracteres de rtbChat


Sancho.Mazorka   

Yo estoy interesado y empeze a desarrollar uno!

mandenme privado si estan interesados!


Sancho.Mazorka   

Y bueno, otra prueba mas de que Windows Vista es una cagada!

PD: Que raro que te cree un archivo append, a mi no me lo crea :S


Sancho.Mazorka   

Primero que nada, bienvenido!
Segundo, leete las reglas, nunca se escribe en mayusculas, dificulta la lectura y queda mal
Tercero, utiliza los TAG de codigo

Mira este ejemplito aver si te sirve (sacado de: http://www.elguille.info/vb/ejemplos/ADO_datacontrol.htm):

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    ' Indicar la base de datos a usar! ESTO ES ACCESS 2000
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\db2000.mdb"
   
    Adodc1.CursorType = adOpenDynamic
    ' Conectarlo a la tabla de prueba
    Adodc1.RecordSource = "Table1"
    ' Refresh es necesario para que se cargue la tabla
    Adodc1.Refresh
   
    ' Conectar manualmente los Text1 al recordset
    Dim i As Long
    ' Asignar el control data
    For i = 0 To 2
        Set Text1(i).DataSource = Adodc1
    Next
    ' Asignar los nombres de los campos
    Text1(0).DataField = "Nombre"
    Text1(1).DataField = "e-mail"
    Text1(2).DataField = "Comentario"
End Sub

Fijate, talvez te salteaste algo o lo usas mal!
Espero te sirva!


Sancho.Mazorka   

Código (vb) [Seleccionar] Expandir

Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
   Dim Archivo As String 'Creamos una variable para cargar el archivo
   Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
   Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
Close #1 'Cerramos el archivo para volver a poder acceder a el.


otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
Esto no te lo entendi, si me explicas mejor te lo respondo.

Código (vb) [Seleccionar] Expandir

Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.

Espero haber sido claro, sino pregunta!

Sancho.Mazorka   

Fijate si main.dll existe, xq Append no crea un archivo si no existe, solo le agrega informacion al final!
O sino es como dijo Chefito el identificador de numero de archivo esta en uso, aunque es medio raro porque en tu soft no creo que hayas abierto otro.
O proba en fijarte si el archivo lo esta usando otra aplicacion sin compartir el acceso a el.


Sancho.Mazorka   

Siempre que postees que te da un error, di el codigo del error y la descripcion del error, es mas facil la solucion, cuando me digas que sucede podre ayudarte!


Sancho.Mazorka   

Si podes explicar un poquito mejor te voy a agradecer, xq no te entiendo 


Sancho.Mazorka