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,036

HOME > .NET Framework > Forum > ASP.Net ย้ายเว็บจาก host นึง มายังอีก host นึง แล้วมีปัญหาเรื่องการเชื่อมต่อกับ MSSQL ครับ



 

ASP.Net ย้ายเว็บจาก host นึง มายังอีก host นึง แล้วมีปัญหาเรื่องการเชื่อมต่อกับ MSSQL ครับ

 



Topic : 080673



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



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




ผมทำการย้ายเว็บมายังอีก Host นึง แต่พอนำมารันผลปรากฎว่าขึ้นข้อความว่า "Object reference not set to an instance of an object."

error

งงครับ มือใหม่ซะด้วย ผมไม่แน่ใจว่าเป็นการว่ารันด้วย Virtual directory รึป่าว รบกวนชี้แนะด้วยครับ

ไฟล์ connection.vb

Code (ASP)
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Net
Imports System.IO
Imports System.Net.Cookie
Imports System.Text
Imports System.Web.HttpContext

Public Class connection
    Private MyConn As SqlConnection
    Private sqlTrans As SqlTransaction
    Private ci As New CultureInfo("en-US")
    Private objDs As DataSet
    Private myCommand As SqlCommand

    Function Connection() As SqlConnection
        Connection = New SqlConnection("Server=70.87.28.215;Uid=missmut;PASSWORD=1q2w3e4r;database=MUT2012;")
        Return Connection
    End Function

    Function QueryData(ByVal strSql As String, ByVal vStrDs As String, _
               Optional ByVal vStrDatabase As String = "", _
               Optional ByVal currentIndex As String = "", _
               Optional ByVal PageSize As String = "") As DataSet
        Try
            Dim Objrecordset As SqlDataAdapter
            Dim Objds As DataSet

            MyConn = Connection()
            If MyConn.State = ConnectionState.Closed Then
                MyConn.Open()
            End If
            If vStrDatabase <> "" Then
                MyConn.ChangeDatabase(vStrDatabase)
            End If

            Objrecordset = New SqlDataAdapter(strSql, MyConn)
            Objds = New DataSet
            If currentIndex <> "" And PageSize <> "" Then
                Objrecordset.Fill(Objds, currentIndex, PageSize, vStrDs)
            Else
                Objrecordset.Fill(Objds, vStrDs)
            End If
            MyConn.Close()
            Return Objds
        Catch ex As Exception
            MyConn.Close()
            'Return Nothing
            'EventLog1.WriteEntry("QueryData SQL=" & strSql & vbNewLine & "Error Detail =" & ex.Message)
        Finally
            If MyConn.State = ConnectionState.Open Then
                MyConn.Close()
            End If
        End Try
    End Function

    Function executeData(ByVal strSql As String, Optional ByVal vStrDatabase As String = "")
        Try
            MyConn = Connection()

            If MyConn.State = ConnectionState.Closed Then
                MyConn.Open()
            End If

            If vStrDatabase <> "" Then
                MyConn.ChangeDatabase(vStrDatabase)
            End If
            myCommand = New SqlCommand(strSql, MyConn)
            If MyConn.State = ConnectionState.Closed Then
                MyConn.Open()
            End If
            myCommand.ExecuteNonQuery()
            MyConn.Close()
            Return "0"
        Catch ex As Exception
            MyConn.Close()
            Return ex.Message
        Finally
            If MyConn.State = ConnectionState.Open Then
                MyConn.Close()
            End If
        End Try
    End Function
End Class


ไฟล์ detailVote.aspx

Code (ASP)
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="detailVote.aspx.vb" Inherits="mut.detailVote" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
    <title></title>
    <meta http-equiv="Pragma" content="no-cache">
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <link href="css/css.css" type="text/css" rel="stylesheet" />
    <link href="css/vote.css" rel="stylesheet" type="text/css" />
    <link rel="Stylesheet" href="fancybox/jquery.fancybox-1.3.4.css" type="text/css" media="screen" />
    <script type="text/javascript" src="Scripts/jquery.cookie.js"></script>
    <script type="text/javascript" src="Scripts/jquery-1.7.min.js"></script>
    <script type="text/javascript" src="fancybox/jquery.fancybox-1.3.4.pack.js"></script>
    <script type="text/javascript">
    
        $(function () {
            $('.sponzer_box').show();
            $('#menu_footer').show();
            $('#copyright').show();

//            var tempUserVote = '<%=UserVote1 %>';
//            if(tempUserVote != ''){
//            $('#btnLogout').show();
//            }
        });

