
23/07/2002, 09:04
|
| | Fecha de Ingreso: julio-2002
Mensajes: 219
Antigüedad: 22 años, 10 meses Puntos: 0 | |
Re: Necesito Añadir a una BD Access con un ASP Hola. Aquí tienes el ejemplo de una función que inserta un cliente en una base de datos. Los datos que se insertan son variables por eso la notación '"&variable&"' para variables de texto y "&variable&" para variables numéricas.
function insertarCliente(vnombre, vapellido, vdireccion, vciudad, vestado, vcorreo)
'Variable a utilizar
Dim objCon, strSQL, RS
'Conexión con la base de datos
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BDPrueba.mdb"))
'Creando query para insertar el cliente
strSQL = "INSERT INTO Cliente (Nombre, Apellido, Ciudad, NombreEstado, Direccion, Correo) VALUES ('" & vnombre & "'" & "," & "'" & vapellido & "'" & "," & "'" & vciudad & "'" & "," & "'" & vestado & "'" & "," & "'" & vdireccion & "'" & "," & "'" & vcorreo& "')"
Set RS = objCon.Execute(strSQL)
'Cerrando la conexión con la base de datos y destruyendo los registros
objCon.Close
Set RS = nothing
Set objCon = nothing
end function
NOTA: Fijate que tu error no sea porque tienes abiertas las tablas en Access, mientras intentas hacerle las consultas.
Suerte. |