[VB6] ADO, ASP e XMP per la gestione di un database remoto

[giustavalla]

Ho scomodato, oh se l'ho scomodato, Google ! Ma forse non ho saputo cercare bene.
Per semplificare le cose ho utilizzato una tabella con due campi (ID e Nome) e chiave primaria ID. Stesso errore.
Non ho però capito due cose :
- fai riferimento ad un disconnessione
- fai riferimento ad un SELECT; io non utilizzo questa istruzione.
Qui sotto riporto il contenuto del file XML creato

<xml xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">
- <s:Schema id="RowsetSchema">
- <s:ElementType name="row" content="eltOnly" rs:updatable="true">
- <s:AttributeType name="ID" rs:number="1" rs:write="true">
<s:datatype dt:type="int" dt:maxLength="4" rsrecision="0" rs:fixedlength="true" rs:maybenull="false" />
</s:AttributeType>
- <s:AttributeType name="Nome" rs:number="2" rs:nullable="true" rs:maydefer="true" rs:write="true" rs:writeunknown="true">
<s:datatype dt:type="string" dt:maxLength="50" rsrecision="0" />
</s:AttributeType>
<s:extends type="rs:rowbase" />
</s:ElementType>
</s:Schema>
- <rs:data>
- <rs:insert>
<z:row ID="2" Nome="RECORD AGGIUNTO AUTOMATIC" />
</rs:insert>
</rs:data>
</xml>

Ricapitolando

 Dim rsD As ADODB.Recordset
 Set rsD = New ADODB.Recordset
 If rsD.State = adStateOpen Then rsD.Close
 Set rsD.ActiveConnection = Nothing 
 rsD.Fields.Append "ID", 3, 4, adFldKeyColumn
 rsD.Fields.Append "Nome", 202, 50, 106
 rsD.Open
 rsD.AddNew
 rsD("ID") = IDEff
 rsD("Nome") = "RECORD AGGIUNTO AUTOMATIC"
 rsD.Save stm, adPersistXML
 stm.SaveToFile FileRemoto, adSaveCreateOverWrite ' debug
  xml.Open "POST", WebHost & "UpdateMioTaccuino.asp", False
 xml.send stm.ReadText
 If xml.responseText <> "" Then
         MsgBox Right(xml.responseText, Len(xml.responseText) - InStr(xml.responseText, vbCrLf) - 1), vbCritical, Left(xml.responseText, InStr(xml.responseText, vbCrLf) - 1)
 End If

Purtroppo non so se l'errore avviene lato VB o lato ASP. Capire questa cosa sarebbe già un passo notevole.

[sspintux]

...
Non ho però capito due cose :
- fai riferimento ad un disconnessione
- fai riferimento ad un SELECT; io non utilizzo questa istruzione.

questo è l'xml che mi genera leggendo i dati da una tabella con una pk di un db access

...nota che ci sono rs:basetable , rs:basecolumn e rs:keycolumn="true" che mancano nel tuo ...

- <xml xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">
- <s:Schema id="RowsetSchema">
- <s:ElementType name="row" content="eltOnly" rs:updatable="true">
- <s:AttributeType name="K1" rs:number="1" rs:nullable="true" rs:maydefer="true" rs:writeunknown="true" rs:basetable="T1" rs:basecolumn="K1" rs:keycolumn="true">
  <s:datatype dt:type="int" dt:maxLength="4" rs:precision="10" rs:fixedlength="true" /> 
  </s:AttributeType>
- <s:AttributeType name="F2" rs:number="2" rs:nullable="true" rs:maydefer="true" rs:writeunknown="true" rs:basetable="T1" rs:basecolumn="F2">
  <s:datatype dt:type="int" dt:maxLength="4" rs:precision="10" rs:fixedlength="true" /> 
  </s:AttributeType>
  <s:extends type="rs:rowbase" /> 
  </s:ElementType>
  </s:Schema>
- <rs:data>
  <z:row K1="0" F2="100" /> 
  </rs:data>
  </xml>

