Dim records() As Auto = dict.Value(“records”)
Dim values() As Auto
Dim str,str1 As Text
Dim v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,er As Text
Dim i1 As Integer
Try
For Each values In records
Try
v1= values(0) <<<< I have error in this values when nil or null (how i do manage the error )
v2= values(1)
v3= values(2)
v4= values(3)
v5= values(4)
v6= values(5)
//v7= values(6)
v8= values(7)
v9= values(8)
v10= values(9)
v11=values(10)
//v12=values(11)
v13=values(12)
Var sql As text = "INSERT INTO Socios (DataSocioNum,DataNombre,DataLocate,DataeMail,DataCellphone,DataActivo) VALUES ('"+ v1 + "','"+ v2 + "', '" + v3 + "', '" + v4 + "','" +v5 + "','" + v6 + "')"
App.DBConn.SQLExecute(sql)
Catch e As IOException
//ErrorLabel.Text = e.Reason
er= e.Reason
End Try
for i1=0 to 100
next
Next
Catch e As IOException
er=e.Reason
End Try