تبدیل دیتابیس آفلاین به آنلاین

[MR.B4A 220]

سلام.

من با استفاده از کد زیر، سه تا پارامترو رو از دیتابیس آفلاینم میگیرم و به سمت فایل php م برای ذخیره در دیتابیس آنلاینم میفرستم:

Private sql As SQL
	Private cur As Cursor
Private JsonList As List
Private JSONGenerator As JSONGenerator

JsonList.Initialize

cur=sql.ExecQuery("SELECT * FROM tbl_name")

For i=0 To cur.RowCount-1
		cur.Position=i
JsonList.AddAll(Array As String(cur.GetString("name"),cur.GetString("family"),cur.GetString("code")))
Next

private sub click
JSONGenerator.Initialize2(JsonList)
	Private JSONstring As String= JSONGenerator.ToString
	
	ht.PostString("http://192.168.1.5/insert_db.php",JSONstring)
end sub

و اینم فایل php م

<?php
$servername = "localhost"; 
$username = "root"; 
$password = ""; 
$dbname = "dbofflinetoonline"; 
$names = json_decode(file_get_contents('php://input'), TRUE);

$conn = new mysqli($servername, $username, $password, $dbname); 
mysqli_set_charset($conn, "utf8"); 

if ($conn->connect_error) { 
    die("Connection failed: " . $conn->connect_error); 
} 

foreach($names as $name) {
    $nameVal = $name['name'];  
    $familyVal = $name['family']; 
    $codeVal = $name['code'];  
    //$emailVal = $name['email'];  
    //$phoneVal = $name['phone'];  

    $sql = "INSERT INTO tbl_list (name, family, code) 
            VALUES ('$nameVal', '$familyVal', '$codeVal')"; 
    
    if ($conn->query($sql) === TRUE) { 
        echo "send successful"; 
    } else { 
        echo "Error: " . $conn->error;
    } 
}

$conn->close();
?>

اما متاسفانه در جدول دیتابیسم ذخیره نمیشه!
خطا هم نمیده، فقط ذخیره نمیشه.

ممنون میشم راهنماییم کنید

[محمدرضا شاهپیری 5,631]

عزیز AddAll نیست Add هست

[محمدرضا شاهپیری 5,631]

درود. اشتباه دارین میفرستین. هر آبجکت باید کلید داشته باشه

JsonList.Add( CreateMap("name": cur.GetString("name"), "family": cur.GetString("family"), "code": cur.GetString("code")))

 

[MR.B4A 220]

30 دقیقه قبل، محمدرضا شاهپیری گفته است:

درود. اشتباه دارین میفرستین. هر آبجکت باید کلید داشته باشه

JsonList.Add( CreateMap("name": cur.GetString("name"), "family": cur.GetString("family"), "code": cur.GetString("code")))

 

سلام استاد

ممنونم

ولی این خطارو داد:

مثل این که مپو نمیتونه به لیست تبدیل کنه!!

اینم کدای اون بخشه:

Private JsonList As List

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	JsonList.Initialize
	
	If ht.IsInitialized=False Then
		ht.Initialize("ht",Me)
	End If
	
	cur=sql.ExecQuery("SELECT * FROM tbl_name")
	
	For i=0 To cur.RowCount-1
		cur.Position=i
		
		Private pnl, pnl_seprator, pnl_seprator2 As Panel
		Private lbl_name , lbl_famili , lbl_code As Label
		
		pnl.Initialize("")
		lbl_code.Initialize("")
		lbl_famili.Initialize("")
		lbl_name.Initialize("")
		pnl_seprator.Initialize("")
		pnl_seprator2.Initialize("")
		
		ScrollView1.Panel.AddView(pnl,0 ,Panel1.Top+Panel1.Height+h-8%y,100%x,10%y)
		pnl.Color=Colors.White
		
		pnl.AddView(lbl_name,68%x,1%y,30%x,8%y)
		pnl.AddView(lbl_famili,35%x,1%y,30%x,8%y)
		pnl.AddView(lbl_code,2%x,1%y,30%x,8%y)
		
		lbl_code.Text=cur.GetString("code")
		lbl_famili.Text=cur.GetString("family")
		lbl_name.Text=cur.GetString("name")
		
		lbl_name.textColor=Colors.Black
		lbl_famili.textColor=Colors.Black
		lbl_code.textColor=Colors.Black
		
		lbl_code.Gravity=Gravity.CENTER
		lbl_famili.Gravity=Gravity.CENTER
		lbl_name.Gravity=Gravity.CENTER
		
		pnl.AddView(pnl_seprator,67%x,2%y,0.2%x,6%y)
		pnl.AddView(pnl_seprator2,30%x,2%y,0.2%x,6%y)
		
		pnl_seprator.Color=Colors.RGB(132,130,130)
		pnl_seprator2.Color=Colors.Black
		
'		JsonList.AddAll(Array As String(cur.GetString("name"),cur.GetString("family"),cur.GetString("code")))

		JsonList.AddAll(CreateMap("name": cur.GetString("name"), "family": cur.GetString("family"), "code": cur.GetString("code")))
		
		h=h+11%y
		ScrollView1.Panel.Height=h+3%y
	Next
	
End Sub

 

[امین شاهدی 5,777]

متد AddAll از شما لیست میخواد ولی شما بهش CreateMap رو دادین

(CreateMap اسمش روشه و یه آبجکت مپ میسازه)

شما از متد Add استفاده کنین نه AddAll