 |
| |
ดูให้หน่อยครับ ผิดอะไนอะครับ มันไม่แสดงข้อมูลอะครับ |
| |
 |
|
|
 |
 |
|
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default3.aspx.vb" Inherits="Default3" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ 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 Sql Server Management Studio Source=" & Server.MapPath("database/mydatabase.mdb") & "; OLEDB:Database Password=;"
strSQL = "SELECT rpt_create_date,rpt_covernoteid,rpt_title,rpt_name,rpt_surname,rpt_settle_flag FROM rpt_master_report WHERE (rpt_create_date like '%" & strKeyWord & "%' and rpt_settle_flag is null) "
objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd
dtAdapter.Fill(ds)
myGridView.DataSource = ds
myGridView.DataBind()
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
End Sub
Sub myGridView_RowDataBound(sender As Object, e As GridViewRowEventArgs)
Dim lblrpt_create_date As Label = CType(e.Row.FindControl("lblrpt_create_date"), Label)
If Not IsNothing(lblrpt_create_date) Then
lblrpt_create_date.Text = e.Row.DataItem("rpt_create_date")
End If
Dim lblrpt_covernoteid As Label = CType(e.Row.FindControl("lblrpt_covernoteid"), Label)
If Not IsNothing(lblrpt_covernoteid) Then
lblrpt_covernoteid.Text = e.Row.DataItem("rpt_covernoteid")
End If
Dim lblrpt_title As Label = CType(e.Row.FindControl("lblrpt_title"), Label)
If Not IsNothing(lblrpt_title) Then
lblrpt_title.Text = e.Row.DataItem("rpt_title")
End If
Dim lblrpt_name As Label = CType(e.Row.FindControl("lblrpt_name"), Label)
If Not IsNothing(lblrpt_name) Then
lblrpt_name.Text = e.Row.DataItem("rpt_name")
End If
Dim lblrpt_surname As Label = CType(e.Row.FindControl("lblrpt_surname"), Label)
If Not IsNothing(lblrpt_surname) Then
lblrpt_surname.Text = e.Row.DataItem("rpt_surname")
End If
End Sub
Sub btnSearch_Click(sender As Object, e As EventArgs)
BindData()
End Sub
</script>
<html>
<head>
<title>Search</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>
<asp:Label ID="Label1" runat="server" Text="*ตัวอย่าง 12/12/2009"></asp:Label><br />
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:TMB2ConnectionString %>" SelectCommand="SELECT rpt_create_date,rpt_covernoteid,rpt_title,rpt_name,rpt_surname,rpt_settle_flag FROM rpt_master_report WHERE (rpt_create_date like '%" & strKeyWord & "%' and rpt_settle_flag is null)"></asp:SqlDataSource>
<br />
<asp:GridView id="myGridView" runat="server"
AutoGenerateColumns="False" onRowDataBound="myGridView_RowDataBound" DataSourceID="SqlDataSource1" AllowPaging="True" BackColor="#CCCCCC" BorderColor="#999999" BorderStyle="Solid" BorderWidth="3px" CellPadding="4" CellSpacing="2" ForeColor="Black">
<HeaderStyle backcolor="Black" Font-Bold="True" ForeColor="White"></HeaderStyle>
<FooterStyle BackColor="#CCCCCC" />
<RowStyle BackColor="White" />
<SelectedRowStyle BackColor="#000099" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#CCCCCC" ForeColor="Black" HorizontalAlign="Left" />
<Columns>
<asp:BoundField DataField="rpt_create_date" HeaderText="rpt_create_date" ReadOnly="True"
SortExpression="rpt_create_date" />
<asp:BoundField DataField="rpt_covernoteid" HeaderText="rpt_covernoteid" ReadOnly="True"
SortExpression="rpt_covernoteid" />
<asp:BoundField DataField="rpt_title" HeaderText="rpt_title" ReadOnly="True" SortExpression="rpt_title" />
<asp:BoundField DataField="rpt_name" HeaderText="rpt_name" ReadOnly="True" SortExpression="rpt_name" />
<asp:BoundField DataField="rpt_surname" HeaderText="rpt_surname" ReadOnly="True"
SortExpression="rpt_surname" />
<asp:BoundField DataField="rpt_settle_flag" HeaderText="rpt_settle_flag" ReadOnly="True"
SortExpression="rpt_settle_flag" />
<asp:CommandField ShowEditButton="True" />
</Columns>
</asp:GridView>
</form>
</body>
</html>
Tag : .NET
|
|
|
 |
 |
 |
 |
| Date :
2010-09-28 13:44:46 |
By :
B |
View :
959 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ดู Query ให้ดีครับ
|
| |
|
|
| |
| Date :
2010-09-28 13:59:14 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไปเปลี่ยนจาก myGridView.DataSource = ds เป็น myGridView.DataSource = ds.Tables(0)
|
| |
|
|
| |
| Date :
2010-09-29 23:21:22 |
By :
ผู่ได๋หล่ะ |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
