Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > [VB] ช่วยด้วยค่ะ อยากได้ โค้ดที่ใช้ search ข้อมูลจาก textbox แล้วแสดงใน GridView

[.NET] [VB] ช่วยด้วยค่ะ อยากได้ โค้ดที่ใช้ search ข้อมูลจาก textbox แล้วแสดงใน GridView

เริ่มหัวข้อใหม่

nidnoi

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

หามาหลายวันแล้วค่ะ แต่หาไม่เจอ
อยากใช้ Textbox รับข้อมูล แล้วกดปุ่ม submit
แล้วให้ search ในฐานข้อมูลแล้วให้ข้อมูลแสดงใน Gridview
ขอบคุณค่ะ
ภาพประกอบ

Tag : - - - -

Date : 2009-10-28 13:34:26

By : piingpoong

View : 4485

Reply : 2

No. 1

Mr.art

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

ลองเอาไปประยุกต์ดูนะคับ
Code (VB.NET)

   Dim conn As MySqlConnection
   Dim cmd As MySqlCommand
   Dim da As MySqlDataAdapter
   Dim ds As New DataSet
   Dim str As String = "SERVER=localhost;DATABASE=??;PORT=3306;User=??;Password=??;CharSet=tis620;Pooling=false"
 
Private Sub _job_search(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
     
       dim keyword as string = Replace(Me.TextBox1.Text, "'", "")
        
       Dim dss As New DataSet
       Try
            dss = Search(keyword,"Position")   'ส่งค่าข้อมูลจาก TextBox ไปให้ฟังก์ชัน Search
           If dss.Tables("search2").Rows.Count <> 0 Then
 
               GridView1.DataSource = dss.Tables("Search2")
               GridView1.DataBind()
           Else
               Me.Label2.Text = "ไม่พบข้อมูลที่ค้นหา"
               Me.Label2.Visible = True
           End If
       Catch ex As Exception
           Label2.Text = ex.Message
           Label2.Visible = True
       End Try
 
   End Sub
 
  Function Search(ByVal word As String, ByVal group As String) As DataSet   
       Using conn As New MySqlConnection(str)
           Dim SqlString As String = "SELECT ID,Position,Post,Address,DateTime From job Where " & group & " LIKE '%" & word & "%'"
           da = New MySqlDataAdapter(SqlString, conn)
           ds = New DataSet
           da.Fill(ds, "search2")
       End Using
       Return ds
   End Function

อาจจะตาลายไปหน่อยนะคับ จาก code ข้างบน ผมทำแยกออกมาเป็นฟังก์ชันนะคับ
ไม่เข้าใจตรงไหนสอบถามได้นะคับ

Date : 2009-10-29 16:45:59

By : art57110

No. 2

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Code (VB.NET)

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
        Dim strKeyWord As String
        Sub Page_Load(sender As Object, e As EventArgs)
            strKeyWord = Me.txtKeyWord.Text
        End Sub
 
        Sub BindData()
 
            Dim objConn As New OleDbConnection
            Dim objCmd As New OleDbCommand
            Dim dtAdapter As New OleDbDataAdapter
            Dim ds As New DataSet
            Dim strConnString,strSQL As String
 
            strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
            strSQL = "SELECT * FROM customer WHERE (Name like '%"& strKeyWord &"%' OR Email like '%"& strKeyWord &"%') "
 
            objConn.ConnectionString = strConnString
            With objCmd
               .Connection = objConn
               .CommandText = strSQL
               .CommandType = CommandType.Text
            End With
            dtAdapter.SelectCommand = objCmd
 
            dtAdapter.Fill(ds)
 
            '*** BindData to GridView ***'
            myGridView.DataSource = ds
            myGridView.DataBind()
 
            dtAdapter = Nothing
            objConn.Close()
            objConn = Nothing
 
        End Sub
 
        Sub myGridView_RowDataBound(sender As Object, e As GridViewRowEventArgs)
            '*** CustomerID ***'
            Dim lblCustomerID As Label = CType(e.Row.FindControl("lblCustomerID"),Label)
            IF Not IsNothing(lblCustomerID) Then
               lblCustomerID.Text = e.Row.DataItem("CustomerID")
            End IF
 
            '*** Email ***'
            Dim lblName As Label = CType(e.Row.FindControl("lblName"),Label)
            IF Not IsNothing(lblName) Then
               lblName.Text = e.Row.DataItem("Name")
            End IF
 
            '*** Name ***'
            Dim lblEmail As Label = CType(e.Row.FindControl("lblEmail"),Label)
            IF Not IsNothing(lblEmail) Then
               lblEmail.Text = e.Row.DataItem("Email")
            End IF
 
            '*** CountryCode ***'
            Dim lblCountryCode As Label = CType(e.Row.FindControl("lblCountryCode"),Label)
            IF Not IsNothing(lblCountryCode) Then
               lblCountryCode.Text = e.Row.DataItem("CountryCode")
            End IF
 
            '*** Budget ***'
            Dim lblBudget As Label = CType(e.Row.FindControl("lblBudget"),Label)
            IF Not IsNothing(lblBudget) Then
               lblBudget.Text = FormatNumber(e.Row.DataItem("Budget"),2)
            End IF
 
            '*** Used ***'
            Dim lblUsed As Label = CType(e.Row.FindControl("lblUsed"),Label)
            IF Not IsNothing(lblUsed) Then
               lblUsed.Text = FormatNumber(e.Row.DataItem("Used"),2)
            End IF
            End Sub
 
        Sub btnSearch_Click(sender As Object, e As EventArgs)
            BindData()
        End Sub
 
</script>
<html>
<head>
    <title>ThaiCreate.Com ASP.NET - Microsoft Access</title>
</head>
<body>
    <form id="form1" runat="server">
        <asp:Label id="lblKeyword" runat="server" text="Keyword"></asp:Label>
        <asp:TextBox id="txtKeyWord" runat="server"></asp:TextBox>
        <asp:Button id="btnSearch" onclick="btnSearch_Click" runat="server" Text="Search"></asp:Button>
        <br />
        <br />
        <asp:GridView id="myGridView" runat="server"
        AutoGenerateColumns="False" onRowDataBound="myGridView_RowDataBound">
            <HeaderStyle backcolor="#cccccc"></HeaderStyle>
            <AlternatingRowStyle backcolor="#e8e8e8"></AlternatingRowStyle>
            <Columns>
                <asp:TemplateField HeaderText="CustomerID">
                    <ItemTemplate>
                        <asp:Label id="lblCustomerID" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:TemplateField HeaderText="Name">
                    <ItemTemplate>
                        <asp:Label id="lblName" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:TemplateField HeaderText="Email">
                    <ItemTemplate>
                        <asp:Label id="lblEmail" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:TemplateField HeaderText="CountryCode">
                    <ItemTemplate>
                        <asp:Label id="lblCountryCode" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:TemplateField HeaderText="Budget">
                    <ItemTemplate>
                        <asp:Label id="lblBudget" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:TemplateField HeaderText="Used">
                    <ItemTemplate>
                        <asp:Label id="lblUsed" runat="server"></asp:Label> 
                    </ItemTemplate>
                </asp:TemplateField>
            </Columns>
        </asp:GridView>
    </form>
</body>
</html>

ASP.NET Search Data

Date : 2009-10-29 17:01:49

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : [VB] ช่วยด้วยค่ะ อยากได้ โค้ดที่ใช้ search ข้อมูลจาก textbox แล้วแสดงใน GridView

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)