what\'s up whit this SQL
gblconnection.Execute "INSERT INTO Alquiler(Cod_Pelicula,Cod_Cliente,Fecha_Prestamo,Fecha_Entrega,Pago) VALUES('" & clspelicula.Codigo_Pelicula & "','" & gblcliente.Codigo_Cliente & "'," & clsalquilar.Fecha_Prestamo & "," & clsalquilar.Fecha_Entrega & "," & clsalquilar.pago & ")"
por que no funciona?
por que no funciona?
Las fechas encierralas entre apostrofes, te debe funcionar de esta manaera.
Saludos
Rodrigo
Saludos
Rodrigo
buscando en mis programas, encontre que ya me habia pasado lo mismo...
lo solucione de esta forma...
'conn.Execute "INSERT INTO Producto(IdProducto,IdProveedor,Nombre,Descripcion,Valor,Cantidad,Fecha) VALUES('" & mstrCodigo & "','" & buscarCodProveedor(mstrNombre_Proveedor) & "','" & mstrNombre & "','" & mstrDescripcion & "','" & CDbl(msglValor) & "','" & mlngCant & "','" & mdtmfecha_ingreso & "')"
-> Sin embargo, tampoco me habia funcionado realizar el insert utilizando la sentencia insert into
Dim rs As ADODB.Recordset
Set rs = CreateRecordSet("SELECT * FROM Producto")
rs.AddNew
rs("IdProducto") = mstrCodigo
rs("IdProveedor") = buscarCodProveedor(mstrNombre_Proveedor)
rs("Nombre") = mstrNombre
rs("Descripcion") = mstrDescripcion
rs("Valor") = CDbl(msglValor)
rs("Cantidad") = mlngCant
rs("Fecha") = mdtmfecha_ingreso
MsgBox "Producto ingresado exitosamente", vbInformation
frmIngItem.ClearTxts
rs.Update
rs.Close
Set rs = Nothing
Set producto = Nothing
que pasara con este enigma?
ayuda por favor...
lo solucione de esta forma...
'conn.Execute "INSERT INTO Producto(IdProducto,IdProveedor,Nombre,Descripcion,Valor,Cantidad,Fecha) VALUES('" & mstrCodigo & "','" & buscarCodProveedor(mstrNombre_Proveedor) & "','" & mstrNombre & "','" & mstrDescripcion & "','" & CDbl(msglValor) & "','" & mlngCant & "','" & mdtmfecha_ingreso & "')"
-> Sin embargo, tampoco me habia funcionado realizar el insert utilizando la sentencia insert into
Dim rs As ADODB.Recordset
Set rs = CreateRecordSet("SELECT * FROM Producto")
rs.AddNew
rs("IdProducto") = mstrCodigo
rs("IdProveedor") = buscarCodProveedor(mstrNombre_Proveedor)
rs("Nombre") = mstrNombre
rs("Descripcion") = mstrDescripcion
rs("Valor") = CDbl(msglValor)
rs("Cantidad") = mlngCant
rs("Fecha") = mdtmfecha_ingreso
MsgBox "Producto ingresado exitosamente", vbInformation
frmIngItem.ClearTxts
rs.Update
rs.Close
Set rs = Nothing
Set producto = Nothing
que pasara con este enigma?
ayuda por favor...
La forma correcta para el insert sería algo así
conn.Execute "INSERT INTO Producto(IdProducto,IdProveedor,Nombre,Descripcion,Valor,Cantidad,Fecha) VALUES(' " & mstrCodigo & " ',' " & buscarCodProveedor(mstrNombre_Proveedor) & " ',' " & mstrNombre & " ',' " & mstrDescripcion & " ', " & CDbl(msglValor) & ", " & mlngCant & " , #" & mdtmfecha_ingreso & "#)"
(cuidado, he puesto espacio en blanco entre la comilla simple y la doble para que se vea, pero ese espacio no debería ir ahí)
en general, para guardar una cadena de texto escribe
'" & dato & "' (comillasimple comilladoble- & dato & comilladoble comillasimple)
para un dato numérico no hay que poner comillas simples (por eso quizá te fallaba)
" & dato & "
y para un dato de tipo fecha tienes que poner almohadillas
#" & dato & "# (almohadilla comilladoble & dato & comilladoble almohadilla)
conn.Execute "INSERT INTO Producto(IdProducto,IdProveedor,Nombre,Descripcion,Valor,Cantidad,Fecha) VALUES(' " & mstrCodigo & " ',' " & buscarCodProveedor(mstrNombre_Proveedor) & " ',' " & mstrNombre & " ',' " & mstrDescripcion & " ', " & CDbl(msglValor) & ", " & mlngCant & " , #" & mdtmfecha_ingreso & "#)"
(cuidado, he puesto espacio en blanco entre la comilla simple y la doble para que se vea, pero ese espacio no debería ir ahí)
en general, para guardar una cadena de texto escribe
'" & dato & "' (comillasimple comilladoble- & dato & comilladoble comillasimple)
para un dato numérico no hay que poner comillas simples (por eso quizá te fallaba)
" & dato & "
y para un dato de tipo fecha tienes que poner almohadillas
#" & dato & "# (almohadilla comilladoble & dato & comilladoble almohadilla)
Gracias parcero por la respuesta...
sinembargo, no entiendo por que hay que poner tal almohadilla, si la sintaxis de las fechas es del tipo #dd/mm/aaaa#...
de todas formas muchas gracias....
tambien queria saber que pasa con las vbles booleanas...
sinembargo, no entiendo por que hay que poner tal almohadilla, si la sintaxis de las fechas es del tipo #dd/mm/aaaa#...
de todas formas muchas gracias....
tambien queria saber que pasa con las vbles booleanas...
Tengo el mismo problema, espero que conteste algunas cosas al respecto y con ejemplos, ya que la otra forma que mencionaban tampoco me sirvio...
no sean egoistas por favor...
chavorro
no sean egoistas por favor...
chavorro
