ثبت یکسری لینک در دیتابیس

[bahadorks 13]

سلام

 

اساتید محترم من میخوام حدود صد عدد لینک یک سایت رو بزارم تو دیتابیس بعدش با لیست ویو فرا خوانی کنم

با چه دستوری بگم اینارو از دیتابیس بگیر و به عنوان لینک بازش کن؟

[مهدی ایزدی 9,203]

درود

دریافت اطلاعات رو بلدید ؟؟؟

فقط مشکل توی باز کردن لینک هست ؟

ساختار دیتابیس شما به چه صورته؟؟

[bahadorks 13]

دوستان یاری رسان

لطفا یاری کنید این حقیر را

[bahadorks 13]

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

با دیتابیس یا لیبل یا وب ویو ؟؟؟؟؟؟؟

گذاشتم توی وب ویو page not found میده

چیکار کنم؟؟؟؟؟؟

[shahab.es 5,429]

سلام دوست عزیز

ببخش من الان نمیتونم براتون کد بذارم(دسترسی به سیستم تعطیله فعلا، همینجوری توضیح میدم برات)

ببین شما مثلا 3 تا لینک داری

یک

دو

سه

خوب، شما میای تو دیتابیست 3 تا ستون اماده میکنی

id  titr    link

بعد میای دستی لینکارو وارد میکنی

حالا 2 تا کار میتونی بکنی

یکی اینکه یه لیست مثلا داری، رو هر ایتم که لیک میشه، یه صفحه میاد و لینک شکا روشه و وقتی رو یه دکمه کلیک شد(یا خود لیبل) یه صفحه تو مرورگر گوشی باز میشه

روش کارت اینه مه اون لینکو با کدهای اصلی دیتابیس میگیری و یا از کتابخانه Farakhani استفاده میکنی و لینکو تو یه لیبل میریزی و بعد در رویداد کلیک کد زیر رو قرار میدی

dim p as phone intent

startactivity(p.openbrowser(label1.text)

 

یا  اینکه میای میگی مستقیم وقتی رو یه ایتم لیستت کلیک شد، بره تو مرورگر گوشی

در قسمت ایتم کلیک،

شما میای دوباره لینک رو میگیری از دیتابیس و در یک متغیر از نوع استرینگ ذخیره میکنی و بعد کد بالا رو دولاره مینویسی و فقط به جای متن لیبل، از استرینگت استفاده میکنی

امیدوارم برات مفید باشه

[bahadorks 13]

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

توی اون من چندینتا مطالب دیگه هم گذاشتم.

اما یه بخش دارم که پر از لینکه.

من چطوری این لینکهارو بزارم تو دیتابیس جوری که وقتی روشون کلیک میشه به عنوان لینک توی گوشی باز بشه

نه اینکه فقط یه نوشته باشه

[alirezakazemizaroomi 437]

سلام برادر،از این کدها استفاده کن:

 

 

Sub Process_Globals





End Sub


Sub Globals


Dim sql1 As SQL
Private ListView1 As ListView
Dim cur As Cursor
Dim p As PhoneIntents
Dim Cr As Cursor
End Sub


Sub Activity_Create(FirstTime As Boolean)


ListView1.Initialize("ListView1")
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
ListView1.SingleLineLayout.ItemHeight = 60dip


'If File.Exists(File.DirInternal,"database.db")=False Then
File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
'End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"database.db",False)
End If


cur = sql1.ExecQuery("Select * from mytable")


For i = 0 To cur.rowcount -1
cur.Position = i
ListView1.AddTwoLines2(cur.GetString("title"),cur.GetString("adres"),cur.GetString("adres"))
Next


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)


'    Cr = sql1.ExecQuery("SELECT adres FROM mytable where title='"&Value&"'")
'    For i = 0 To Cr.RowCount - 1
'    Cr.Position = i
     StartActivity(p.OpenBrowser(Value))
'    Next
     'StartActivity(p.OpenBrowser(Value))
End Sub 


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub