بروز مشکل در جستجو(در دیتابیس)

[حسینh 50]

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

 

اینم لینک ان=        http://s3.picofile.com/file/8211312818/%DA%A9%D9%84%D8%B4_%D8%A7%D9%81_%DA%A9%D9%84%D9%86%D8%B2_Copy.rar.html

[حسینh 50]

اساتید کمکم کنید لطفا

[حسینh 50]

دوستان من دره اسپم نمیدم برای این که  راحتتر جواب بدین عکس از اررور میزارم همین

[حسینh 50]

اساتید جواب نمیدید

[پژمان نیکروان 6,055]

توی این تکه کد Select * FROM Tbl where id =

به = گیر داده ، مساوی رو بردارین تست کنید

[حسینh 50]

دوستان خوشحال میشم کمک کنین

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

سلام

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

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

 

این تکه کد مربوط به سر فصل ها :

Sub listView2_ItemClick (Position As Int, Value As Object)
Dim cur As Cursor
cur=sq.ExecQuery("Select * FROM Tbl WHERE id= " &Value)
cur.Position=0
    
    For i=0 To 3
     If cur.GetString("aks"&i) <> Null Then
     bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)
     End If
     fasl=Value
    StartActivity(N1)
     Next
    
End Sub

بنده دقیقا هدفتون رو از حلقه نمیدونم چیه.بعدش در ضمن مشکل دیگه آیا شما ستون هایی به اسم  aks0 , aks1 , aks2 , aks3  دارید ؟

خب حالا بزارید در مورد حلقه ای که نوشتید بگم.دوستم 2 3 مشکل وجود داره.یکی اینکه اومدید i  رو در کنار اسم ستون نوشتید یعنی این -----> 

cur.GetString("aks"&i)

و اینکه اومدید متغیر fasl  رو درون حلقه برابر با Value  کردید که بازم منظور کدو نمیفهمم.ایراد دیگه دلیل اینکه اومدید StartActivity  رو توی حلقه نوشتید چیه ؟

ایا میدونید در اولین گام (  i = 0 )  اکتیویتی استارت میشه و حلقتون دیگه اجرا نمیشه.

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

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

[حسینh 50]

ممنون بابت کمکتون ولی حالا این اررور که عکسش را گذاشتم میده ممنون

[حسینh 50]

گمونم 12 ساعت شده  میشه جواب بدین

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

گمونم 12 ساعت شده  میشه جواب بدین

یک object از اون bitmap تعریف کردید که فراموش کردید اون رو Initialize کنید ...

[حسینh 50]

ببخشید منظورتون کجای این کدهاست :Initialize نکردم

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

شما برنامه رو در حابت Debug Legecy اجرا کنید ببینید کدوم خط رو قرمز میکنه ؟

[حسینh 50]

هیچ کدوم از خط ها قرمز نمیشن

[حسینh 50]

رو اون حالت امتحان کردم ولی قرمز نشد چی کار کنم

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

لطفا سورس خودتون رو پیوست کنید !

[حسینh 50]

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

 

که هست

توی این تکه کد Select * FROM Tbl where id =

به = گیر داده ، مساوی رو بردارین تست کنید

ممنون

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

درود

لطفا کد رو قرار بدید

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

[حسینh 50]

این کد سرچ

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

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.
Private ScrollView1 As ScrollView
    Private btn1 As Button
    Private EditText1 As EditText
        Dim id As String

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("search1")
    
    Activity.Color=Colors.White
    
    If File.Exists(File.DirInternal,"a.db")=False Then
    File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db")
    End If
    
    If Act_Matlab.sq.IsInitialized=False Then
    Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False)
    End If
    
    EditText1.Color=Colors.Transparent

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub btn_click
    Dim b As Button
    b=Sender
    id=b.Tag
    StartActivity(N1)
    
    
End Sub

Sub btn1_Click
Dim text As String = EditText1.text
    Dim d As String
    If text = "" Then
        d = "لطفا یک کلمه برای جستجو وارد کنید"
        Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png"))
        Return
    Else
    '\/\/\/\/\/\/\/\//\/\
    Dim cur1 As Cursor
    cur1=Act_Matlab.sq.ExecQuery("select id* FROM Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'")
    If cur1.RowCount = 0 Then
            d = "هیچ موردی یافت نشد!"
            Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png"))
            Return
        End If
    '/\/\/\/\/\//\/\/\/\/\/\
    
    Dim cur As Cursor
    cur=Act_Matlab.sq.ExecQuery("select id,fasl,FROM Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'")
    
    Dim h As Int
    h=8%y
    For i = 0 To cur.RowCount-1
    cur.Position=i
    '*******
    Dim btn As Button
    btn.Initialize("btn")
    btn.text=cur.GetString("fasl")
    btn.Tag=cur.GetInt("id")
    
    btn.TextSize=20
    btn.TextColor=Colors.Black
    
    If cur.GetInt("fav")=0 Then    
    Dim im As BitmapDrawable
    im.Initialize(LoadBitmap(File.DirAssets,"B.png"))
    btn.Background=im
    Else
    Dim im As BitmapDrawable
    im.Initialize(LoadBitmap(File.DirAssets,"B.png"))
    btn.Background=im
    End If
    
    ScrollView1.Panel.AddView(btn,0,h,100%x,13%Y)
    ScrollView1.Panel.Height=(cur.RowCount)*13.5%y
    
    h=h+13%Y
    Next
    
    End If    

End Sub

مطلب (سر فصل)

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
Dim fasl As String
Dim sq As SQL
Dim bitmap1(10) As Bitmap
Dim font1 As Typeface
Dim font As String

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 listview1 As ListView
    Dim SlidingMenu1 As SlidingMenu
