Information générale
Catégorie:
Applications Internet
Hi:
I need any help...
I'm working with ADO 2.5 on Win2000. I need traslate a .DBF to XML and then update a record in the XML file and convert the XML to DBF. I think i'm working with a disconnected recordset... but the Update don' work.
Here it is the code...
TIA
Alberto Rodriguez
********************* BEGIN ********************
set defau to c:\tmp
close all
clear
IF file('table1.dbf')
erase table1.dbf
ENDIF
create table table1 (field1 c(10),;
field2 c(10))
for x = 1 to 10
insert into table1(field1,;
field2) values (str(rand()*;
1000),str(rand()*1000))
endfor
close all
*- Lo borramos porque sino da error al guardarlo.¿..?
IF file('myXMLfile.xml')
erase myXMLfile.xml
ENDIF
oConn = CreateObject('ADODB.connection')
oRS = CreateObject('ADODB.Recordset')
cCnString= 'Driver=Microsoft Visual FoxPro Driver; ' + ;
'SourceType=DBf;SourceDB=c:\tmp;BackgroundFetch=No;'
oConn.Open(cCnString)
oRS.Open('select * from table1',oConn)
oRs.Save('c:\tmp\myXMLfile.xml',1)
oRs.Close
oRS = CreateObject('ADODB.Recordset')
oRs.Open ('c:\tmp\myXMLfile.xml', 'Provider=MSPersist;', , , 2)
*- Problems here...
oRs.fields('field2').value = ' 999'
oRs.Update
*EndIf
*- Lo guardamos con otro formato
oRs.Save ('c:\tmp\myXMLfile.adtg', 1)
oRs.Close
*finalmente vuelves
*If there is no ActiveConnection, you can open with defaults.
oRst.Open 'c:\tmp\myXMLfile.adtg'
*Connect to the database, associate the Recordset with the
* connection,
*then update the database table with the changed Recordset.
cCnString= 'Driver=Microsoft Visual FoxPro Driver; ' + ;
'SourceType=DBf;SourceDB=c:\tmp;BackgroundFetch=No;'
oConn.Open(cCnString)
oRs.ActiveConnection = oConn
oRs.UpdateBatch
oRs.Close
oConn.Close
************************** END ****************
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement