Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/07/2002, 09:04
dagui
 
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.