Mensajes

Hola

Código [Seleccionar] Expandir

Private Sub validar()
Dim path As String
Dim consulta As String
Dim Cn as adodb.connection, Datos as adodb.recordset

path = App.path & "\mantenimiento.mdb"

set cn = new adodb.connection
cn.open conectionstring, usuario, clave

set Datos=new adodb.recordset
Datos.open "select a,b,c from XXX where ... order by ...",

if datos.eof then
' el recordset está vacío
endif

...

Un saludo

tengo dos preguntas una es saber si alguien sabe de algun manual o si me puede explicar como tratar el registro

¿Qué tal si empiezas por leer este post o el texto html que está en documentación?

No pasa nada por buscarrrrrr!!!!!

http://foro.elhacker.net/index.php/topic,83691.0.html

hola urtxiak

Pues la fecha actual del sistema la tienes en %date%, pero no veo como puedes acceder a la fecha de los archivos en este entorno de manera que a mi modo de ver esto no se puede hacer.

Te aconsejo que crees una pequeña aplicación en C, vbscript  o similar que te lo haga.

Un saludo

Puede un mismo router pertenecer a las dos subredes para darlas acceso a internet?
Los modernos si

¿no sería mas fácil configurar el browser para ello?

¿pero no era eso lo que querías?

La propiedad tag puede ser utilizada para estas cosas. Cuando se inicia el formulario vale "" y tu puedes cambiarla a voluntad por cualquier otro valor.

De esa forma y dependiendo el valor que puedes decidir si hay que hacer una cosa u otra.

Un saludo

ah si perdón

que querías el mes

Pues corrigiendo lo que puse

Código [Seleccionar] Expandir

dim Fecha as date
fecha=month(now)
label1=fecha

Podría haber hecho directamente

Código [Seleccionar] Expandir

label1=month(now)

También dispones de day(fecha) y year(fecha)

Hola

Tiene razón riven. Solo has de usar un switch para saber si debes encender o debes apagar.

' CmdStart.tag es "" cuando hay que hacer START
' y es "0" cuando hay que hacer STOP

Código [Seleccionar] Expandir

sub CmdStart_Click()
if CmdStart.tag="" then
CmdStart.tag="0"
dtStart = Now
blnRun = True
Me.Timer1.Interval = 1000
else
CmdStart.tag=""
blnRun = False
Me.txtStopwatch.Text = "00:00:00"
Me.Timer1.Interval = 0
endif
End Sub

Un saludo

hola

En vb pones un adodc y le pones la propiedad connectionstring con una claúsula select apropiada.

También puedes crear un recordset en una variable de tipo adodb.recordset y meterlo dentro, como prefieras.

Incluso puedes almacenar o utilizar procedimientos almacenados mediante un objeto command.

Lee como funciona ADO en vb para obtener información de como usar estas cosas.

Un saludo