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

[giustavalla]

Sono numerosi gli esempi sul web di come interagire, mediante un programma scritto in VB6, con un database MSAccess remoto.
Utilizzano ADO, ASP e XML per la gestione del database e visualizzano il tutto in una finestra VB6.
Riguardano tutti la LETTURA oppure la MODIFICA di un record. Nessuno, che io sappia, affronta il problema di come AGGIUNGERE un nuovo record.
Li ho provati ampiamente tutti questi metodi e devo dire che funzionano egregiamente.
Ma - ripeto - non ho trovato il modo di AGGIUNGERE un record.
Qualcuno sa darmi qualche suggerimento ?
Grazie per l'attenzione

[oregon]

Come modifichi un record?

[optime]

se ASP è usato per esporre un webservice, la INSERT va messa lì. Ma, come dice giustamente oregon, vediamo come fai adesso la lettura e la modifica

[giustavalla]

Applico i concetti espressi nell'articolo (prima parte)


Questa è la funzione lato VB6

Public Function LeggiRsWeb(Query As String) As ADODB.Recordset
   Dim rs As New ADODB.Recordset
   '
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockBatchOptimistic  ' deve essere Batch
   rs.CursorLocation = adUseClient
   rs.Open WebHost & "GetXMLRecordset.asp?Query=" & Query
   Set LeggiRsWeb = rs.Clone
   rs.Close
   Set rs = Nothing
End Function

e questo è il codice ASP

<%
Const enuErrorConnection = 0
Const enuErrorOpenRecordset = 1
Dim rs, stm, Parm, cn
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set stm = CreateObject("ADODB.Stream")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Session("gloDB")+"db........mdb"
cn.ConnectionString=strConn 
cn.CursorLocation=3     '    adUseClient
cn.Open
If Err Then
   rs.Fields.Append "EType", 3
   rs.Fields.Append "Number", 20
   rs.Fields.Append "Description", 200, 500
   rs.Open
   rs.addnew 
   rs(0) = enuErrorConnection
   rs(1) = Err.Number    
   rs(2) = Err.Description 
   rs.MoveFirst
   rs.Update
Else
   Parm = Request.QueryString("Query")
   '--- siccome il carattere # non passa nella query lo sostituisco con un carattere "|"
   '    (l'operazione inversa l'ho fatta dal lato codice VB)
   if instr(Parm,"|")>0 then
      Parm=replace(Parm,"|","#")
   end if   
   rs.Open Parm,cn,3,4,1   
   If Err Then
      Set rs = CreateObject("adodb.Recordset")
      rs.Fields.Append "EType", 3
      rs.Fields.Append "Number", 20
      rs.Fields.Append "Description",200,500
      rs.Open
      rs.AddNew
      rs(0) = enuErrorOpenRecordset
      rs(1) = Err.Number        
      rs(2) = Err.Description
      rs.Update
   End If
End If
rs.Save stm,1
cn.Close
Set cn = Nothing 
Response.ContentType = "text/xml"
Response.Expires=0
Response.Buffer=False
Response.Write "<?xml version='1.0' encoding='ISO-8859-1'?>" & chr(13) & chr(10)
Response.Write stm.ReadText
stm.Close
Set stm = Nothing
Set rs = Nothing
%>

Funziona tutto egregiamente, ma non so come aggiungere un record. Ora, leggendo meglio il codice ASP, mi viene il dubbio che un semplice INSERT INTO (come suggerito da "optime", che ringrazio) potrebbe fare il caso mio. Oggi provo ma. dovendo inserire parecchio (1000-2000 byte di dati con accenti, barre, asterischi, ecc.) nel record, temo che non si possa fare una query cosi' lunga.

[optime]

Ora, leggendo meglio il codice ASP, mi viene il dubbio che un semplice INSERT INTO (come suggerito da ...) potrebbe fare il caso mio. Oggi provo ma. dovendo inserire parecchio (1000-2000 byte di dati con accenti, barre, asterischi, ecc.) nel record, temo che non si possa fare una query cosi' lunga.

"..." ti ringrazia

[giustavalla]

"..." ti ringrazia

Avevo dimenticato il tuo nome, scusa.