questo il codice usato :

  Dim rs1 As New Recordset
  Dim cn As New Connection
  
  cn.CursorLocation = adUseClient


  cn.Open "FILE NAME=c:\temp\FileUDL.udl"
  
  On Error Resume Next
  cn.Execute "Drop Table T1"
     cn.Execute "CREATE TABLE T1 (K1 Int PRIMARY KEY, F2 Int)"
  On Error GoTo 0
  
  cn.Execute "INSERT INTO T1 VALUES(0, 100)"
  
  rs1.Open "Select K1, F2 From T1", cn, adOpenKeyset, adLockOptimistic
  
  If Dir("c:\temp\Persist.xml") <> "" Then Kill "c:\temp\Persist.xml"
  rs1.Save "c:\temp\Persist.xml", adPersistXML

EDIT

aggiungo anche che questo codice mi funziona in locale (non ho tempo di provare con la pagina asp ora)

  rs2.Open "c:\temp\Persist.xml", cn, adOpenKeyset, adLockBatchOptimistic, adCmdFile


  rs2.AddNew
  rs2("K1") = 1
  rs2("F2") = "200"
  rs2.UpdateBatch

[giustavalla]

In locale funziona ma sul web, interagendo con la pagina ASP ... no
Vorrei chiarire che in locale (ossia sul PC) non c'è alcun database. O meglio c'è un recordset disconnesso (ammesso che sia necessario).
C'è viceversa un database MDB sul web ed è proprio con lui che la pagina ASP ed il codice VB6 dovrebbe interagire.
Grazie delle ulteriori informazioni, ma per il momento ... le idee sono poche e ben confuse.

[sspintux]

0
Vorrei chiarire che in locale (ossia sul PC) non c'è alcun database. O meglio c'è un recordset disconnesso (ammesso che sia necessario).

... allora non credo ci sia la possibilità di usare l'updatebatch ( a meno di costruirsi a mano l'xml come te l'ho mostrato)
perchè le properties di un adodb.field sono impostate dal provider di dati e non sono modificabili;

ma ciò non toglie che lato asp possa implementare tu stesso "a manina" quello che farebbe l'updatebatch ...

[giustavalla]

Quanto mi dici va al di là delle mie capacità. Costruire a mano un XML sarebbe anche possibile ma, con il fatto che non si sa se gli errori sono dal lato AS o VB6, la vedo assai dura.
Bisognerebbe avere un esempio di XML funzionante; è su questa linea che intendo muovermi adesso.
Il mio post iniziava con un "nel web suno numerosi gli esempi di aggiornamento di un recordset tramite VB6 e ASP". Possibile che non ci sia un esempio di tale tecnica, con un AddNEw ?
Grazie ancora.

[sspintux]

Quanto mi dici va al di là delle mie capacità. Costruire a mano un XML sarebbe anche possibile ma, con il fatto che non si sa se gli errori sono dal lato AS o VB6, la vedo assai dura.
Bisognerebbe avere un esempio di XML funzionante; è su questa linea che intendo muovermi adesso.
Il mio post iniziava con un "nel web suno numerosi gli esempi di aggiornamento di un recordset tramite VB6 e ASP". Possibile che non ci sia un esempio di tale tecnica, con un AddNEw ?
Grazie ancora.

mi permetto di fare un riepilogo ... correggimi se sbaglio :

1) hai dei dati su un client che non sono memorizzati su un db;

2) sempre lato client,riesci a memorizzare questi dati su di un recordset disconnesso
e ad inviarli ad una pagina asp

3) lato asp riesci anche a ricostruirti il recordset ma non ad usare l'updatebatch che hai trovato negli esempi per inviare le modifiche al db
EDIT
(
... e mai ci riuscirai in modo semplice non avendo un db lato client proprio perché
,come recita l'errore che ricevi, la rappresentazione xml del recordset
non contiene le informazioni necessarie per l'aggiornamento della base dati
... quale campo di quale tabella con quale pk '???
)

In queste ipotesi ti consiglio di lasciar stare la costruzione del xml di cui parli
ed al solo scopo di poter usare l'updatebatch
ed usare invece un adodb.command per aggiungere/modificare/cancellare
i records leggendo i dati dal recorset che ti sei ricostruito