Lowyat.NET: Latest topics by SarDine99

How To Bind Custom Generic List With GridView?

SarDine99 — Sat, 15 Jun 2013 12:08:02 +0800

Hello, i have a big problem here.

I have a generic list call StaffNotifyList and i want to bind it with gridview. The problem is, the gridview do not bind with my generic list.
I already set the Properties of gridview with AutoGenerateColumns="true" or remove the properties AutoGenerateColumns="false" OnRowDataBound="gvAttApp_RowDataBound" but it still doesn't work for me..

This is my GridView Template

CODE

<asp:GridView ID="gvAttApp" runat="server" AutoGenerateColumns="false" OnRowDataBound="gvAttApp_RowDataBound" HeaderStyle-BackColor="#999CFF" ShowFooter="true" HeaderStyle-Font-Bold="true">
<Columns>
<asp:TemplateField HeaderText="No" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblNo" runat="server"/>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Nama" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblName" runat="server"/>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tkh. Kemaskini" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblDTUpd" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Pernyataan" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblReason" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tkh. Aktiviti" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblDTAct" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Waktu" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblTime" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Komen" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblComment" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Aktiviti" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblAct" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:CheckBoxList ID="chkApproval" runat="server">
<asp:ListItem Value="1" />
<asp:ListItem Value="0" />
</asp:CheckBoxList>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>

And This is my codeBehind

CODE

Private Sub gvAttApp_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvAttApp.RowDataBound

If e.Row.RowType = DataControlRowType.DataRow Then

Dim getStaff = From Staff In StaffNotifyList Select Staff Where Staff.TransType = 0 Or Staff.TransType = 1

If getStaff.Count <> 0 Then
For i As Integer = 0 To getStaff.Count - 1
Dim lblNo As Label = DirectCast(e.Row.FindControl("lblNo"), Label)
lblNo.Text = i + 1

Dim lblName As Label = DirectCast(e.Row.FindControl("lblName"), Label)
lblName.Text = getStaff(i).LastName.Trim

Dim lblDTUpd As Label = DirectCast(e.Row.FindControl("lblDTUpd"), Label)
lblDTUpd.Text = getStaff(i).DTSpan

Dim lblReason As Label = DirectCast(e.Row.FindControl("lblReason"), Label)
If getStaff(i).TransType = 1 Then
lblReason.Text = getStaff(i).ReasonIn
ElseIf getStaff(i).TransType = 0 Then
lblReason.Text = getStaff(i).ReasonOut
End If

Dim lblDTAct As Label = DirectCast(e.Row.FindControl("lblDTAct"), Label)
lblDTAct.Text = CDate(Mid(getStaff(i).YearMonth, 1, 4) & "/" & Mid(getStaff(i).YearMonth, 5, 2) & "/" & getStaff(i).NotifyDay).ToString("dd MMM yyyy")

Dim lblTime As Label = DirectCast(e.Row.FindControl("lblTime"), Label)
If getStaff(i).TransType = 1 Then
lblTime.Text = getStaff(i).TimeIn
ElseIf getStaff(i).TransType = 0 Then
lblTime.Text = getStaff(i).TimeOut
End If

Dim lblComment As Label = DirectCast(e.Row.FindControl("lblComment"), Label)
If getStaff(i).TransType = 1 Then
lblComment.Text = getStaff(i).RCommentIn
ElseIf getStaff(i).TransType = 0 Then
lblComment.Text = getStaff(i).RCommentOut
End If

Dim lblAct As Label = DirectCast(e.Row.FindControl("lblAct"), Label)
If getStaff(i).TransType = 1 Then
lblAct.Text = "Masuk"
ElseIf getStaff(i).TransType = 0 Then
lblAct.Text = "Keluar"
End If

Next
End If
End If
End Sub
End Class

In the page Load i bind the gridview

CODE

