Modificar Registro Agregado

01/07/2003 - 14:30 por Don Quijote de Nicaragua | Informe spam
Hola estimados amigos estoy trantando de agregar un codigo a una variable,
el codigo esta dentro de una tabla y es autonumero como puedo hacer para ver
cual fue el ultimo registro que modifique pero en ADO, ya que en DAO seria
con el lastmo ahora bien la version de access que tengo es la 97 abro la
base de datos de la siguiente manera:

Public Sub Conex()
Dim Ruta As String
Ruta = App.Path + "\LabClinico.mdb"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
'Abrimos la conexio a la base de datos
' con ADO 4.0
With Cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist" _
& " Security Info=False;Data Source=" & Ruta & ";" _
& " Jet OLEDB:Database Password=sivinda;Mode=Read|Write"
.Open , "Admin"
End With
End Sub


yo inserto a la base de datos de la siguiente manera
Comando.ActiveConnection = Cnn
Comando.CommandType = adCmdText
Comando.CommandText = "INSERT INTO Muestras (Descripcion) " _
& " VALUES('" + UCase(txtNombre.Text) + "');"
Comando.Execute

Me gustaria saber como puedo obtener ese numero autonumerico, cabe sañalar
que esto funcionara en RED y necesito
saber el ultimo archivo modificado o agregado en este caso por el usuario.
Gracias de antemano.

Don Quijote
 

Leer las respuestas

#1 Laura Rojas
01/07/2003 - 22:59 | Informe spam
Hola,

Si no me quivoco puedes utilizar el comando MAX() de sql, para que te dé el
último registro que ingresastes...

"Select MAX(IdMuestras) as ultimo From Muestras"

Saludos=P
Laura N. Rojas C.
Informática
Caracas - Venezuela
"Don Quijote de Nicaragua" wrote in message
news:#l9K3#
Hola estimados amigos estoy trantando de agregar un codigo a una variable,
el codigo esta dentro de una tabla y es autonumero como puedo hacer para


ver
cual fue el ultimo registro que modifique pero en ADO, ya que en DAO seria
con el lastmo ahora bien la version de access que tengo es la 97 abro


la
base de datos de la siguiente manera:

Public Sub Conex()
Dim Ruta As String
Ruta = App.Path + "\LabClinico.mdb"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
'Abrimos la conexio a la base de datos
' con ADO 4.0
With Cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist" _
& " Security Info=False;Data Source=" & Ruta & ";" _
& " Jet OLEDB:Database Password=sivinda;Mode=Read|Write"
.Open , "Admin"
End With
End Sub


yo inserto a la base de datos de la siguiente manera
Comando.ActiveConnection = Cnn
Comando.CommandType = adCmdText
Comando.CommandText = "INSERT INTO Muestras (Descripcion) " _
& " VALUES('" + UCase(txtNombre.Text) + "');"
Comando.Execute

Me gustaria saber como puedo obtener ese numero autonumerico, cabe sañalar
que esto funcionara en RED y necesito
saber el ultimo archivo modificado o agregado en este caso por el usuario.
Gracias de antemano.

Don Quijote


Preguntas similares