//        $("#advLink").fancybox({
//            'transitionIn': 'none',
//            'transitionOut': 'none',
//            'autoScale': false,
//            'type': 'iframe',
//            'width': 386,
//            'height': 210,
//            'scrolling': 'no'
//        });

        function checkCookie() {
            tempVote();
        }
    </script>
</head>
<body>
    <form id="form1" runat="server">
    <div class="detail" style="height: 500px;">
        <div class="header_detail">
            <img src="images/detailVote/profile-mereg_12.png" alt="top-head" />
        </div>
        <div class="text_detail">
            <img src="images/detailVote/profile-mereg_17.png" alt="box-detail" />
            <%--<asp:Button ID="btnLogout" runat="server" Text="Logout" CssClass="btnLogout"/>--%>
            <asp:Image ID="imageMain" runat="server" ImageUrl="" CssClass="imageMainMUT" />
            <asp:Label ID="lblnumber" runat="server" class="txtNumMut" />
            <div id="textDetail" class="divdetailtxt">
                <div>
                    <asp:Label ID="lblname" runat="server" /></div>
                <div>
                    <asp:Label ID="lblage" runat="server" /></div>
                <div>
                    <asp:Label ID="lblsc" runat="server" /></div>
                <div>
                    <asp:Label ID="lblheight" runat="server" /></div>
                <div>
                    <asp:Label ID="lblweight" runat="server" /></div>
                <div>
                    <asp:Label ID="lblEducation" runat="server" /></div>
                <div>
                    <asp:Label ID="lblprovide" runat="server" /></div>
            </div>
            <%--<a id="advLink" href="loginPageVote.aspx" target="_blank">--%>
<%--            <a onclick="checkCookie();">
                <img src="images/detailVote/vote-BT_0n.png" alt="btnVote" class="button-vote" /></a>--%>
                <%--<a onclick="checkCookie();">
                .</a>--%>
            <img src="images/detailVote/sms-vote.png" alt="detailVote" class="button-datail-vote" />
            <img src="images/MainVote/vote44_22.png" alt="imageLine" />
            <div id="lbltest" style="display:none;">..</div>
            <%--<img src="images/detailVote/profile-mereg_22.png" alt="imageTitelNumber" />--%>
            <%--<img src="images/MainVote/vote44_22.png" alt="imageLine" />
            <img src="images/detailVote/profile-mereg_32.png" alt="vdotitelNumber" />--%>
        </div>
    </div>
    </form>
</body>
</html>



ไฟล์ detailVote.aspx.vb

