Mensajes

OK pero cual es el codigo q pones en ese evento del form

Hola no se ve la imagen  subila a un host de imagenes gratuito o describi el error q tenes asi t podemos ayudar. Saludos.

Hola proba con esto

Código [Seleccionar] Expandir


Private Declare Function PostMessageBynum Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long           'enviar mensajes al control
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long    'posicionar el puntero del ratón
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long           'obtener la posición del control
Private Type RECT
         Left As Long
         Top As Long
         Right As Long
         Bottom As Long
End Type
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
    MsgBox "HOLA"
End Sub

Private Sub Command2_Click()
Dim rsp As Long, PosX As Long, PosY As Long, PosXY As Long
Dim lpRect As RECT
    'conocer las posición del botón relativa a la pantalla, en pixels
    rsp = GetWindowRect(Command1.hwnd, lpRect)
    'colocar el ratón sobre el centro del botón
    PosX = lpRect.Left + ((lpRect.Right - lpRect.Left) / 2)
    PosY = lpRect.Top + ((lpRect.Bottom - lpRect.Top) / 2)
    rsp = SetCursorPos(PosX, PosY)
    'obtener la posicion del centro del control relativa al propio control,
    'en pixels
    'no es obligatorio, es para que las coordenadas recibidas en el mousedown
    'del control sean coherentes
    'la posicion y va en la palabra alta y la x en la baja
    PosXY = (PosY - lpRect.Top) * 65536 + (PosX - lpRect.Left)
    'simular el click del ratón
    rsp = PostMessageBynum(Command1.hwnd, WM_LBUTTONDOWN, 0&, PosXY)
    rsp = PostMessageBynum(Command1.hwnd, WM_LBUTTONUP, 0&, PosXY)
End Sub


Saludos.

hola, proba con esto, agregale un timer a un form, tilda la opcion de "Microsoft Scripting Runtime" en Proyecto --> Referencias, para utilizar el FileSystemObject con el metodo DeleteFolder, el cual elimina la carpeta sin importar el contenido q tenga.

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Dim xcarpeta As FileSystemObject
Set xcarpeta = New FileSystemObject
    On Error GoTo elerror
    xcarpeta.DeleteFolder "c:\Save" '---> Le indico la ubicacion de la carpeta a eliminar
    MsgBox "CARPETA ELIMINADA"
elerror:
    If Err = 76 Then
        Exit Sub
    End If
End Sub


Segui el consejo de krackwar 2º_busca en googleeeeee!!!!!!!!!

Saludos.

OK te dejo un link haber si te sirve:
http://www.elguille.info/NET/ADONET/ordenesSQL.asp
Saludos.

Mira yo cuando actualizo algunos valores de la base de datos, la sentencia la pongo en un boton x ejemplo:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    db.Execute ("UPDATE Extintores_ABC SET Propietario = '" & Text3 & "' where Propietario='" & text4 & "'" & " and NExtintor= " & text5)
End Sub


en el caso de q ingreses valores numericos no le pongas las comillas simples, nose como estaras trabajando vos, postea tu code asi lo vemos.

Te recomiendo q armes la consulta en una variable y despues la envias para ejecutarla

Código [Seleccionar] Expandir


dim strUpdate$

strUpdate="UPDATE Alumno SET Nombre LIKE '" &  textbox1.text & "'"
base.execute (strUpdate)



Fijate asi y despues decime.

Hola proba asi:

Código [Seleccionar] Expandir


UPDATE    Alumno SET Nombre= ' " &  textbox1.text & " ' "


agregale las comillas simples despues del operador = y al final. Saludos.

Si esta bien la funcion , solamente era para decirte q si accidentalmente se presiona el boton sin hacer previamente las acciones correspondientes, salta el error.
Saludos.

Hola tenes un error cuando se quiere usar la funcion de "flooder con muchas caras" al presionar en el boton "Floodear ahora!". "Error 5 en tiempo de ejecucion"