findدستور

[Masoud.Amsh]

بچه سلام لطفا خيلي زود و كامل جوابمو بدين چون خيلي عجله دارم .ممنون
من در حال حاضر برنامه اي مينويسم در مورد ماملات ملكي.
من براي اينكه كاربر بتونه داده ها رو ثبت . بازخوني بكند از طريق منوي Add-Ins و Visual Data Manager و بعد در پنجره VisData از طريق منوي File-New-Microsoft Access-Version7.0 MDB يك پايگاه داده ها درست كردم و فرم رو ساختم تمام گزينه ها فعال و كار مي كنند ولي گزينه Find كه اصلا در فروم وجود ندارد مشكلي برايم به وجود آورده. و آن اين است: من خودم يك Command درست كردم براي Find ولي در كد نويسي مشكل پيدا كردم .
از شما دوستان عزيز خواهش ميكنم كه كد را كامل برايم با توضيح بگوييد .
لطفا سريع و خيلي خيلي كامل و درست .(كد)
خيلي ممنون.​

 

[saeedsmk]

ببين كد رو خودت بايد بنويسي اما ما ميتونيم بهت ايده بديم

    Set rs = New Recordset
    Sql = "select * from tblBazar where ("
    Sql = Sql & " Fname like '%" & SearchBox & "%' or Lname like '%" & SearchBox & " %' )"
    Sql = Sql & " order by Lname"
    rs.Open Sql, Db1
    listPer.ListItems.Clear
    Do While Not rs.EOF
        Set lst = listPer.ListItems.Add(, , rs("id"), 0)
        lst.SubItems(1) = rs("id")
        lst.SubItems(2) = rs("Fname") & " " & rs("Lname")
        rs.MoveNext
    Loop

 

[m3hrz4d]

ببين كد رو خودت بايد بنويسي اما ما ميتونيم بهت ايده بديم

    Set rs = New Recordset
    Sql = "select * from tblBazar where ("
    Sql = Sql & " Fname like '%" & SearchBox & "%' or Lname like '%" & SearchBox & " %' )"
    Sql = Sql & " order by Lname"
    rs.Open Sql, Db1
    listPer.ListItems.Clear
    Do While Not rs.EOF
        Set lst = listPer.ListItems.Add(, , rs("id"), 0)
        lst.SubItems(1) = rs("id")
        lst.SubItems(2) = rs("Fname") & " " & rs("Lname")
        rs.MoveNext
    Loop

آقا اين كدت SQL Injection Bug داره شوخي كردم دمت گرم همه پست ها رو تركوندي

 

[saeedsmk]

خواهش ميكنم