[giustavalla]

Ho provato, senza successo, nel seguente modo :
1) creo un recordset disconnesso

   Dim rsD As ADODB.Recordset
   Set rsD = New ADODB.Recordset
   If rsD.State = adStateOpen Then rsD.Close
   Set rsD.ActiveConnection = Nothing ' non so se serve
   rsD.Fields.Append "IDeffettuazione", 3
   rsD.Fields.Append "IDGita", 3
   rsD.Fields.Append "IDValle", 3
   rsD.Fields.Append "Data", 7
   rsD.Fields.Append "Meteo", 202, 100
   ...............
    rsD.Open

2) lo popolo

 rsD.AddNew
   rsD("IDeffettuazione") = IDEff
   rsD("IDGita") = IDGitaEff
   rsD("IDValle") = 1     ' da perfezionare
   rsD("Data") = Now
   rsD("Meteo") = Left(Trim$(Tx(0)), 100)
   ............
   rsD.Update

3) creo lo stream e lo invio alla pagina Update.asp

 rsD.Save stm, adPersistXML
   stm.SaveToFile FilePerDebug, adSaveCreateOverWrite ' debug
   xml.Open "POST", WebHost & "Update.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

Questa è la pagina Update.asp

<% 
Dim rs, stm,  ErrorMessage
on error resume next
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbEff.mdb"
Set rs = Server.CreateObject ("ADODB.Recordset")
Set stm = Server.CreateObject("ADODB.Stream")
with rs
    .CursorLocation = 3  ' adUseClient
    .Open Request
    .ActiveConnection =strConn
    .UpdateBatch
end with
if err then
        ErrorMessage =  "RSUpdate error: " & err.Description & "[" & err.Number & "]"
        rs.Save stm,1   ' adPersistXML
       ' Set content type to xml, specify XSL for formatting, then push XML stream text to calling component:
        Response.ContentType = "text/xml"
        Response.Write "<!-- " & ErrorMessage &  " -->"        ' This is treated as a comment
        Response.Write "<?xml:stylesheet type=""text/xsl"" href=""recordsetxml.xsl""?>" & vbCrLf
        Response.Write stm.ReadText
end if
%>

Risultato: lo stream sembra corretto, il file XML (FilePerDebug.XML) pure ma il tutto produce un MsgBox con il seguente errore :
"Le informazioni sulla tabella di base non sono sufficienti per effettuare l'aggiornamento".

Grazie anticipatamente a coloro che vorranno aiutarmi.

[sspintux]

.......
seguente errore :
"Le informazioni sulla tabella di base non sono sufficienti per effettuare l'aggiornamento".
....

potrebbe dipendere dal fatto che nella costruzione del recordset disconnesso di partenza
non hai specificato quale sia la chiave primaria, ragion per cui quando lo ricolleghi al db
(dopo averlo ricostruito nella pagina asp) ado non sa come individuare le righe
da aggiungere/modificare/cancellare.

HTH

[giustavalla]

Non sapendo (per il momento) come aggiungere un indice ad un recordset disconnesso ho provato a cancellare i 3 indici della tabella (che quindi non ha chiave primaria) senza però riuscire ad ottenere un risultato positivo.
Nulla di fatto quindi; il suggerimento era comunque interessante.
Grazie

[sspintux]

Non sapendo (per il momento) come aggiungere un indice ad un recordset disconnesso ho provato a cancellare i 3 indici della tabella (che quindi non ha chiave primaria) senza però riuscire ad ottenere un risultato positivo.
Nulla di fatto quindi; il suggerimento era comunque interessante.
Grazie

...credo proprio che senza chiave primaria la situazione non migliori .

Non ho il vb6 a disposizione per provare ... comunque , anche senza scomodare MDSN o google, potresti fare questa prova;

- crei una tabella con la pk sia in un db locale che quello remoto
-leggi la tabella dal db locale (quindi recordset connesso) avendo cura di includere nella select anche la PK
- disconnetti il recordset ( set activeconnection=nothing)
ed a questo punto potresti guardarti anche la proprietà attibutes del filed corrispondente alla pk

... e continui spedendo il recorset alla pagina asp come già facevi

HTH