ایجاد جدول جدید در دیتابیس در بیسیک 4 اندروید بوسیله دستور Execnonquery

[ham8d1 0]

با سلام

دوستان کسی میدونه چه طوری تو محیط برنامه نویسی بیسیک 4 اندروید بوسیله دستور ExecnonQuery میشه جدول ایجاد کرد ؟

[مجید آرتا 5,875]

سلام

باید به وسیله کوئری Create Table  اینکار رو انجام بدید

اموزش جامع و کامل »

http://www.tutorialspoint.com/sqlite/sqlite_create_table.htm

[porya 959]

سلام در ادامه پاسخ آقای آرتا این کوئری رو هم یه تست کنید...

sql1.ExecNonQuery("CREATE TABLE tbl(id INT PRIMARY KEY Not Null,Name TEXT Not Null);")

[ham8d1 0]

دوستان اگه کسی براش مقدور هست سورس پروژه ای رو که با زدن یک دگمه یک جدول در دیتابیس ایجاد کنه البته نوشته شده و تست شده در بیسیک 4 اندروید رو قرار بده

چون دستورات بالا رو اجرا کردم و نتیجه نگرفتم و کلی error داده

[porya 959]

دوست عزیز دستورات درست کار میکنند به مثالی که میزنم دقت کنید...

اول یه دیتابیس ایجاد کنید در اینجا بنده دیتابیسی به اسم porya.db ایجاد میکنم بعد بیاید این کدها رو قرار بدید.

تعریف کردن متغییرها

Sub Globals
Dim sql1 As SQL
Dim cursor1 As Cursor

Private Button1 As Button
Private Button2 As Button
Private Button3 As Button
End Sub

کدهای فراخونی دیتابیسی که ایجاد کردید.

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")
	
	If File.Exists(File.DirInternal,"porya.db") = False Then
		File.Copy(File.DirAssets,"porya.db",File.DirInternal,"porya.db")
	End If
	
	If sql1.IsInitialized = False Then
		sql1.Initialize(File.DirInternal,"porya.db",True)
	End If

End Sub

بعدش در ساب کلیک باتن اول دستور ایجاد جدول با نام دلخواه که در اینجا tbl و ستون های دلخواه که در اینجا با نام id , name  ایجاد کنید.

Sub Button1_Click
	
sql1.ExecNonQuery("CREATE TABLE tbl(id INT PRIMARY KEY Not Null,name TEXT Not Null);")
	
End Sub

و بعد برای مثال میخوام مقداری رو تو جدولی که ایجاد کردم بریزم که اینجا در ساب کلیک باتن دوم اینکار رو میکنم و مقدار id رو برابر با 1 و مقدار name رو برابر با porya قرار میدم.

Sub Button2_Click
	
	sql1.ExecNonQuery("INSERT INTO tbl (id,name) values ('1','porya')")
	
End Sub

و در آخر در کلیک باتن 3 مقدارها رو از جدولی که ساختم میگیرم و در قسمت log برنامه با کلیک کردن باتن 3 مقدار رو نمایش میدم و نام porya در قسمت log برنامه به درستی نمایش داده میشه...

Sub Button3_Click
	
	cursor1=sql1.ExecQuery("SELECT * FROM tbl")
	
	For i=0 To cursor1.RowCount-1
		cursor1.Position=i
		Log(cursor1.GetString("name"))
	Next
	
End Sub

و حتی میتونید با قرار دادن دستور زیر در کلیک باتن دیگه ای جدولی که ساختید رو حذف کنید بقیه ریزه کاری های دیگه هم با خودتون.

sql1.ExecNonQuery("DROP TABLE tbl") 

تمام...