Programación General > Bases de Datos

 Recuperar El Date De Sql Server 2000

(1/1)

geryWorks:
Hola ... saludos!!

tengo una tabla: registros
sus campos son: id_reg, nom_reg, fecha_de_alta

en el campo fecha_de_alta, quiero recuperar automaticamente la fecha del servidor sql server 2000

Por favor, espero me ayuden esto cuanto antes, lo necesito porfa!, Muchas Gracias.



GeryWorks!!!  :hola:

ElberGon:
tu ámplicacion es cliente servidor o es local.

    O trata de explicar un poco mas y a lo mejor se te puede ayudar creo que no plateas bien tu problema . . . . .

geryWorks:
ok.. es cliente servidor y mil disculpas por no dejarme entender:

bueno es un programa desarrollado en visual 6, me conecto con un servidor SQL Server 2000 mediante ODBC, y en uno de mis formularios necesito que..., a la vez que el usuario registre sus datos,    se guarde internamente la fecha y hora en que se este guardando este registro... sin la necesidad de que el usuario ponga la fecha y hora ... que el sistema lo coloque automaticamente y lo guarde en una tabla o campo.


rogaria que porfavor me den un ejemplito concreto si es posible, muchas gracias :lol:

ElberGon:
Yo haria un store procedure para hacer la validacion y agegar los registros  pero lo mas sencillo es hacer esto:


--- Código: Text --- Private Sub cmdAceptar_Click()Dim sql as String  'Aqui van las validaciones en caso de que las hagas  sql="INSERT INTO RegEntradas (nom_reg,ape_reg,Fe_Na_Reg) VALUES ('" &txtNombre &"','" &txtApellidos &"','" &Format(_Now,"'mmddyyyy HH:mm:ss") &"')"   ' esto es si es un nuevo registro y nose si hagas alguna validacion si es asi las validaciones van donde te indico <-^ 'Aqui va la ejecucion del sql no se con que funcion lo hagas yo hago algo asi If EjecutaSQL(sql) <> 0 then    msgbox "Usuario registrado, Satisfactoriamente",vbinformation,"Mensaje"else    msgbox "No se pudo registrar el Usuario",vbCritical,"Error"end ifEnd Sub   
   Donde EjecutaSQL es una funcion que lo unico que hace es un Conexion.Execute sql, EjecutaSQL; esta funcion me devuelve el numero de registros afectados para saber si se realizo la ejcucion correcta del sql

  Espero y te sirva, a lo que entendi con eso se soluciona el problema nos vemos cualquier cosa si en contacto en esta discucion

tiquinho:
Si utilizas un procedimiento almacenado o la query como te indica ElberGon, en vez del Now puedes utilizar un "GetDate()":


--- Código: Text ---  sql = "INSERT INTO Registros ( nom_reg, fecha_de_alta) VALUES ('" & txtNombre.Text & "', GetDate()"   
Un saludo

Navegación

[0] Índice de Mensajes