Public StaffNotifyList As New List(Of StaffNotifyMap)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Session("Id") = "" Then
Response.Redirect("~/Default.aspx", False)
Exit Sub
End If

gvAttApp.DataSource = StaffNotifyList
gvAttApp.DataBind()

End Sub

I realy have no idea how to fix this...Pls Help Me. TQ

IBM UNIX

SarDine99 — Wed, 03 Oct 2012 17:24:04 +0800

SCENARIO 1
I have an old system(the system is aldy been use for past 10 years i guess) based on UNIX IBM. I am the new vendor that will upgrade the existing system to all new brand system. The problem is, i do not have any login/password to access the database as i need the db to merge the data to the new database. I want to merge the db bcoz the new system will use windows platform that will be more user friendly.

So, do u guys have any method to hack the db so i can get the data in the database.

SCENARIO 2
I have a client PC that runs based on Windows NT platform. I had install the Win2PDF(pdf printer). From the Server PC that runs UNIX, i want to create a network printer that will connect to the Win2PDF. I want to do bcoz, i want to print the data from the UNIX to pdf printer in Windows NT. I had create/link the network printer in UNIX, but when i want to print. there is no selection that will print with Win2PDF.

Do you guys have any solution?

IBM UNIX

SarDine99 — Wed, 03 Oct 2012 16:48:39 +0800

do .NET application work without database

SarDine99 — Tue, 12 Jun 2012 09:47:12 +0800

Hi Guyss...
I recently went to interview for .NET programmer position.
Then the interviewer ask me the question "do .NET application works without database?"

What is the best answer for that question? can u guys tel me??

Which database server should i use

SarDine99 — Tue, 01 May 2012 22:54:21 +0800

Hello guys...
i'm sorry if i post in wrong section..
i got problem in choosing the database managament server..
i used MS SQL SERVER 2008 R2 before and it is easy to use and manage the data...
but the problem is there is storage limit that is 10GB...
i'm thinking to build a data management software that is no limit on data storage (depends on harddisk storage)
the data that i want to store is in form of strings...
i use vb.net to develop the software..
so, can u guys give me a recommendations on which database server should i use..
give your reason for your recommendations please..TQ

auto update/insert rows in sql server 2008

SarDine99 — Tue, 10 Apr 2012 18:55:21 +0800

Hello guys...

I have a Pawn System. The admin will enter the details of Pawn items. From the date of Pawn items added, the item details will updated every month.
So, I want to update/insert table automatically upon setted time. For example, every month Table1 will automatically insert rows.
Can you guys suggest me or teach me how to do it??

signage with video imaging on screen

SarDine99 — Sun, 29 Jan 2012 23:53:49 +0800

hye...
i'm sorry if i post in the wrong place..
i want to make signage with video imaging on screen...
what i mean is like a user on the tv/screen with usb stroge plug-in, the image in the stored in the usb storage will looping the image continuously on the screen. is it possible? i want make it a system that loop an image continuously on screen programatically...

database replication

SarDine99 — Sun, 29 Jan 2012 23:45:55 +0800

hello guys..
i got a task that need me do a database replication with vb.net on sql server 2008...
the problem is, i don't know anything to make a database replication with vb.net..
it is possible?i only know that database replication is configured in the sql server, not programatically..
can u all give some sample code for database replication??

set page size programmatically with datagrid

SarDine99 — Mon, 14 Nov 2011 16:45:33 +0800

hye guys...
i have a datagrid that hold the data. I retrieve the data by using sqldataadapter and dataset.
I already have a set of datagrid that can sorting by click on the column header ang paging.
Then, I want to set a page size programmatically. The user can enter the value in the text box
to set the number of rows per page and click the button to fire the function.

This is my code:

CODE

Protected Sub pgSizeBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgSizeBtn.Click
pgSize = CType(pgSizeList.Text, Integer)
MonitorGrid.PageSize = pgSize
End Sub

This is the propertis of the datagrid:

CODE

