[vb6] recordset standalone e datagrid

[Beziel]

Ciao a tutti,
Allora ho fatto uno script di connessione ad un db remoto tramite xml, i dati vengono visualizzati in un datagrid e dopo viene fatto l'update degli stessi sempre tramite datagrid.
Mi chiedevo se era possibile fare in modo che i vari record venissero visualizzati su dei semplici textbox e alla fine possa fare sempre l'aggiornamento del db remoto.

grazie

[Beziel]

La mia idea era quella di fare un datagrid invisibile che venisse aggiornato da dei campi textbox.
Come posso fare ad esempio avendo 2 textbox nome e cognome a visualizzare in queste il primo record del datagrid?
E magari inserendo 2 commandbutton a spostarmi nei vari campi del datagrid?

Spero che qlc mi aiuti

[Beziel]

A questo punto al posto del datagrid non mi converrebbe usare un controllo adodb?!?
Aiuto

[Beziel]

Questo è il codice del form mi date una mano?
Come faccio a popolare delle textbox con i record del datagrid e sopratutto come aggiorno il datagrid con gli stessi?

tnx!!!


Option Explicit
Private Const RemotePath = "http://localhost/mailing/xmlado/"

Private Sub Command1_Click()
Dim stm As ADODB.Stream
Dim xml As MSXML.XMLHTTPRequest

Set xml = New MSXML.XMLHTTPRequest
Set stm = New ADODB.Stream

rs.Save stm, adPersistXML
xml.Open "POST", RemotePath & "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 Sub

Private Sub Form_Load()
Call mnuconnetti_Click
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call mnuchiudi_Click
End Sub

Private Sub mnuchiudi_Click()
Dim frm As Form
For Each frm In Forms
Unload frm
Next
End Sub

Private Sub mnuconnetti_Click()
Set rs = New ADODB.Recordset
With rs
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.Open RemotePath & "query.asp?TableName=clienti"
End With

If rs.Fields(0).Name = "Type" And rs.Fields(0).Value = "##Error##" Then
MsgBox rs("Description") & vbCrLf & "Codice: " & rs("Code"), vbCritical, rs("Source")
Else
Set DataGrid1.DataSource = rs
End If
End Sub

[Beziel]

Ho risolto la soluzione era abbastanza banale basta associare alla propietà text del textbox il valore del record:

nome.text=rs("nome")
e poi quando devo andare a fare l'upload prima di costruire lo stream l'operazione inversa

rs("nome")=nome.text