BOORRAR REGISTROS DBF

04/06/2004 - 18:23 por Ximena Machicao | Informe spam
hOLA:

AMIGOS Les cuento que me conecte a un archivo dbf y puedo insertar un
registro, pero antes de insertar quiero que se borre todo lo que hay en la
tabla, lo inente con el siguiente codigo pero me sigue pidiendo en la linea
de PACK que e archivo debe estar en modo exclusivo, pero donde mas lo
bloque? o como se hace? una ayudita por favor!!! se los ruego. Muchas
Gracias, Xime

set oConn=server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceTypeÛF;" & _
"SourceDB=c:\Poliza\;" & _
"Exclusive=Yes"

oconn.execute "delete from poliza.dbf"
oconn.execute "PACK"

oconn.execute "INSERT INTO poliza.dbf VALUES('" & rstr.fields("num_cli") &
"','" & rstr.fields("cod_cli") & "'," & rstr.fields("pol_prim") & ",'" &
rstr.fields("pol_cod") & "')"

oconn.close
 

Leer las respuestas

#1 Franco Figún
04/06/2004 - 21:56 | Informe spam
Hola
No conozco DBF, pero sql es casi universal, y yo particularmente probaría
primero de hacer la primera consulta ya sea con un boton, o como sea, y
luego hacer el segundo query, en una pagina diferente, o un boton diferente,
o sino directamente te convendria hacer un store procedure que primero haga
un drop, y luego tome los parametros que le pases y haga el insert

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 314408886
Yahoo MSN:
"Ximena Machicao" wrote in message
news:#
hOLA:

AMIGOS Les cuento que me conecte a un archivo dbf y puedo insertar un
registro, pero antes de insertar quiero que se borre todo lo que hay en la
tabla, lo inente con el siguiente codigo pero me sigue pidiendo en la


linea
de PACK que e archivo debe estar en modo exclusivo, pero donde mas lo
bloque? o como se hace? una ayudita por favor!!! se los ruego. Muchas
Gracias, Xime

set oConn=server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceTypeÛF;" & _
"SourceDB=c:\Poliza\;" & _
"Exclusive=Yes"

oconn.execute "delete from poliza.dbf"
oconn.execute "PACK"

oconn.execute "INSERT INTO poliza.dbf VALUES('" & rstr.fields("num_cli") &
"','" & rstr.fields("cod_cli") & "'," & rstr.fields("pol_prim") & ",'" &
rstr.fields("pol_cod") & "')"

oconn.close


Preguntas similares