<asp:DataGrid ID="MonitorGrid" runat="server" CssClass="Grid"
AllowPaging="True" AllowSorting="True" ShowFooter="true"
OnSortCommand="SortGrid" OnPageIndexChanged="ChangePage"
OnInit="MonitorGrid_Init" OnItemCreated="MonitorGrid_ItemCreated"
AutoGenerateColumns="true" Width="100%" PageSize="10">
<AlternatingItemStyle CssClass="GridAltItem"></AlternatingItemStyle>
<ItemStyle CssClass="GridItem"></ItemStyle>
<HeaderStyle CssClass="GridHeader"></HeaderStyle>
<PagerStyle CssClass="GridPager" Mode="NumericPages" HorizontalAlign="Left"
VerticalAlign="Top" Wrap="false"></PagerStyle>
<FooterStyle CssClass="GridFooter"></FooterStyle>
</asp:DataGrid>

The problem is i need click the button or refresh several time then only the datagrid will change the view of item per page.
2nd problem is, when i want view the item per page more then the default pagesize, there will be data missing in the datagrid.

can u guys help me how to solve this problem

dbAutoTrack Tutorial

SarDine99 — Mon, 14 Nov 2011 16:30:15 +0800

hello guys...
i have a SDK called dbAutoTrack. The SDK is used to deploy a reporting system. This SDK enable the user view the Print preview and print the report from the web pages. The report should contain the data from the database in SQL Server 2008. My problem is i have no idea on how to use the SDK with ASP.NET. I need at least a tutorial on how to deploy reporting system with dbAutoTrack. I bought it for $399 dollars. It will be a waste if i dunno how to use it.
I wish u guys can help me. I already thousands times search in google for the tutorial. This forum is my last hope. T_T

reporting service

SarDine99 — Thu, 20 Oct 2011 12:54:15 +0800

hello guys...

i'm creating a web based report service for my company. My project is like this, in my web page there are few checkbox that trigger different sql statement. Then i create a dataset and sqldataadapter and bind it into datagrid after View_Button is clicked. After that, the user will clicked the Print_Button to print the report. When print button is clicked, the user will be redirect to another page that will view the report.rdlc by using MicrosoftReportViewer.

This is my code that bind the data into datagrid
i named my datagrid as MonitorGrid

CODE

'SetQuery() is to store the sql statement
Public Function SetQuery() As Boolean

SQL_str = "SELECT DateTime as [Date Time], Vehicle_ID as [Vehicle ID], ImportExport as [Import/Export], Station as [Station]," & _
"Release_Status as [Release Status], DateTime_Upon_Entry as [Entry Time], DateTime_Upon_Exit as [Exit Time]," & _
"Card_Status_Upon_Entry as [Entry Status], Card_Status_Upon_Exit as [Exit Status] FROM LCSLog WHERE"

If calTxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Return False
Exit Function
Else
If ToDate_ChkBx.Checked = True Then
If ToDate_TxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Exit Function
End If
SQL_str = SQL_str + " DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00' AND DateTime <='" & Format(CDate(ToDate_TxtBx.Text), "MM/dd/yyyy") & " 23:59:59'"
Else
SQL_str = SQL_str + " DateTime <='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 23:59:59' AND DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00'"
End If
End If

'1
If All_ChkBx.Checked = True Then

ElseIf NR_ChkBx.Checked = True Then
'SQL string for normal release
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '50' OR Card_Status_Upon_Exit = '60') "
ElseIf ManExt_ChkBx.Checked = True Then
'SQL string for manual exit
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '' or Card_Status_Upon_Exit = '0' OR Card_Status_Upon_Exit ='51' OR Card_Status_Upon_Exit ='61' OR Card_Status_Upon_Exit is null) "
End If
'2
If IMPEXP_ChkBx.Checked = True Then
'SQL string for ImportExport
SQL_str = SQL_str + " AND ImportExport = '" & ImpExp_Str & "'"
End If
'3
If ByVehicle_ChkBx.Checked = True Then
'SQL string for Vehicle_ID
SQL_str = SQL_str + " AND Vehicle_ID = '" & VehicleNo_TxtBx.Text & "'"
End If

Return True
End Function
'BindDataGrid is to bind the data to the datagrid
Public Function BindDataGrid() As DataView
SQLCon = New SqlConnection()
SQLCon.ConnectionString = ConfigurationManager.ConnectionStrings("GCSBSIConnectionString").ConnectionString

SetQuery()
Dim myDataSet As DataSet = New DataSet()
Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(SQL_str, SQLCon)

Try

'MsgBox(SQL_str)
myDataAdapter.Fill(myDataSet, "Report")

If myDataSet.Tables(0).Rows.Count = 0 Then
MonitorGrid.Enabled = False
MonitorGrid.Visible = False
CountRecord.Text = "No Record Found"
Else
MonitorGrid.Enabled = True
MonitorGrid.Visible = True
CountRecord.Text = myDataSet.Tables(0).Rows.Count.ToString
'MonitorGrid.DataSource = myDataSet.Tables("Report")
'MonitorGrid.DataBind()
If (Session("Sorter") Is Nothing) Then
Session("Sorter") = "[Vehicle ID]"
End If
myDataSet.Tables(0).DefaultView.Sort = CType(Session("Sorter"), String)

End If

Catch ex As Exception
MsgBox(ex.Message)
End Try

SQLCon.Close()
SQLCon.Dispose()
Return myDataSet.Tables(0).DefaultView

End Function

After that, print button will be click by user to print the report

CODE

Protected Sub PrintBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PrintBtn.Click
Response.Redirect("~/report/ExtReporting.aspx", False)
End Sub

ExtReporting.aspx is page that will load the report.rdlc

This is how i bind the data into the report

CODE

Imports System.Data.SqlClient
Imports System.Data
Imports Microsoft.Reporting.WebForms

Partial Class report_ExtReporting
Inherits System.Web.UI.Page

Dim SQLCon As SqlConnection
Dim SQL_Passing As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If IsPostBack = False Then
DisplayReport()
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Sub

Public Function GetLCSLog() As DataTable
SQLCon = New SqlConnection()
SQLCon.ConnectionString = ConfigurationManager.ConnectionStrings("GCSBSIConnectionString").ConnectionString

SQL_Passing = Session("passQuery")
Dim sqlCMD As New SqlCommand
sqlCMD.Connection = SQLCon
sqlCMD.CommandType = CommandType.Text
sqlCMD.CommandText = SQL_Passing

Dim MyDT As New GCSBSIDataset.LCSLogDataTable
Dim MyDA As New SqlDataAdapter(sqlCMD)

MyDA.Fill(MyDT)

Return MyDT

End Function

Public Sub DisplayReport()
ExitRptViewer.LocalReport.DataSources.Clear()
ExitRptViewer.LocalReport.DataSources.Add(New ReportDataSource("GCSBSIDataset_LCSLog", GetLCSLog()))

ExitRptViewer.LocalReport.ReportPath = HttpContext.Current.Server.MapPath("report.rdlc")
ExitRptViewer.LocalReport.Refresh()

End Sub
End Class

My problem is, there is something wrong with the report output. My report output is like this.

By keron90 at 2011-10-19

As the picture above, my data is no fully showed in the report. The only data visible is in the column "Station" Can u guys help me how to solve this problem. It take me two weeks to face this problem, unfortunately i still failed. T_T
one more thing, can u guys teach me hot to edit the report interface so it will look like a properly report.

HOW TO: generate report from datagrid in asp.net

SarDine99 — Tue, 18 Oct 2011 21:09:11 +0800

hye...im a newbie programmer...

I creating a web based system to generate a report. The datasource is driven by the datagrid with dynamic sql.

This is my code

CODE

