Programación General > Bases de Datos

 Ingreso De Horas Y Fechas En Vb 6.0

<< < (3/4) > >>

mamex:
Puedes probar con otra manera, por ejemplo, yo creo un recordset, despues agrego un nuevo registro, y guardo los datos.
Debes agregar la referencia Microsoft Activex Data Objects 2.5 Library para que te acepte el recordset

'Funcion para guardar los datos

--- Código: Text --- private sub guardarDatos    Dim rs as recordset    set rs = crearConsulta(&#34;miBaseDeDatos.mdb&#34;,&#34;Select hora,fecha from llamada&#34;)    rs.addNew    rs.fields!hora = time    rs.fields!fecha = date    rs.update   end sub  
Y aqui está la funcion para crear el recordset

--- Código: Text --- 'Crea una consulta y la regresa como un recordsetPublic Function crearConsulta(baseDeDatos As String, sql As String) As Recordset    Dim bd As Connection, rs As Recordset    Set bd = New Connection    Set rs = New Recordset    'Genera la cadena de conexión    bd.ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&#34; & _        baseDeDatos & &#34;;Persist Security Info=False&#34;    'Abre la base de datos    bd.Open    'Se la asigna al recordset    rs.Open sql, bd, adOpenKeyset, adLockOptimistic    If rs.recordCount &#62; 0 Then _        rs.MoveFirst    'Regresa el recordset    Set crearConsulta = rsEnd Function  

F_Tanori:

--- Cita de: "Vate" ---Si Arkantos, ejecute la sentencia aqui esta parte de mi codigo VB 6.0

Private Sub Command3_Click()

Dim rsGuarda As New ADODB.Recordset
Dim texto As String
texto = Time
strSQL = "INSERT INTO LLAMADA (HoraLlamada) VALUES(# " & texto & " #)"
rsGuarda.Open strSQL, Conexion

End Sub

Sale error de sintaxis del SQL

Gracias
--- Fin de la cita ---
Utilizar los # en fechas y horas es para access :P

ejecuta directamente sobre la conexion


--- Código: Text --- texto = TimestrSQL = &#34;INSERT INTO LLAMADA (HoraLlamada) VALUES(' &#34; & texto & &#34; ')&#34;Conexion.Execute strSQL  
Saludos

ArKaNtOs:

--- Citar ---Utilizar los # en fechas y horas es para access tongue.gif
--- Fin de la cita ---
Tienes razón, lo siento :scream:

Vate:
F_Tanori estoy que me peleo con el sQL  :angry: , he puesto esa cadena de conexion y sigue saliendo" Error de Sintaxis al convertir una cadena de caracteres a date time" .
 Nunca habia trabajado con fechas ni pense que fuera tan complicado hacerlo
Si alguien puede ayudarme estare infinitamente agradecido

Dim texto As Date
 texto = Time
  strSQL = "INSERT INTO LLAMADA (HoraLlamada) VALUES(' " & texto & " ')"
  Conexion.Execute strSQL

Gracias

albertovicat:
Tengo hecho un programa (maneja bases *.mdb) que en una parte selecciona las ventas de mostrador que no se facturaron, para reunirlas todas en una única factura, las seleeciona así:

"SELECT * FROM Tabla1 WHERE [Proced/Destino] = 'Venta' AND Comprobante = '0' AND Fecha >= #" & FDesde & "# AND Fecha <= #" & FHasta & "#"

FDesde y FHasta son variables string que contienen las fechas que el usuario designó, ya que pueden abarcar varios días.
Funciona correctamente. En los posts anteriores me parece ver que hay un espacio en blanco entre los numerales y la variable.
¿Puede ser el motivo de la falla?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior