Sección de códigos , trucos y ejemplos para visual basic

478 - Ejemplo de la función Max de Sql

simple ejemplo de la función Max de Sql para obtener de una tabla el valor máximo para una columna.

El siguiente código utiliza Ado para conectarse a una base de datos Access, y mediante una simple función , obtiene el valor máximo para un campo, en este caso llamado Id ( no es autonumérico) y le suma uno para luego añadir mediante la instrucción INSERT INTO de sql , el valor

Controles :

Añadir la referencia a Ado desde el menú de referencias de vb
Un Commandbutton para añadir un registro nuevo
El campo , en este caso llamado Id debe ser numérico

Código fuente en el formulario

Nota: indicar el nombre de la base de datos en la cadena de conexión

Option Explicit ' Objeto connection de ADO Dim cn As ADODB.Connection ' variable para la cadena de conexión Private ConnectionString As String Private Sub Command1_Click() ' Abrir una nueva conexión con la bse de datos ACCESS Call Abrir_Conexion(ConnectionString) ' Obtener el valor máximo + 1 Dim lMax As Long lMax = Maximo_Valor("Tabla", "Id", cn) 'Nuevo recordset para añadir mediante Inser Into el nuevo valor Dim rs As ADODB.Recordset ' Ejecutar el sql con método Execute del objeto Connection Set rs = cn.Execute("INSERT INTO Tabla (id) VALUES (" & lMax & ")") ' mostrar el valor MsgBox "Nuevo valor agregado : " & lMax, vbInformation ' cerrar la conexión abierta Call Cerrar_Conexion(cn) End Sub ' Abrir una nueva conexión Sub Abrir_Conexion(cs As String) ' si el connection NO está creado .. If cn Is Nothing Then ' Crearlo Set cn = New ADODB.Connection End If ' si está cerrado If cn.State = adStateClosed Then ' abrirlo cn.Open cs End If End Sub Sub Cerrar_Conexion(cn As ADODB.Connection) If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End Sub ' función de tipo Long que retorna _ el valor maximo para el campo indicado + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Maximo_Valor( _ Tabla As String, _ Campo As String, _ Conexion As ADODB.Connection) As Long Dim rs As ADODB.Recordset Dim sql As String ' Comando Sql para usar la función Max y retornar en n_Maximo el valor sql = "SELECT MAX([" & Campo & "]) As n_Maximo FROM " & "[" & Tabla & "]" ' Ejecutar el comando Set rs = cn.Execute(sql) ' comprobar si el valor no es un valor Nulo If IsNull(rs!n_Maximo) Then ' si es nulo retornamos 0 Maximo_Valor = 0 Else ' retornar el MAX + 1 Maximo_Valor = rs!n_Maximo + 1 End If ' libear el recordset If rs.State = adStateOpen Then rs.Close Set rs = Nothing End Function Private Sub Form_Load() ' cadena de conexión OLEDB ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\" & "base_de_datos.MDB;" & _ "Persist Security Info=False" Command1.Caption = "Añadir registro" End Sub Private Sub Form_Unload(Cancel As Integer) ' finalizar la conexión al descargar el formulario Cerrar_Conexion cn End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Recursos vb.net - enlaces relacionados

Usar las funciones Max, Min, Count , Sum de sql con el método ExecuteScalar de ADO.NET

Buscar en Recursos vb