Dim listview2 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("fa")
    
If File.Exists(File.DirInternal,"a.db")= False Then
File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db")
End If

If sq.IsInitialized=False Then
sq.Initialize(File.DirInternal,"a.db",False)
End If

Dim cur As Cursor
cur =sq.ExecQuery("Select * FROM Tbl where id Between 1 AND 3")
For s =0 To cur.RowCount-1
cur.Position=s

listview2.AddSingleLine2( cur.GetString("fasl"), cur.GetInt("id"))

listview2.SingleLineLayout.Label.Gravity=Gravity.CENTER
listview2.SingleLineLayout.Label.TextColor=Colors.White

listview2.SingleLineLayout.Label.TextSize=20
listview2.SingleLineLayout.ItemHeight=15%y



    


    

font1=Typeface.LoadFromAssets("font5.ttf")
    SlidingMenu1.Initialize("menu")
    listview1.Initialize("list")    
    
    
    SlidingMenu1.BehindOffset=55%x
    SlidingMenu1.Mode=SlidingMenu1.LEFT
    SlidingMenu1.Menu.AddView(listview1,0%y,100dip,100%y,100%x)
        
    
    listview1.AddSingleLine2("منوی اصلی",1)
    listview1.AddSingleLine2("ویدوها",2)
    listview1.AddSingleLine2("تنطیمات",3)
        listview1.AddSingleLine2("درباره ما",4)



    Dim b As BitmapDrawable
    b.Initialize(LoadBitmap(File.DirAssets,"t96.jpg"))
    listview1.SingleLineLayout.Background=b
    listview1.SingleLineLayout.ItemHeight = 100

    Dim lbl  As Label                                  
    lbl= listview1.SingleLineLayout.Label
    lbl.Gravity=Gravity.LEFT
    lbl.Left=lbl.Left+130dip
    lbl.Height =100dip
    lbl.Typeface =font1
    lbl.TextSize= 25
    lbl.Top=20dip
    lbl.TextColor = Colors.Black
Next
End Sub
Sub listView2_ItemClick (Position As Int, Value As Object)
Dim cur As Cursor
cur=sq.ExecQuery("Select * FROM Tbl WHERE id= " &Value)
cur.Position=0
    
    For i=0 To 3
     If cur.GetString("aks"&i) <> Null Then
     bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)
     End If
     fasl=Value
    StartActivity(N1)
     Next
    
End Sub

n1   بخش

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

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 ScrollView1 As ScrollView
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("Layout1")
Activity.LoadLayout("fa1")
	
If File.Exists(File.DirInternal,"a.db")= False Then
File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db")
End If

If Act_Matlab.sq.IsInitialized=False Then
Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False)
End If

Dim cur As Cursor
cur =Act_Matlab.sq.ExecQuery("Select * FROM Tbl where id ="&Act_Matlab.fasl)
cur.Position=0
Dim h As Int
For i = 0 To 2
 If cur.GetString("matn"&i) <> Null Then
 Dim label1 As Label
 label1.Initialize(label1)
 label1.Text=cur.GetString("matn"&i)
 
   If File.Exists(File.DirInternal,"Settings.stg")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.stg")
	Tanzimat2.font=list1.Get(0)
	Tanzimat2.size=list1.Get(1)
	Tanzimat2.color=list1.Get(2)
	
	Else
	Tanzimat2.font="font3"
	Tanzimat2.size=18
	label1.TextColor=Colors.Black
   	End If

 
   Dim before, after As Float
	Dim Obj1 As Reflector
	Obj1.Target = label1
	before = Obj1.RunMethod("getLineHeight")
	Obj1.Target = label1
	Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.1, "java.lang.float") 
	Obj1.Target = label1
	after = Obj1.RunMethod("getLineHeight")
	
	
	 ScrollView1.Panel.AddView(label1,2%x,h,96%x,0)
   Dim su As StringUtils
     label1.TextSize=Tanzimat2.size
   label1.Typeface=Typeface.LoadFromAssets(Tanzimat2.font & ".ttf")
   label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)+18
    h= h + label1.Height +10%y
    ScrollView1.Panel.Height =h
   End If
    
	 Select Case Tanzimat2.color
 Case 1
  label1.TextColor=Colors.Green
  Case 2
  label1.TextColor=Colors.red
  Case 3
  label1.TextColor=Colors.Black
  End Select
	
   If cur.GetString("aks"&i)<> Null Then
   Dim img As ImageView
   img.Initialize("img")
   img.Tag= cur.GetString("aks"&i)
   
   ScrollView1.Panel.AddView(img,0,h,ScrollView1.Width,ScrollView1.Height)
   img.Bitmap=Act_Matlab.bitmap1(i)
     
   If Act_Matlab.bitmap1(i).Width > 100%x Then
   
   img.Width=100%x
   img.Height= (img.Width / Act_Matlab.bitmap1(i).Width)*Act_Matlab.bitmap1(i).Height
   img.Gravity=Gravity.FILL
   
   Else
   
   img.Width =Act_Matlab.bitmap1(i).Width
   img.Height=Act_Matlab.bitmap1(i).Height
   img.Left = (100%x -img.Width)/2
   img.Gravity=Gravity.FILL

  End If
 
  h = h +img.Height+0%y
   ScrollView1 .Panel.Height=h
 
    End If
Next
End Sub
دیتابیس رو هم گذاشتم (پیویست کردم)

a.rar

[shahab.es 5,429]

دوستم، بار دومه که اسپمتون رو پاک میکنم،

دفعه بعدی تاپیکتون بسته میشه و اخطار میگیرید....