Mensajes

Hola, proba algo asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim vResultado As Double
    vResultado = Format((CDbl(Text1.Text) + CDbl(Text2.Text)) / CDbl(Text3.Text), "##,#0.000000")
    MsgBox vResultado
End Sub

saludos.

no fallo no, porque si llega a haber un error, al compilar te avisa y todo, es raro lo que decis,¿no le estaras errando la ruta donde se genera? por ejemplo hace que se compile en el escritorio asi lo encontras rapido, y tambien proba deshabilitar un minuto el antivirus y despues compila nuevamente haber si es el antivirus o no...

otra pregunta que visual basic tenes ¿no me digas que es el portable no?...

saludos.

[elmaro]

lo que te paso elmaroes propio de .NET, en cambio tu codigo es como si estarias programando en visual basic 6.

si, la verdad depende lo que uno quiere hacer, pero creo que para lo que quiere le alcanza el split y el for, lo de la api es para algo mas avanzado como un editor de texto o algo parecido, si tenes miles de lineas la api es mucho mas rapida.

pues si, como dije anteriormente estas tratando de abrir un recordset y la conexion esta cerrada. fijate la conexion "cn" si la estas descargando en algun momento.

Hola, yo te digo como lo haria:

1 - olvidate de usar el control ADODC.usa ADO desde codigo.

2 - olvidate de estar relacionando los textbox con su campo correspondiente, eso es viejo, se usa con el ADODC, pero como te digo que no lo uses no lo vas a precisar.

3 - no se de que son las pantallas, pero yo no haria todo en una pantalla, tenes que poner una pantalla para cada cosa distinta, o sea los clientes van en una pantalla, los articulos en otra, los proveedores en otra..etc..cada una con su ABM y lo que queiras hacer...por darte un ejemplo.

4 - no uses textbox, usa una grilla para presentar los datos, es mucho mejor a la vista y podes visulizar mas datos a la vez.

5 - con ADO desde codigo podes hacer un sistema de gestion entero solo usando 2 recordset principales, los declaras publicos y los usas cuando debe ser y los cerras cuando terminas de usarlo, asi te queda disponible para usarlo nuevament. si por ahi necesitas usar otro recordset temporal lo delcaras donde lo queres usar y lo descargas ahi mismo.

6 - lo mejor para aprender es ver un ejemplo ya hecho, y te recomiendo ver este, que es lo mas facil y simple que hay.

7 - la forma de agregar, borrar y actualizar los datos de las tablas te recomiendo usar SQL, y no los metodos .Addnew y Update o .Delete de los recordset.

Formulario ABM con Access y Ado

saludos.

Hola, con FindWindow busca la ventana con nombre de clase Notepad y si te devuelve mayor a 0 es porque esta abierta, tambien podes buscar si existe el proceso llamado notepad.exe, en internet tenes ejemplos de findwindow buscalo, aca tambien hay.

saludos.

si, creo que exagere un poco con el tiempo y el tamaño, pero en una PC buena tenes por lo menos 6GB en un minuto, y si es una i7 o i9 entonces tenemos por lo menos 10GB por minuto.

saludos.

[Form2.Text1.Text]

este codigo:

Código (vb) [Seleccionar] Expandir

Public Sub Picture1_Click()
With CD
        .DialogTitle = "Seleccione el icono a canbiar!" 'Sera el titulo que le aparecera en el Dialogo de Seleccionar Archivo
        .Filter = "Aplicaciones ico|*.ico" 'Filtramos los archivos para que solo se puedan escoger archivos .exe
        .ShowOpen 'Mostramos el Dialogo de seleccionar
        End With 'Terminamos el With antes abierto
        If CD.FileName <> "" Then Text1.Text = CD.FileName
Picture1.Picture = LoadPicture(Text1.Text)
cargado = True
End Sub

a la vista mia ya veo que no anda.primero veamos la logica del codigo (que no esta ni indentado), entonces quedaria asi:

Código (vb) [Seleccionar] Expandir

Public Sub Picture1_Click()
    With cd
        .DialogTitle = "Seleccione el icono a canbiar!" 'Sera el titulo que le aparecera en el Dialogo de Seleccionar Archivo
        .Filter = "Aplicaciones ico|*.ico" 'Filtramos los archivos para que solo se puedan escoger archivos .exe
        .ShowOpen 'Mostramos el Dialogo de seleccionar
    End With 'Terminamos el With antes abierto
    If cd.FileName <> "" Then Text1.Text = cd.FileName
    Picture1.Picture = LoadPicture(Text1.Text)
    cargado = True
End Sub

no estas cerrando el if y eso hace que el programa SIEMRPE carge algo en el picturebox, y si seleccionas cancelar del commondialog te carga una cadena vacia en el picturebox lo cual genera un error y CARGADO siempre va  a ser = TRUE

nunca deberias usar algo como Form2.Text1.Text, eso de andar sacando valores de textbox de otros forms es chapuza, mejor declarar una variable global que guarde el valor de ese "Form2.Text1.Text" y ni necesitas hacerle el .Hide al formulario que de paso tambien el .Hide ni se deberia usar.

y el .exe a cambiar donde lo seleccionas??

saludos.

[UPDATE Tabla SET stock=...WHERE idprodcuto=...]

Hola, es que no tendrias que trabajar sobe la grilla, la grilla se usa para visualizar datos, las sumas,restas y operaciones las debes hacer en las pantallas y despues cuando uno sale de esas pantallas actualizar la grilla para ver el cambio.por ejemplo si en una grilla tengo esto:

ID  Nombre       Stock

1   Coca Cola       10
2   Pepsi               20
3   Sprite              1

si creas una pantalla que te valla descontando del stock lo que tenes, si en la pantalla seleccionas la coca cola, y llevas 5, debes hacer un UPDATE Tabla SET stock=...WHERE idprodcuto=... en la tabla donde tengas los datos y restarle 5 al valor actual que tenga el producto.lo explique asi nomas.

saludos.