Anónimo
Agregar numero de registro automáticamente desde VB
Hola,
Mira, tengo un programa que tiene un combobox con ciudades, la tabla de donde se alimenta tiene los campos "id_ciudad" y "nombre_ciudad", ¿cómo puedo agregar una nueva cuidad con un comando y que el id_ciudad se agregue automáticamente al ingresar la ciudad nueva?
Gracias
Mira, tengo un programa que tiene un combobox con ciudades, la tabla de donde se alimenta tiene los campos "id_ciudad" y "nombre_ciudad", ¿cómo puedo agregar una nueva cuidad con un comando y que el id_ciudad se agregue automáticamente al ingresar la ciudad nueva?
Gracias
1 Respuesta
Respuesta de pedrobjs84
1
puedes crear una funcion que te devuelva el correlativo
private function Correla() as integer
dim rs as new adodb.recordset
sql="select top 1 id_ciudad from ciudad order by id_ciudad desc"
if rs.state=1 then rs.close
rs.open sql,cn,3,1
if rs.recodcount>0 then
correla= rs!id_ciudad +1
end if
end function
Algo asi, pruebalo pq lo escribi de frente aca en la web y no lo he probado, pero asi te deberia salir, la funcion te devuelve el correlativo.
private function Correla() as integer
dim rs as new adodb.recordset
sql="select top 1 id_ciudad from ciudad order by id_ciudad desc"
if rs.state=1 then rs.close
rs.open sql,cn,3,1
if rs.recodcount>0 then
correla= rs!id_ciudad +1
end if
end function
Algo asi, pruebalo pq lo escribi de frente aca en la web y no lo he probado, pero asi te deberia salir, la funcion te devuelve el correlativo.
No me funciona.
O sea, le pongo eso y obviamente
Data1.recordset!ciudad = text1
Pero no hace nada.
O sea, le pongo eso y obviamente
Data1.recordset!ciudad = text1
Pero no hace nada.
¿No se puede sin usar sql?
Bueno me hubieras dicho que estabas usando un data control, si es así y suponiendo que tus datos están ordenados por código pones esta linea
Data1. Recordset. MoveLast
luego, al valor del ultimo registro le sumas 1
correla= (Data1.Recordset.Fields ("id_ciudad") & "") +1
Data1. Recordset. MoveLast
luego, al valor del ultimo registro le sumas 1
correla= (Data1.Recordset.Fields ("id_ciudad") & "") +1