 |
| |
error on page. ที่หน้า IE ตอนกดปุ่ม Insert แต่ถ้าลองกับเครื่องตัวเองแล้วปกติ ต้องแก้ไขยังไงคะ |
| |
 |
|
|
 |
 |
|
ไม่เอา Error กับโค้ดมาให้ดูหน่อยเหรอครับ
|
 |
 |
 |
 |
| Date :
2011-08-01 13:11:56 |
By :
watcharop |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่มี error อะไรเลยค่ะ
AddH.aspx
Imports System.Data
Imports System.Data.OleDb
Partial Class AddPettyCash_H
Inherits System.Web.UI.Page
Dim clsDB As New clsDatabase
Dim FYear As Long
Dim FMonth As Integer
Dim FDay As Integer
Dim DMYS As Date
Protected Sub DropDownList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged
FMonth = Int32.Parse(DropDownList2.SelectedValue)
FYear = Int32.Parse(DropDownList3.SelectedValue)
DMYS = FYear & "/" & FMonth & "/" & 1
DMYS = DateAdd("d", -1, DateAdd("m", 1, DMYS))
FDay = Day(DMYS)
End Sub
Protected Sub DropDownList3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
FMonth = Int32.Parse(DropDownList2.SelectedValue)
FYear = Int32.Parse(DropDownList3.SelectedValue)
DMYS = FYear & "/" & FMonth & "/" & 1
DMYS = DateAdd("d", -1, DateAdd("m", 1, DMYS))
FDay = Day(DMYS)
End Sub
Function CheckLeap(ByVal fyear As Long) As Boolean
If (fyear Mod 4 = 0) Then
CheckLeap = True
Else
CheckLeap = False
End If
End Function
Function CheckDate(ByVal fday As Integer, ByVal fmonth As Integer, ByVal fyear As Integer) As Boolean
If IsDate(fday & "/" & fmonth & "/" & fyear) Then
CheckDate = True
Else
CheckDate = False
End If
End Function
Protected Sub Page_InitComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.InitComplete
If Session("strUser") = Nothing Then
Response.Redirect("index.aspx")
Exit Sub
End If
Label2.Text = Session("strUser")
LblUserGroup.Text = Session("UserGroup")
LblBr_id.Text = Session("BR_ID")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim tnow As Date
tnow = DateTime.Now
Dim AlYear() As Integer
Dim AlMonth(11) As Integer
Dim NumYear As Integer
NumYear = Year(Now) - 2002
Dim i As Integer
ReDim AlYear(NumYear)
For i = 2002 To Year(Now)
AlYear(NumYear) = i
NumYear = NumYear - 1
Next i
For i = 1 To 12
AlMonth(i - 1) = i
Next i
If Page.IsPostBack Then
FYear = Int32.Parse(DropDownList3.SelectedValue)
FMonth = Int32.Parse(DropDownList2.SelectedValue)
DropDownList3.DataSource = AlYear
DropDownList3.DataBind()
DropDownList3.SelectedValue = FYear
DropDownList2.DataSource = AlMonth
DropDownList2.DataBind()
DropDownList2.SelectedValue = FMonth
DMYS = FYear & "/" & FMonth & "/" & 1
DMYS = DateAdd("d", -1, DateAdd("m", 1, DMYS))
Label1.Text = DMYS
Else
DropDownList3.DataSource = AlYear
DropDownList3.DataBind()
DropDownList3.SelectedValue = tnow.Year.ToString()
DropDownList2.DataSource = AlMonth
DropDownList2.DataBind()
DropDownList2.SelectedValue = tnow.Month.ToString()
FYear = Int32.Parse(DropDownList3.SelectedValue)
FMonth = Int32.Parse(DropDownList2.SelectedValue)
DMYS = FYear & "/" & FMonth & "/" & 1
DMYS = DateAdd("d", -1, DateAdd("m", 1, DMYS))
Label1.Text = DMYS
End If
Label2.Text = Session("strUser")
TxtTopic.Focus()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'Insert To H
Dim dbread As OleDbDataReader
Dim rcount As Integer
Dim num As Long
Label1.Text = Year(Label1.Text) & "/" & Month(Label1.Text) & "/" & Day(Label1.Text)
Dim strSQL As String
strSQL = "SELECT TOP 1 ExpensNo FROM PETTYCASH_H ORDER BY ExpensNo DESC"
dbread = clsDB.QueryDataReader(strSQL)
rcount = dbread.Read()
If rcount <> 0 Then
num = dbread("ExpensNo")
Else
num = 0
End If
clsDB.Close()
Dim dDate As Date
strSQL = "INSERT INTO PETTYCASH_H(ExpensNo,Month_Date,DESCP,Account,USER_NAME,FlagUpdate,FlagCancel)" & _
" VALUES(" & num + 1 & ",#" & Month(Label1.Text) & "/" & Day(Label1.Text) & "/" & Year(Label1.Text) & "#,'" & TxtTopic.Text & "','" & TxtAccID.Text & "','" & Label2.Text & "',0,0)"
If clsDB.QueryExecuteNonQuery(strSQL) = True Then
dDate = Year(Label1.Text) & "/" & Month(Label1.Text) & "/" & Day(Label1.Text)
Session("ExpensNo") = num + 1
Response.Redirect("ADDPETTYCASH_D.aspx")
Else
LblError.Visible = True
LblError.Text = "Insert Not Complate!"
End If
clsDB.Close()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
TxtTopic.Text = ""
TxtAccID.Text = ""
TxtTopic.Focus()
End Sub
End Class
-------------------------------------------------------------------------------------------------------------------------------------------------------
Class_1
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web.Configuration
Public Class clsDatabase
Inherits System.Web.UI.Page
Private objConn As OleDbConnection
Private objCmd As OleDbCommand
Private Trans As OleDbTransaction
Private strConnString As String
Public Sub New()
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_data/dbPettyCash.mdb") & ";Jet OLEDB:Database Password=;"
strConnString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString").ToString
End Sub
Public Function ConnOnly(ByVal xx As String) As DataTable
Dim dt As New DataTable
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
dt = objConn.GetSchema(xx)
Return dt
End Function
Public Function QueryDataReader(ByVal strSQL As String) As OleDbDataReader
Dim dtReader As OleDbDataReader
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
objCmd = New OleDbCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()
Return dtReader '*** Return DataReader ***'
End Function
Public Function QueryDataSet(ByVal strSQL As String) As DataSet
Dim ds As New DataSet
Dim dtAdapter As New OleDbDataAdapter
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
objCmd = New OleDbCommand
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd
dtAdapter.Fill(ds)
Return ds '*** Return DataSet ***'
End Function
Public Function QueryDataTable(ByVal strSQL As String) As DataTable
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
Return dt '*** Return DataTable ***'
End Function
Public Function QueryExecuteNonQuery(ByVal strSQL As String) As Boolean
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
Try
objCmd = New OleDbCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With
objCmd.ExecuteNonQuery()
Return True '*** Return True ***'
Catch ex As Exception
MsgBox(ex.Message)
Return False '*** Return False ***'
End Try
End Function
Public Function QueryExecuteScalar(ByVal strSQL As String) As Object
Dim obj As Object
objConn = New OleDbConnection
With objConn
.ConnectionString = strConnString
.Open()
End With
Try
objCmd = New OleDbCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With
obj = objCmd.ExecuteScalar() '*** Return Scalar ***'
Return obj
Catch ex As Exception
Return Nothing '*** Return Nothing ***'
End Try
End Function
Public Sub Close()
objConn.Close()
objConn = Nothing
End Sub
End Class
web.config
<appSettings>
<add key="ConnectionString" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|dbPettyCash.mdb;"/>
</appSettings>
|
ประวัติการแก้ไข
2011-08-01 13:36:13
| |
|
|
| |
| Date :
2011-08-01 13:28:59 |
By :
por_punggo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มันขึ้นคำว่า error on page. ตรง status bar ที่IE น่ะค่ะ
ส่วนหน้าจอก็ค้างอยู่หน้าเดิม เหมือนไม่มีอะไรเกิดขึ้นค่ะ ไม่มีerrorอะไรให้อ่านเลยค่ะ
|
| |
|
|
| |
| Date :
2011-08-01 15:45:39 |
By :
por_punggo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
งั้นก็ Double Click ที่ตรงตำแหน่งนั้นแหละ
มันจะเปิดหน้าต่างให้เราอ่านว่า
Error เกิดขึ้นที่บรรทัดไหน
ส่วนใหญ่ปัญหาลักษณะนี้เกิดจาก Client Script
คุณมีเขียน Client Script บ้างไหม?
|
| |
|
|
| |
| Date :
2011-08-01 16:03:12 |
By :
watcharop |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Quote:
