Queste sono lerighe di comandi che utilizzo io, il modifica dati non funziona pero .... mi da errore come dicevo sopra.
B4X:Sub Globals Dim AdoConn As AdoConnection Dim AdoRec As AdoRecordset end sub sub OpenDB AdoConn.ConnectionString("xxx.xxx.xxx.xxx","3306","UTF-8","nomeDB","UserID","Password") AdoConn.ConnectionTimeout=1 AdoConn.LoginTimeout=1 AdoConn.SocketTimeout=1 AdoConn.InitializeEvent AdoConn.Open AdoRec.InitializeEvent AdoRec.Connection=AdoConn AdoRec.SqlStatement="select * from anagrafica order by Farmacia " AdoRec.Open end sub Sub ElencoClienti If AdoRec.RecordCount>0 Then ListView1.Clear Do While Not(AdoRec.EOF) ListView1.AddSingleLine (AdoRec.Field("Farmacia")) AdoRec.MoveNext Loop End If End Sub Sub SchedaCliente lblRagioneSociale.Text= AdoRec.Field("Farmacia") lblIndirizzo.Text = AdoRec.Field("Indirizzo") lblLocalita.Text = AdoRec.Field("Citta") end Sub --- Questa è la parte che mi da Errore --- Sub ModificaDati AdoRec.FieldSet("Latitudine", txtLatitudine.Text) AdoRec.FieldSet("Longitudine", txtLongitudine.Text) AdoRec.Update end Sub
Ciao Marco
Queste sono lerighe di comandi che utilizzo io, il modifica dati non funziona pero .... mi da errore come dicevo sopra.
B4X:Sub Globals Dim AdoConn As AdoConnection Dim AdoRec As AdoRecordset end sub sub OpenDB AdoConn.ConnectionString("xxx.xxx.xxx.xxx","3306","UTF-8","nomeDB","UserID","Password") AdoConn.ConnectionTimeout=1 AdoConn.LoginTimeout=1 AdoConn.SocketTimeout=1 AdoConn.InitializeEvent AdoConn.Open AdoRec.InitializeEvent AdoRec.Connection=AdoConn AdoRec.SqlStatement="select * from anagrafica order by Farmacia " AdoRec.Open end sub Sub ElencoClienti If AdoRec.RecordCount>0 Then ListView1.Clear Do While Not(AdoRec.EOF) ListView1.AddSingleLine (AdoRec.Field("Farmacia")) AdoRec.MoveNext Loop End If End Sub Sub SchedaCliente lblRagioneSociale.Text= AdoRec.Field("Farmacia") lblIndirizzo.Text = AdoRec.Field("Indirizzo") lblLocalita.Text = AdoRec.Field("Citta") end Sub --- Questa è la parte che mi da Errore --- Sub ModificaDati AdoRec.FieldSet("Latitudine", txtLatitudine.Text) AdoRec.FieldSet("Longitudine", txtLongitudine.Text) AdoRec.Update end Sub
Ciao Marco
Sub Process_Globals
End Sub
Sub Globals
Dim AdoConn As AdoConnection
Dim AdoRec As AdoRecordset
Dim listview1 As ListView
Dim txt1 As EditText
Dim txt2 As EditText
Dim txt3 As EditText
Dim cmdModifica As Button
Dim cmdConnetti As Button
End Sub
Sub OpenDB
AdoConn.ConnectionString("db4free.net","3306","UTF-8","dbphp","frac3sc0","123456")
AdoConn.ConnectionTimeout=1
AdoConn.LoginTimeout=1
AdoConn.SocketTimeout=1
AdoConn.InitializeEvent
AdoConn.Open
AdoRec.InitializeEvent
AdoRec.Connection=AdoConn
AdoRec.SqlStatement="select * from tblDatiAccesso"
AdoRec.Open
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
End Sub
Sub AssegnaDatiListView
If AdoRec.RecordCount>0 Then
listview1.Clear
Do While Not(AdoRec.EOF)
listview1.AddSingleLine (AdoRec.Field("username"))
AdoRec.MoveNext
Loop
End If
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim X As Int
X = Position + 1 'perchè "adorec.moveto" parte a contare da 1 mentre "position" da 0
'Msgbox (X ,"")
If AdoRec.RecordCount>0 Then
'Msgbox (AdoRec.RecordCount ,"")
AdoRec.MoveTo(X)
AdoRec.EOF
txt1.Text = AdoRec.Field("username")
txt2.Text = AdoRec.Field("password")
txt3.Text = AdoRec.Field("email")
End If
'@@@@@@@@@@@@@@@@
'nb adorec ha lo stato sempre attivo l'if a seguire serve solo in fase di debug per rendercene conto
If AdoRec.isClosed Then Msgbox("ChiusO","") Else Msgbox ("AOerto", "")
End Sub
Sub cmdModifica_Click
'####################
AdoConn.Execute ("Update tblDatiAccesso set password='" & txt2.text & "' where username='" & txt1.text & "'")
'#####################
AdoRec.Close
AdoRec.InitializeEvent
AdoRec.Connection=AdoConn
AdoRec.SqlStatement="select * from tblDatiAccesso"
AdoRec.Open
End Sub
Sub cmdConnetti_Click
OpenDB
AssegnaDatiListView
End Sub
Grazie 1000 per lo zip, questo programma per il Forum utilizzato da Erel fa letteralmente ca....re, fai una ricerca ed escono 6 pagine... ma neanche una che serva allo scopo.djveleno questa è libreria presa sempre sul forum