سورس ارتباط با دیتابیس(کمک)

[sourse 82]

سلام دوستان بنده سورس کدی دارم که برای ارتباط به دیتابیس mysql استفاده میشه ولی طریقه استفادش رو نمیدونم دوستان کسی اگه میدونه برای دانلود اطلاعات دیتابیس(تیبل) در این سورس کد چه کنم راهنمائی کنند

ممنون

Sub Globals
   Dim mh1 As MysqlHandler
   Dim rs1 As ResultSet

   Dim sv1 As ScrollView
   Dim lv1 As ListView
   Dim hsv1 As HorizontalScrollView
End Sub  

Sub Activity_Create(FirstTime As Boolean)
  mh1.Initialize("lcl:port","dbname","user","pass!")
	
		
   If mh1.isConnected = False Then
      Msgbox(mh1.SQLError, "Connection Error:")
      Return
   End If
   
   rs1 = mh1.Query("SELECT * FROM order")
   If rs1.IsInitialized = False Then
      Msgbox("ResultSet is empty" & CRLF & mh1.SQLError, "Warning")
      Return
   End If
   
   hsv1.Initialize(rs1.ColumnCount * 150dip,0)
   Activity.AddView(hsv1,0,0,100%x,100%y)
   
   sv1.Initialize(rs1.RowCount * 30dip)
   hsv1.Panel.AddView(sv1,0,0,rs1.ColumnCount*150dip,100%y)

   Dim l As Label
   
   For i=0 To rs1.RowCount - 1
      rs1.Position = i
      For j=0 To rs1.ColumnCount - 1
         l.Initialize("label" & j)
         l.Text = rs1.GetString(j)
         l.TextColor = Colors.Black
         l.Color = Colors.White
         sv1.Panel.AddView(l,j*150dip,i*30dip,149dip,29dip)
      Next
   Next
   mh1.Close
End Sub

[leilab 17]

دوست عزیز باید اون فایل اسکریپت پی اچ پی رو روی هاست آپلود کنی که به دیتابیست کامل وصل بشه بعد اطلاعات رو فش کنه

[محمد رشوند 1,209]

@@leilab, دوست عزیز دومین باره که تاپیک قدیمی میارید بالا :|

[amirex128 19]

این کد ها به درد نمی خوره چون مستقیم از دیتابیس میگیره.

بهترین روش و سریع ترین اینه که اول اطلاعات داخل دیتابیس به جیسون تبدیل بشه بعد بیاد نمایش بده.

من هم مشکلم مثل شماست .

کسی هم راهنمایی نمیکنه.

من مطالبم رو از جیسون گرفتم توی لیست ویو گذاشتم و لی نمیتونم متن مطالب رو نشون بدم.

نمیدونم داخل رویداد آیتم کلیک لیست ویو چی بنویسم که وصل بشه به اکتیویتی مطالبم؟

شما هم بهتره از روش جیسون استفاده کنید.آموزشش داخل فروسگاه هست ولی مشکلش اینه که همین مورد من رو داخلش توضیح نداده.؟