Quetal estoy necesitandoayuda de los mas Experimentados.
Estoy queriendo Conectarme a unas Tablas Libres de Visual Fox Pro, he logrado conectarme, pero mi problema surge cuando quiero hacer un UPDATE o un INSERT, no he probado con el DELETE, pero seguro que tambien tengo problemas.
el error que me muestra es el siguiente:
Microsoft OLE DB Provider for Visual FoxPro error '80004005'
Cannot update the cursor PEDIDOS, since it is read-only.
/Alta_pedido.asp, línea 64
En dicha Linea y en las anteriores he escrito esto:
Function OpenDBFConn()
Path = "C:\Inetpub\wwwroot\db"
Dim Conn
Set Conn = CREATEOBJECT("ADODB.Connection")
Conn.Open("Provider=VFPOLEDB.1;Data Source=" & Path & ";Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate= MACHINE;Deleted=NO")
Set OpenDBFConn = Conn
End Function
'-----------------------------------------------------------------------
Set rsNumePedido = CreateObject("ADODB.RecordSet")
Sql="SELECT MAX(numero) pedido FROM pedidos"
rsNumePedido.Open Sql, DBConn ,3
numero_pedido = clng(rsNumePedido("pedido")) + 1
rsNumePedido.Close()
'-----------------------------------------------------------------------
Linea 56
DBConn.Execute("Insert Into pedidos (Numero, Fecha, nr_cliente,cantidad,tipo,cuig,numero_pro,estado,ob serva_1,observa_2,FE_WEB,FE_FABRICA,FE_FACTURA,FE_ CONTROL,FE_RECIBO,FE_DESPACH,FE_ANULADO,COLOR,DESD E_LETR,DESDE_NRO,HASTA_LETR,HASTA_NRO,NRO_web,ARTI CULO,OTROS) Values (" & numero_pedido & ", " & date & "," & numero_clie & ", " & cant & ", '" & cara_tipo & "', '" & Cuig_Est & "', " & numero_Pro & ", 'INGRESADO','" & observa_1 &"',' ', " & date & ", " & date-date & ", " & date-date & ", " & date-date & ", " & date-date & ", " & date-date & ", " & date-date & ", '" & cara_color & "', ' ' , 0, ' ', 0, 0, '2105', 0)")
Bueno desde ya muchas Gracias
