Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > สอบถามผู้รู้เกี่ยวกับ ปุ่ม Next ในกรณีใช้เงื่อนไขในการค้นหา (like) ถ้าในkeyword การค้นหามีมากกว่าหนึ่ง



 

สอบถามผู้รู้เกี่ยวกับ ปุ่ม Next ในกรณีใช้เงื่อนไขในการค้นหา (like) ถ้าในkeyword การค้นหามีมากกว่าหนึ่ง

 



Topic : 123345



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์




สวัสดีครับผมมือใหม่หัดเขียน VB.net นะครับ
คือตอนนี้ผมอยากจะถามผู้รู้เกี่ยวกับปุ่ม next เวลาค้นหา database (access) (ไม่มี datagridview นะครับ) ผมใช้เงื่อนไข Like ในการค้นหา โดยจะใช้ radiobutton ในการกำหนด ให้ไปหาใน table ของdatabase แล้วถ้ากรณีใส่ keyword ในการค้นหายกตัวอย่างเช่น A แต่มีชื่อคน A,Aa,Aaaa จะทำอย่างไงให้ปุ่มค้นหาสามารถเลื่อนหาได้ครบครับ ผมค่อนข้างมือใหม่ครับ รบกวนผู้รู้ช่วยไกด์ให้ด้วยครับ

ขอบคุณครับ



Tag : .NET, Ms Access, VB.NET






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-06-14 22:30:23 By : wathotza View : 879 Reply : 11
 

 

No. 1



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

like คำค้น%

http://www.w3schools.com/sql/sql_like.asp

ลองเล่นดู


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 08:24:46 By : lamaka.tor
 


 

No. 2



โพสกระทู้ ( 9,587 )
บทความ ( 2 )



สถานะออฟไลน์


ลองศึกษาเรื่อง vlookup ดูครับ น่าจะช่วยได้

ปล. ถ้าคนละภาษาก็ขอโทษด้วย มันคลับคล้ายคลับคลา


ประวัติการแก้ไข
2016-06-15 09:01:34
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 08:59:10 By : Chaidhanan
 

 

No. 3



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-06-15 08:24:46
รายละเอียดของการตอบ ::
ผมอยากได้แบบค้นหาตัวอักษรแรกแล้วไล่ตามลำดับอะครับท่านพอจะทราบไหมครับ


ประวัติการแก้ไข
2016-06-15 09:16:08
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:15:49 By : wathotza
 


 

No. 4



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณทุกท่านสำหรับข้อมูลนะครับ เดียวจะลองดู ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:16:34 By : wathotza
 


 

No. 5



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์


รบกวนสอบถามอีกรอบครับ คือตอนนี้ผมสามารถทำปุ่ม next ได้แล้วแต่ปัญหามันติดตรงที่ว่า เวลากดnext มันแสดงผลการค้นหาตั้งแต่แรกโดยไม่ได้โฟกัสเฉพาะคำที่ค้นหา สามาถใช้คำสั่งใดได้บ้างครับ รบกวนด้วยครับCode (VB.NET)
Imports System.Data.OleDb
Imports System.IO
Public Class Search

    Dim filename1 As String
    Dim ds As New DataSet
    Dim dt As New DataTable
    Dim da As New OleDbDataAdapter
    Dim sql As String = "select * from Table1"
    Dim i As Integer
    Dim len As Integer

    Private Sub ShowData(ByVal CurrentRow)


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=\\10.66.15.200\NYKAPP\Database2.accdb")
        Dim cmd As New OleDbCommand

        con.Open()
        cmd.Connection = con
        da = New OleDbDataAdapter(sql, con)
        da.Fill(ds, "database2")
        If RadioButton1.Checked = True Then


            cmd.CommandText = "select add_Firstname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)

        End If

        If RadioButton2.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_lastname Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If
        If RadioButton3.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_nickname Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If
        If RadioButton4.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_department Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If
        If RadioButton5.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            ' cmd.CommandText = "select add_pic from Table1 where add_position Like '%" & TextBox1.Text & "%'"
            ' filename1 = cmd.ExecuteScalar
            ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If
        If RadioButton6.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_extention Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If
        If RadioButton7.Checked = True Then
            cmd.CommandText = "select add_firstname from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_locatione Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_location Like '%" & TextBox1.Text & "%'"
            ' filename1 = cmd.ExecuteScalar
            ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)
        End If

        con.Close()

    End Sub

    Private Sub Search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=\\10.66.15.200\NYKAPP\Database2.accdb")
        Dim cmd As New OleDbCommand

        con.Open()
        cmd.Connection = con
        da = New OleDbDataAdapter(sql, con)
        da.Fill(ds, "database2")
        len = da.Fill(ds, "database2")
    End Sub

    Private Sub nav()
        TextBox3.Text = ds.Tables("database2").Rows(i).Item(3)
        TextBox4.Text = ds.Tables("database2").Rows(i).Item(4)
        TextBox6.Text = ds.Tables("database2").Rows(i).Item(6)
        TextBox7.Text = ds.Tables("database2").Rows(i).Item(7)
        TextBox8.Text = ds.Tables("database2").Rows(i).Item(8)
        TextBox9.Text = ds.Tables("database2").Rows(i).Item(9)
        TextBox10.Text = ds.Tables("database2").Rows(i).Item(10)
    
    End Sub







    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click


        Me.TextBox1.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""

        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox10.Text = ""
        Me.PictureBox1.Image = Nothing

    End Sub


   

    Private Sub C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C.Click

        Me.TextBox1.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""

        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox10.Text = ""
        Me.PictureBox1.Image = Nothing

        Me.Hide()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (i = 0) Then
            MsgBox("")
        Else
            i = i - 1
            nav()

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (i = len - 1) Then
            MsgBox("")
        Else
            i = i + 1
            nav()

        End If

    End Sub
