Jump to content
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


  • 0
Mahdi83

دانلود فایل توسط b4a

Question

Mahdi83    2

کاربر عادی

سلام 

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

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 0
Mr.Kafiri    106

کاربر رو به رشد

در 2 ساعت قبل، Mahdi83 گفته است :

سلام 

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

 


#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

دیتابیس رو باید بدون پسوند(.db) درون سرور خود قرار بدید تا برنامه بتونه دانلود کنه

Share this post


Link to post
Share on other sites
  • 0
Mahdi83    2

کاربر عادی

سلام 

 

در 23 ساعت قبل، Mahdi83 گفته است :

سلام 

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

 


#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

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

لینک دانلود سورس

 

Share this post


Link to post
Share on other sites
  • 0
basic 4 android    119

کاربر رو به رشد

در 5 ساعت قبل، Mahdi83 گفته است :

سلام 

 

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

لینک دانلود سورس

 

دانلود مشکل نداره دوست عزیز شما فقط ارگت منیفستت روی 14 بزار روی 22 که اگر از کاربر تا اندروید 7 نمیخوای دسترسی بگیری و اگر تارگت رو میخوای ببری بالا باید مجوز ها رو به کاربر نشون بدی 

Share this post


Link to post
Share on other sites
  • 0
Mahdi83    2

کاربر عادی

در 20 ساعت قبل، basic 4 android گفته است :

دانلود مشکل نداره دوست عزیز شما فقط ارگت منیفستت روی 14 بزار روی 22 که اگر از کاربر تا اندروید 7 نمیخوای دسترسی بگیری و اگر تارگت رو میخوای ببری بالا باید مجوز ها رو به کاربر نشون بدی 

سلام

درست نشد داداش

 

اون مشکل برای شما میاد چون ورژن b4a شما بالاتر هست.

Share this post


Link to post
Share on other sites
  • 0
basic 4 android    119

کاربر رو به رشد

در 6 ساعت قبل، Mahdi83 گفته است :

سلام

درست نشد داداش

 

اون مشکل برای شما میاد چون ورژن b4a شما بالاتر هست.

من دانلود کردم فایل رو تو پروژه اتون مشکلی نداشت

Share this post


Link to post
Share on other sites
  • 0
Mahdi83    2

کاربر عادی

در 3 ساعت قبل، basic 4 android گفته است :

من دانلود کردم فایل رو تو پروژه اتون مشکلی نداشت

سلام

ببینید وقتی بطور معمول و بدون دانلود روی Start کلیک می کنیم ردیف دیتا بیس 4 تا است 

ولی دیتا بیس توی سرور 5 تا ردیف داره و جایگزین اون دیتا بیس قبلی نمی شود نمی دونم چرا؟؟

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...