Code (ASP)
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public Class detailVote
    Inherits System.Web.UI.Page
    Public Nmut As Integer
    Dim objConn As SqlConnection
    Dim strConn As String
    Dim objCom As SqlCommand
    Dim strCom As String
    Dim temp As SqlDataReader
    Dim Number As String
    Dim value As String
    Dim funMUT As New connection
    Dim objDs As DataSet
    Dim strExecute As String
    Public cookieUserName As String
    Public UserVote1 As String = ""
    Public Cookie As HttpCookie

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Nmut = Request.Params("id")
            Cookie = Request.Cookies("UserVote")
            UserVote1 = Cookie.Item("UserVote1")
        Catch ex As Exception
            'Response.Write("1")
        End Try
        Try
            If UserVote1 = "" Then
                If Not Request.Cookies("UserVote") Is Nothing Then
                    UserVote1 = Server.HtmlEncode(Request.Cookies("UserVote")("UserVote1"))
                End If
            End If
        Catch ex As Exception

        End Try

        Try
            'If UserVote1 <> "" Then
            '    btnLogout.Visible = True
            'Else
            '    btnLogout.Visible = False
            'End If
            'Response.Write(UserVote1)
            'If Request.Cookies("UserVote") Is Nothing Then

            'cookie2 = Request.Cookies("UserNameVote")
            'cookieUserName = cookie2.Item("UserNameVote1")
            'Else

            'End If
            'Response.Write(Request.Cookies("UserVote"))
            If Not IsPostBack Then
                getDetail()
            End If
        Catch ex As Exception
            'Response.Write(ex.Message & "2")
        End Try
    End Sub

    Sub getDetail()
        Try
            strCom = "SELECT A.APPLICANT_NO,A.FIRSTNAME_USED,A.LASTNAME_USED,A.NICKNAME,A.AGE,A.CHEST,A.HIP,A.HEIGHT,A.WEIGHT," & _
                    "A.EDU_LAST_NAME,A.EDU_LAST_LEVEL,A.EDU_LAST_STATUS,A.EDU_LAST_DESCRIPTION,P.PVN_NAME,PHOTO1,WAIST" & _
                    " FROM APPLICATION_FORM A,PROVINCE P" & _
                    " WHERE(A.APPLICANT_NO Is Not NULL)" & _
                    " AND A.BP_ADDR_PVN_ID = P.PVN_ID AND A.APPLICANT_NO = " & Nmut
            objDs = funMUT.QueryData(strCom, "DATA")
            If objDs.Tables("DATA").Rows.Count > 0 Then
                lblnumber.Text = "MUT " & objDs.Tables("DATA").Rows(0).Item("APPLICANT_NO")
                lblname.Text = objDs.Tables("DATA").Rows(0).Item("FIRSTNAME_USED") & " " & objDs.Tables("DATA").Rows(0).Item("LASTNAME_USED") & " ชื่อเล่น : " & objDs.Tables("DATA").Rows(0).Item("NICKNAME")
                lblage.Text = "อายุ : " & objDs.Tables("DATA").Rows(0).Item("AGE")
                lblsc.Text = "สัดส่วน : " & objDs.Tables("DATA").Rows(0).Item("CHEST") & "-" & objDs.Tables("DATA").Rows(0).Item("WAIST") & "-" & objDs.Tables("DATA").Rows(0).Item("HIP")
                lblheight.Text = "ส่วนสูง : " & objDs.Tables("DATA").Rows(0).Item("HEIGHT")
                lblweight.Text = "น้ำหนัก : " & objDs.Tables("DATA").Rows(0).Item("WEIGHT")
                lblEducation.Text = "การศึกษา : " & objDs.Tables("DATA").Rows(0).Item("EDU_LAST_STATUS") & " " & objDs.Tables("DATA").Rows(0).Item("EDU_LAST_LEVEL") & " " & objDs.Tables("DATA").Rows(0).Item("EDU_LAST_DESCRIPTION") & " " & objDs.Tables("DATA").Rows(0).Item("EDU_LAST_NAME")
                lblprovide.Text = "จังหวัด : " & objDs.Tables("DATA").Rows(0).Item("PVN_NAME")
                imageMain.ImageUrl = "ImageMut/3/" & objDs.Tables("DATA").Rows(0).Item("APPLICANT_NO") & ".jpg"
            Else

            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Public Function voteToBase() As Boolean
        Try
            Dim userID As String = Request.Cookies("UserVote").Value
            strCom = "EXECUTE USP_WEB_VOTE " & userID & ", " & Nmut & ""
            strExecute = funMUT.executeData(strCom, "MUTVOTE")
            Response.Write(strExecute)
            Response.Write("123")
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
        Return False
    End Function

    'Protected Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
    '    Response.Redirect("clare2.aspx")
    'End Sub
End Class




Tag : .NET, Ms SQL Server 2005, Web (ASP.NET)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-07-06 14:39:36 By : golf7626 View : 1194 Reply : 2
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

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

ถ้า Version ไม่ต่างกันก็ไม่น่าจะมีปัญหาครับ Error นี้ได้หลายกรณีมากครับ แต่ที่หลัก ๆ คือไม่รู้จัก Object นั้น ๆ ที่เราเรียกใช้






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-07-06 15:55:11 By : mr.win
 


 

No. 2



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



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


แล้วในกรณีนี้มีบรรทัดไหนต้องสงสัยบ้างมั้ยครับ ผมจะไปไล่เช็คดูอ่าคับ ตอนนี้งงมาก ไปไม่เป็นเลยทีเดียว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-07-06 15:57:55 By : golf7626
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ASP.Net ย้ายเว็บจาก host นึง มายังอีก host นึง แล้วมีปัญหาเรื่องการเชื่อมต่อกับ MSSQL ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่