MyLogical1 = .t. >>MyLogical2 = .t. >> >>SQLExec(m.handle, "update mySQLTable set bitField1 = ?m.MyLogical1, bitField2 = ?m.myLogical2")Cetin
Local loRS As ADODB.Recordset, ; loCon As ADODB.Connection, ; loCmd As ADODB.Command loCon = Createobject("ADODB.Connection") loCmd = Createobject('ADODB.Command') loRS = Createobject("ADODB.RecordSet") With loCon .ConnectionString = "provider=sqlncli;server=.\sqlexpress;"+; "trusted_connection=yes;database=northwind" .Open() Endwith With loCmd .ActiveConnection = loCon .CommandType = 2 && Table .CommandText = 'products' Endwith With loRS .CursorType = 2 && ADOPENDYNAMIC .LockType = 4 && ADLOCKBATCHOPTIMISTIC .CursorLocation = 3 && ADUSECLIENT .ActiveConnection = loCon .Open(loCmd) Endwith loRS.AddNew() loRS.Fields("productName").Value = "Added new" loRS.Fields("discontinued").Value = .t. loRS.AddNew() loRS.Fields("productName").Value = "Added new 2" loRS.Fields("discontinued").Value = .f. loRS.UpdateBatch() loRS.Close() loCon.Close()Cetin