End Class


อันนี้เป็นตัวอย่างนะครับอาจจะมั่วๆไปหน่อย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:50:06 By : wathotza
 


 

No. 6



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์


โค๊ดอาจซ้ำไปซ้ำมานะครับไว้เสร็จค่อยไล่ลบอันที่ไม่จำเป็นออก
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:51:12 By : wathotza
 


 

No. 7



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

กำลังย้อนกลับมามองว่า
จากโจทย์
ปุ่ม next เวลาค้นหา database (access) (ไม่มี datagridview นะครับ)

ดูอีกทีเหมือนไม่ใช่การค้นหาเป็นแค่การเลื่อน rows อย่างเดียว(ถ้าเดาไม่ผิด)
แบบนั้นเราเรียงตามรายชื่อได้ครับ

ASC|DESC
http://www.w3schools.com/sql/sql_orderby.asp

like A%
A แต่มีชื่อคน A,Aa,Aaaa,Ab,Aba,Ac

แต่ถ้าค้นแล้วไม่เอา Ab,Aba,Ac ให้ได้แค่ A,Aa,Aaaa นี่ไม่แน่ใจเดหมือนกันครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:55:28 By : lamaka.tor
 


 

No. 8



โพสกระทู้ ( 151 )
บทความ ( 0 )



สถานะออฟไลน์


ประมาณนี้รึป่าวครับ ถ้าตัวนี้ผมใช้ WebMethod ส่งค่าออกไปให้ Json ครับ
ว่าแต่ทำไมต้องมีปุ่ม Next เพื่อเลือกค้นหาข้อมูลจาก Table ทำไมเราไม่ Union ตารางแล้ว เพิ่ม Column มา 1 column เพื่อใส่ key ไว้ว่ามาจากตารางไหนน ก่อน Union ละครับ จะไม่ต้องเขียน Switch ไป Query ตาราง สลับไปมา


Autocomplete2


ประวัติการแก้ไข
2016-06-15 11:28:32
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 11:25:29 By : taotechnocom
 


 

No. 9



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 5 เขียนโดย : wathotza เมื่อวันที่ 2016-06-15 09:50:06
รายละเอียดของการตอบ ::
Code (VB.NET)
cmd.CommandText = "select add_Firstname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox3.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_lastname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox4.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_nickname from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox6.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_department from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox7.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_position from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox8.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_extention from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox9.Text = cmd.ExecuteScalar
            cmd.CommandText = "select add_location from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            TextBox10.Text = cmd.ExecuteScalar
            'cmd.CommandText = "select add_pic from Table1 where add_firstname Like '%" & TextBox1.Text & "%'"
            'filename1 = cmd.ExecuteScalar
            'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Pic\" & filename1)


งองู 2 ตัว

ไม่ สร้าง table มาจาก recrod ที่ Execute ได้ทีเดียวแล้วค่อยไล่ไปทีละ คอลัมน์ ละครับ

อย่างแบบนี้ก็ได้

Code (VB.NET)
TextBox3.Text = ds.Tables("database2").Rows(i).Item(3)
        TextBox4.Text = ds.Tables("database2").Rows(i).Item(4)
        TextBox6.Text = ds.Tables("database2").Rows(i).Item(6)
        TextBox7.Text = ds.Tables("database2").Rows(i).Item(7)
        TextBox8.Text = ds.Tables("database2").Rows(i).Item(8)
        TextBox9.Text = ds.Tables("database2").Rows(i).Item(9)
        TextBox10.Text = ds.Tables("database2").Rows(i).Item(10)






งง อีกอย่าง
เวลากดnext มันแสดงผลการค้นหาตั้งแต่แรกโดยไม่ได้โฟกัสเฉพาะคำที่ค้นหา
ลองยกตัวอย่างได้ไม๊ครับ มันเป็นยังไงรึ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 11:54:59 By : lamaka.tor
 


 

No. 10



โพสกระทู้ ( 29 )
บทความ ( 0 )



สถานะออฟไลน์


ยกตัวอย่างนะครับคือ ใน Database เรามี A Aa Abc B Bc เวลาเราค้นหาเช่นค้นหา ด้วยคีย์เวิดว่า A มันจะโชว์ A แบบนี้ใช่ป่ะครับ คือผมอยากให้เวลากด ปุ่ม next ให้มันเลื่อนหาต่ออย่างเช่นแล้วจะเจอคำว่า A - Aa -Abc แต่ปัจจุบันผมค้นหามันก็เจอ A แต่เวลากด next มัน แสดง A -Aa - Abc - B - Bc คือผมอยากให้มันเห็นแค่เฉพาะคำที่เราค้นหา ขอโทษด้วยครับมือใหม่จริงๆอาจมีบ้างคำให้สับสนบ้าง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 13:29:21 By : wathotza
 


 

No. 11



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ไม่ยากๆๆๆ ใช้ BindingSource แบบบ้านๆ ผูกมัดอย่างเหนียวแน่นกับ control ต่างๆ

แค่นั้น พอเรา

1. ค้นหา มันก็จะ เอา record ทั้งหมดที่หามาได้มายัดใน BindingSource
2. กด next มันก็ จะเลื่อน

อย่าว่าแต่ next มันทำได้ทั้ง

1

ให้ค้นหาคำนี้เข้าไว้

TextBox BindingSource vb.net

แค่นี้ก็น่าจะลดโค้ดลงไปเยอะแระมั้ง 55555
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 13:47:52 By : lamaka.tor
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : สอบถามผู้รู้เกี่ยวกับ ปุ่ม Next ในกรณีใช้เงื่อนไขในการค้นหา (like) ถ้าในkeyword การค้นหามีมากกว่าหนึ่ง
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่