Protected Sub ViewBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ViewBtn.Click

If (NR_ChkBx.Checked Or All_ChkBx.Checked Or ManExt_ChkBx.Checked) = False Then
MsgBox("Please choose report query either : All,Normal Release,Override or By Vehicle Number", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
Else
If ByVehicle_ChkBx.Checked = True And VehicleNo_TxtBx.Text = "" Then
MsgBox("Please Key in Vehicle Number", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
End If
End If

If IMPEXP_ChkBx.Checked = True And IMPEXP_List.Text = "" Then
MsgBox("Please choose IMPORT/EXPORT", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
End If

MonitorGrid.CurrentPageIndex = 0 'Reset CurrentPageIndex of MonitorGrid
If SetQuery() = False Then
Exit Sub
End If
MonitorGrid.DataSource = BindDataGrid()
MonitorGrid.DataBind()

End Sub

Public Function SetQuery() As Boolean

SQL_str = "SELECT DateTime as [Date Time], Vehicle_ID as [Vehicle ID], ImportExport as [Import/Export], Station as [Station]," & _
"Release_Status as [Release Status], DateTime_Upon_Entry as [Entry Time], DateTime_Upon_Exit as [Exit Time], " & _
"Card_Status_Upon_Entry as [Entry Status], Card_Status_Upon_Exit as [Exit Status] FROM LCSLog WHERE"

If calTxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Return False
Exit Function
Else
If ToDate_ChkBx.Checked = True Then
If ToDate_TxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Exit Function
End If
SQL_str = SQL_str + " DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00' AND DateTime <='" & Format(CDate(ToDate_TxtBx.Text), "MM/dd/yyyy") & " 23:59:59'"
Else
SQL_str = SQL_str + " DateTime <='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 23:59:59' AND DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00'"
End If
End If

'1
If All_ChkBx.Checked = True Then

ElseIf NR_ChkBx.Checked = True Then
'SQL string for normal release
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '50' OR Card_Status_Upon_Exit = '60') "
ElseIf ManExt_ChkBx.Checked = True Then
'SQL string for manual exit
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '' or Card_Status_Upon_Exit = '0' OR Card_Status_Upon_Exit ='51' OR Card_Status_Upon_Exit ='61' OR Card_Status_Upon_Exit is null) "
End If
'2
If IMPEXP_ChkBx.Checked = True Then
'SQL string for ImportExport
SQL_str = SQL_str + " AND ImportExport = '" & ImpExp_Str & "'"
End If
'3
If ByVehicle_ChkBx.Checked = True Then
'SQL string for Vehicle_ID
SQL_str = SQL_str + " AND Vehicle_ID = '" & VehicleNo_TxtBx.Text & "'"
End If

Return True
End Function

Public Function BindDataGrid() As DataView
SQLCon = New SqlConnection("Data Source=" & SQLServerIP & ";Initial Catalog=" & SQLDBName & ";User ID=" & SQLUser _
& ";Password=" & SQLPass & ";MultipleActiveResultSets=True")

SetQuery()
Dim myDataSet As DataSet = New DataSet()
Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(SQL_str, SQLCon)

Try
myDataAdapter.Fill(myDataSet, "Report")

If myDataSet.Tables(0).Rows.Count = 0 Then
MonitorGrid.Enabled = False
MonitorGrid.Visible = False
CountRecord.Text = "No Record Found"
Else
MonitorGrid.Enabled = True
MonitorGrid.Visible = True
CountRecord.Text = myDataSet.Tables(0).Rows.Count.ToString
'MonitorGrid.DataSource = myDataSet.Tables("Report")
'MonitorGrid.DataBind()
If (Session("Sorter") Is Nothing) Then
Session("Sorter") = "[Vehicle ID]"
End If
myDataSet.Tables(0).DefaultView.Sort = CType(Session("Sorter"), String)

End If

Catch ex As Exception
MsgBox(ex.Message)
End Try

SQLCon.Close()
SQLCon.Dispose()
Return myDataSet.Tables(0).DefaultView

End Function

My problem is, i dunno how to generate a report when a "print report" button is clicked and print the report.
i designed the report with crystal report. Yet, i dunno how to generate a report from the data driven in the datagrid.
can u guys help me?

HOW TO: generate report from datagrid in asp.net

SarDine99 — Tue, 18 Oct 2011 21:08:28 +0800

hye...im a newbie programmer...

I creating a web based system to generate a report. The datasource is driven by the datagrid with dynamic sql.

This is my code

CODE

Protected Sub ViewBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ViewBtn.Click

If (NR_ChkBx.Checked Or All_ChkBx.Checked Or ManExt_ChkBx.Checked) = False Then
MsgBox("Please choose report query either : All,Normal Release,Override or By Vehicle Number", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
Else
If ByVehicle_ChkBx.Checked = True And VehicleNo_TxtBx.Text = "" Then
MsgBox("Please Key in Vehicle Number", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
End If
End If

If IMPEXP_ChkBx.Checked = True And IMPEXP_List.Text = "" Then
MsgBox("Please choose IMPORT/EXPORT", MsgBoxStyle.Exclamation, "GCS Reporting Module")
Exit Sub
End If

MonitorGrid.CurrentPageIndex = 0 'Reset CurrentPageIndex of MonitorGrid
If SetQuery() = False Then
Exit Sub
End If
'BindDataGrid()
MonitorGrid.DataSource = BindDataGrid()
MonitorGrid.DataBind()
'MsgBox(SQL_str)

End Sub

Public Function SetQuery() As Boolean

SQL_str = "SELECT DateTime as [Date Time], Vehicle_ID as [Vehicle ID], ImportExport as [Import/Export], Station as [Station]," & _
"Release_Status as [Release Status], DateTime_Upon_Entry as [Entry Time], DateTime_Upon_Exit as [Exit Time], " & _
"Card_Status_Upon_Entry as [Entry Status], Card_Status_Upon_Exit as [Exit Status] FROM LCSLog WHERE"

If calTxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Return False
Exit Function
Else
If ToDate_ChkBx.Checked = True Then
If ToDate_TxtBx.Text = "" Then
MsgBox("Please select report date", MsgBoxStyle.Exclamation, "GCS Report Module")
Exit Function
End If
SQL_str = SQL_str + " DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00' AND DateTime <='" & Format(CDate(ToDate_TxtBx.Text), "MM/dd/yyyy") & " 23:59:59'"
Else
SQL_str = SQL_str + " DateTime <='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 23:59:59' AND DateTime >='" & Format(CDate(calTxtBx.Text), "MM/dd/yyyy") & " 00:00:00'"
End If
End If

'1
If All_ChkBx.Checked = True Then

ElseIf NR_ChkBx.Checked = True Then
'SQL string for normal release
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '50' OR Card_Status_Upon_Exit = '60') "
ElseIf ManExt_ChkBx.Checked = True Then
'SQL string for manual exit
SQL_str = SQL_str + " AND (Card_Status_Upon_Exit = '' or Card_Status_Upon_Exit = '0' OR Card_Status_Upon_Exit ='51' OR Card_Status_Upon_Exit ='61' OR Card_Status_Upon_Exit is null) "
End If
'2
If IMPEXP_ChkBx.Checked = True Then
'SQL string for ImportExport
SQL_str = SQL_str + " AND ImportExport = '" & ImpExp_Str & "'"
End If
'3
If ByVehicle_ChkBx.Checked = True Then
'SQL string for Vehicle_ID
SQL_str = SQL_str + " AND Vehicle_ID = '" & VehicleNo_TxtBx.Text & "'"
End If

Return True
End Function

Public Function BindDataGrid() As DataView
SQLCon = New SqlConnection("Data Source=" & SQLServerIP & ";Initial Catalog=" & SQLDBName & ";User ID=" & SQLUser _
& ";Password=" & SQLPass & ";MultipleActiveResultSets=True")

SetQuery()
Dim myDataSet As DataSet = New DataSet()
Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(SQL_str, SQLCon)

Try

'MsgBox(SQL_str)
myDataAdapter.Fill(myDataSet, "Report")

If myDataSet.Tables(0).Rows.Count = 0 Then
MonitorGrid.Enabled = False
MonitorGrid.Visible = False
CountRecord.Text = "No Record Found"
Else
MonitorGrid.Enabled = True
MonitorGrid.Visible = True
CountRecord.Text = myDataSet.Tables(0).Rows.Count.ToString
'MonitorGrid.DataSource = myDataSet.Tables("Report")
'MonitorGrid.DataBind()
If (Session("Sorter") Is Nothing) Then
Session("Sorter") = "[Vehicle ID]"
End If
myDataSet.Tables(0).DefaultView.Sort = CType(Session("Sorter"), String)

End If

Catch ex As Exception
MsgBox(ex.Message)
End Try

SQLCon.Close()
SQLCon.Dispose()
Return myDataSet.Tables(0).DefaultView

End Function

My problem is, i dunno how to generate a report when a "print report" button is clicked and print the report.
i designed the report with crystal report. But in the end, i dunno how to generate a report from the dat driven in the datagrid.
can u guys help me?

price of XPERIA PLAY

SarDine99 — Sun, 14 Aug 2011 16:04:00 +0800

hello guys...
juz wanna ask one thing...
what is the price of Sony Ericsson Xperia Play at Lowyat???
Somebody tell me?

asp.net & vb.net

SarDine99 — Thu, 07 Jul 2011 15:13:07 +0800

hello guys...
do u guys know how to trim the strings in the girdview in asp.net and vb.net...
Actually there is one row of the table, the strings is not trim properly...
for example:
"E X A M P L E"
i want to trim the word to become like this : "Example"

the data in the gridview is call from the sql server and i'm using templatefield in the gridview control...

hope u guys can help and teach me how to do it...

error 403 forbidden

SarDine99 — Tue, 05 Jul 2011 19:50:05 +0800

hi guys...
recently, i created a web database system...
i want to publish it with iis in win xp pro, i got the 403 forbidden error...
i already edit the permission in the iis to public, but still got this error..
can u guys help me??
i'm using iis v2.0(something)....

video streaming

SarDine99 — Mon, 04 Jul 2011 09:16:45 +0800

hello guys....
i have a problem that i dunno how to develop a script for video streaming from cctv...
i need to develop a relay server...the relay server is the server that directly stream the video from the camera...
then, the client will stream the video from the requested channel( 1 channel, 1 camera)

i really dunno from where to start.
so, can u guys give me some source code or tutorial for this project...
juz give me the simple source code bcoz i need it to learn from it...

sincerely,
the wannabe programer

Submit then return blank

SarDine99 — Sun, 10 Apr 2011 16:14:33 +0800

hello guys...i got a problem..
i have a form to add some data into database...
in the script i put a validation data...
here is the whole code...

» Click to show Spoiler - click again to hide... «

The problem is here..

CODE

elseif((!empty($_POST['stud2']) && !empty($_POST['stud2_id'])) || (!empty($_POST['stud3']) && !empty($_POST['stud3_id']))){
/////Get stud2 fullname and id////////////
$get_stud2 = mysql_query("SELECT unikl_id,fullname FROM user WHERE unikl_id='$_POST[stud2_id]'");
while($row_stud2 = mysql_fetch_array($get_stud2,MYSQL_ASSOC)){
$stud2_id = $row_stud2['unikl_id'];
$stud2 = $row_stud2['fullname'];
}
$chek_stud2 = mysql_num_rows($get_stud2) or die("ERROR :".mysql_error());//check stud2

//////Get stud3 fullname and id////////////
$get_stud3 = mysql_query("SELECT unikl_id,fullname FROM user WHERE unikl_id='$_POST[stud3_id]'");
while($row_stud3 = mysql_fetch_array($get_stud3,MYSQL_ASSOC)){
$stud3_id = $row_stud3['unikl_id'];
$stud3 = $row_stud3['fullname'];
}
$chek_stud3 = mysql_num_rows($get_stud3) or die("ERROR :".mysql_error());//check stud3

if($check_stud2!=1){
$error = "Team Member 1 does not exist!";
}
elseif($check_stud3!=1){
$error = "Team Member 2 does not exist!";
}
}

when i put some value in $_POST['stud2'] && $_POST['stud2_id'] OR $_POST['stud3'] && $_POST['stud3_id'], it should check the existence of stud2 and stud3 in database...but when i submit, it return blank....

i guess my problem is my ifelse condition of

CODE

elseif((!empty($_POST['stud2']) && !empty($_POST['stud2_id'])) || (!empty($_POST['stud3']) && !empty($_POST['stud3_id']))){

do you guys have any idea to solve this...

help me check my code

SarDine99 — Sat, 09 Apr 2011 03:28:04 +0800

Help me check my code.
This form should be detect an error such as, when any field is leave in blank it will give a error msg after i click submit.
But it juz give me blank.

» Click to show Spoiler - click again to hide... «

count data value from database

SarDine99 — Tue, 05 Apr 2011 13:17:40 +0800

this is the whole code of php

» Click to show Spoiler - click again to hide... «

this is the part that will count the value of proj_status from database

CODE

$checkSupervisor = @mysql_query("SELECT * FROM project WHERE supervisor = '$_POST[supervisor]'");
$rows = array();
while($row = mysql_fetch_array($checkSupervisor, MYSQL_ASSOC)){
$rows[] = array('countProj' => $row['proj_status']);
}
foreach($rows as $row){
$count += $row['countProj'];
}
if($count<=3){
/////////////Insert data into table project///////////////////////
$inputAbstract = mysql_real_escape_string($_POST['abstract']);
$sql1 = "INSERT INTO project(proj_title,abstract,level,stud1,supervisor,date,proj_status) VALUES('$_POST[projTitle]','$inputAbstract','$_POST[lvl]','$stud1','$_POST[supervisor]',NOW(),NULL)";
$result = mysql_query($sql1) or die (mysql_error());
$projID=@mysql_query("SELECT proj_id FROM project WHERE proj_title='$_POST[projTitle]'");
while($row = mysql_fetch_assoc($projID)){
$projid = $row['proj_id'];
}
$insertprojID = mysql_query("UPDATE user SET proj_id = '$projid' WHERE fullname = '$stud1' OR fullname = '$_POST[supervisor]'");
$success = "Add project Successfull.";
/////////////////////////////////////////////////////////////////
$status = "OK"; //flag
if ($status == "OK") {
$fetchID = @mysql_query("SELECT user_id FROM user WHERE fullname='$_POST[supervisor]'");
while($fetch = mysql_fetch_assoc($fetchID)){
$ID = $fetch['user_id'];
}
/////////Insert data into table inbox//////////////////////////////////////////////////////
$title = "Final Year Project Request";
$content = "Click <a href='./../../module/project/proj_request.php'>here</a> to see the project details.";
$inputContent = mysql_real_escape_string($content);
$sql3 = "INSERT INTO notification(sender_id,sender,receiver_id,receiver,title,content,date,status) VALUES('$userid','$stud1','$ID','$_POST[supervisor]','$title','$inputContent',NOW(),1)";
$result3 = mysql_query($sql3) or die (mysql_error());
$success2 = 'Message sent!';
///////////////////////////////////////////////////////////////////////////////////////////
}
}else {
$error = "Supervisor not available";
}

the problem is my code not really work...do you guys have any solution?