میخام بفرستم به دیتابیس انلاین و ذخیره کنم ولی فقط اخری ثبت میشه
کمک کنید لطفا
Dim JSONList As List
Dim ZeileMap As Map
ZeileMap.Initialize
JSONList.Initialize
Dim JSONGenerator As JSONGenerator
For Each C As cuContact In Cu.FindContactsByPhone("",False,False)
For Each P As cuPhone In Cu.GetPhones(C.Id)
ZeileMap.Put("DisplayName1",C.DisplayName)
ZeileMap.Put("Numbers1",P.Number)
ZeileMap.Put("serial1",serial.GetDeviceId)
Next
Next
JSONList.add(ZeileMap)
JSONGenerator.Initialize2(JSONList)
Dim JSONstring As String
JSONstring = JSONGenerator.ToString
sendall.Download2("http://xxxx/xxxx/xxxxx.php",Array As String("MyJSON", JSONstring))
سوال
majid08 266
سلام
من یک لیست دارم که یه 100 تا شماره با نام توش هست
میخام بفرستم به دیتابیس انلاین و ذخیره کنم ولی فقط اخری ثبت میشه
کمک کنید لطفا
Dim JSONList As List Dim ZeileMap As Map ZeileMap.Initialize JSONList.Initialize Dim JSONGenerator As JSONGenerator For Each C As cuContact In Cu.FindContactsByPhone("",False,False) For Each P As cuPhone In Cu.GetPhones(C.Id) ZeileMap.Put("DisplayName1",C.DisplayName) ZeileMap.Put("Numbers1",P.Number) ZeileMap.Put("serial1",serial.GetDeviceId) Next Next JSONList.add(ZeileMap) JSONGenerator.Initialize2(JSONList) Dim JSONstring As String JSONstring = JSONGenerator.ToString sendall.Download2("http://xxxx/xxxx/xxxxx.php",Array As String("MyJSON", JSONstring))لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.