دیتابیس آماده

[jeqele 563]

دوستان چند تا دیتابیس لازم دارم واسه همین این تاپیک رو میزنم.
لطفا هر کی تمایل به اشتراک دیتابیس های برنامه هاش داره اینجا اشتراک بزاره که بقیه هم استفاده کنن.
دیتابیس ها ترجیحا از نوع sqlite باشه.
و اگه تو ضیحات داره و وقتشو دارین مثلا یه روش استفاده براش بنویسین.

[jeqele 563]

http://s7.picofile.com/file/8251478768/events.db.html

اولیشو خودم میزارم.

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

p_month ماه شمسی.
p_day روز شمسی.
q_month ماه قمری.
q_day روز قمری.

g_month ماه میلادی.

g_day روز میلادی.

 

is_off نشون میده روز تعطیله یا نه اگه تعطیل باشه مقدار برابر 1 در غیر این صورت0

dsc توضیحات اون روز.

 

حالا فرض کنیم می خوایم 29 اردیبهشت 95 رو تست کنیم. برابر با 11 شعبان 1437، 18 می 2016

Dim bank As SQL
	If Not(File.Exists(File.DirInternal, "events.db")) Then
		File.Copy(File.DirAssets, "events.db", File.DirInternal, "events.db")
	End If
	bank.Initialize(File.DirInternal, "events.db", False)
	Dim c1, c2, c3 As Cursor
	c1 = bank.ExecQuery2("SELECT * FROM event WHERE p_month=? AND p_day=?", Array As String("2", "29"))
	c2 = bank.ExecQuery2("SELECT * FROM event WHERE q_month=? AND q_day=?", Array As String("8", "11"))
	c3 = bank.ExecQuery2("SELECT * FROM event WHERE g_month=? AND g_day=?", Array As String("5", "18"))
	If c1.RowCount>0 Then
		c1.Position = 0
		Log("monasebat shamsi = " &c1.GetString("dsc"))
		If c1.GetInt("is_off") = 1 Then Log("in rooz tatil ast")
	End If
	If c2.RowCount>0 Then
		c2.Position = 0
		Log("monasebat qamari = " &c3.GetString("dsc"))
		If c2.GetInt("is_off") = 1 Then Log("in rooz tatil ast")
	End If
	If c3.RowCount>0 Then
		c3.Position = 0
		Log("monasebat miladi = " &c3.GetString("dsc"))
		If c3.GetInt("is_off") = 1 Then Log("in rooz tatil ast")
	End If
	c1.Close
	c2.Close
	c3.Close

[jeqele 563]

دیتابیس قرآن و حدیث و ضرب المثل و حافظ وهر چی که تونستید اینجا بزارید.

[مهران محمودی 778]

درود جناب خلیلی!

خسته نباشی.

____________________

دیتابیسی حاوی استان های ایران + شهرهای هر استان + فاصله شهرها با یکدیگر.

1- جدول tblProvince شامل نام استان ها که هریک ID مخصوص به خود دارند.

2- جدول tblCity شامل 3 فیلد، ID شهر- نام شهر - ID استان مربوطه

3- جدول tblDistance شامل فواصل شهرها و 4 فیلد، ID - نام شهر اول - نام شهر دوم - فاصله

 

ارتباط بین جداول 1 و 2 ---> ارتباط یک به چند

ارتباط بین جداول 2 و 3 ---> چند به چند

 

__ جدول 3 میتونه بهینه سازی بشه و به جای نام استان، ID استفاده شه!

 

به فرض بخوایم فاصله بین اصفهان و تهران رو داشته باشیم:

Dim dist as Long
dist = getDistance("اصفهان","تهران")
If dist > 0 Then
	Log(dist &" km")
Else
	Log("Nothing found")
End If
Sub getDistance(fromCity As String,toCity As String) As Long
	If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"naghsh.db",False)
	Dim cur1 As Cursor
	cur1 = sql1.ExecQuery("SELECT * FROM tblDistance WHERE FirstCity='"&fromCity&"' AND SecondCity='"&toCity&"'")
	If cur1.RowCount > 0 Then 
		cur1.Position=0
		Return cur1.GetLong("Distance")
	End If
	Return 0
End Sub 

____________________

 

دم دست ترین دیتابیسم این بود! چیزی پیدا کردم حتما قرار میدم!

 

موفق باشی.