21/11/2008, 04:21
| ||||
| ||||
| Autonumerico de acces y visual basic Hola a todos, Estoy haciendo un formulario, en el cual uno de los campos es el numero de proyecto y esta relacionado con un campo de una base de datos que tengo vacia y lo que quiero es que al ejecutar el programa el campo numero de proyecto de formulario comienze con 1.....sin tener que meterlo a mano. Y la siguiente vez que quiera meter otro me empiece por el numero que le toca en la base de datos... espero haberme explicado. un saludo |
|
21/11/2008, 04:42
| |||
| |||
| Respuesta: Autonumerico de acces y visual basic Cita: Hola, una forma podría ser esta (suponemos que la BD es de Access, si no lo es, cambia la cadena de conexión por la apropiada).
Iniciado por hunagiator  Hola a todos, Estoy haciendo un formulario, en el cual uno de los campos es el numero de proyecto y esta relacionado con un campo de una base de datos que tengo vacia y lo que quiero es que al ejecutar el programa el campo numero de proyecto de formulario comienze con 1.....sin tener que meterlo a mano. Y la siguiente vez que quiera meter otro me empiece por el numero que le toca en la base de datos... espero haberme explicado. un saludo
Código:
El valor de "i" es el que tienes que grabar en el campo.Dim rst As ADODB.Recordset
Dim i As Integer
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\BaseDeDatos.mdb"
.CursorLocation = adUseClient
.Open "SELECT Count(*) AS Numero FROM TablaProyecto"
End With
i = rst!Numero + 1 ' si la tabla no tiene registros, "i" valdrá 1
rst.Close
 |
