juanito01

¿Desde dónde accedes a la bd? ¿Qué es lo que quieres? ¿Una cadena de conexión dinámica? Lo siento pero creo que no te entiendo

Te recomiendo links como www.planetsourcecode.com O www.programacion.net, donde puedes encontrar muchas cosas. También están bien las bases de datos que como ejemplo te vienen con Access (Neptuno.mdb) y, sobre todo, que busques tu mismo en la...

Por temas de lenguajes, Access no permite ese tipo de diferenciación. Te puedes hacer una funcioncita que inserte el nombre con la primera letra en mayúsculas. Podría ser: Private Function Capitalizar(s As String) As String Dim sAux$ sAux = LCase(s)...

Algo parecido a esto: Private Sub Form_Load() Dim miBd As DAO.Database Dim miRs As DAO.Recordset Dim miAnio As Integer miAnio = Format(Now, "yyyy") Set miBd = CurrentDb() Set miRs = miBd.OpenRecordset("select max(cont) from Tabla2 where anio = " &...

En el evento form_load del formulario... Private Sub Form_Load() Dim mibd As DAO.Database Dim miRs As DAO.Recordset Set mibd = CurrentDb() Set miRs = mibd.OpenRecordset("select count(*) from tabla1 where logico=FALSE") MsgBox "Registros a FALSE: " &...

En un botón de tu formulario, pones el siguiente código: Dim fs As New FileSystemObject fs.MoveFolder "c:\salerno ", "c:\documentos_compartidos\salerno" Set fs = Nothing Debes añadir en las referencias del editor de VB una llamada a Microsoft...

Siento darte malas noticias, mamaito, pero no se puede hacer. Para eso están los famosos chrystal reports de seagate, que son similares a los de Access y muy potentes. Visual Basic 6 trae algo parecido con el DataReport, pero ni acercársele. Best Regards

Son un par de funciones de visual basic para aleatorios... Dim MyValue Randomize For i = 0 To 20 MyValue = Int((5 - 2 + 1) * Rnd + 2) Next

Si, si lo programas en la propia ASP

He puesto esto en el evento current de un formulario que cuelga de una tabla que tiene un campo llamado apellidos... Option Compare Database Dim ape1 As String, ape2 As String Private Sub Form_Current() Dim pos As Integer If apellidos.Value <> ""...