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

HOME > .NET Framework > Forum > Error "Cannot a part of path" ทั้งๆที่ path ถูกแล้วจะทำอย่างไรคะ



 

Error "Cannot a part of path" ทั้งๆที่ path ถูกแล้วจะทำอย่างไรคะ

 



Topic : 070222



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



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



Code (ASP)
    Protected Sub CreatePDF()
        Dim strConn As String
        strConn = WebConfigurationManager.ConnectionStrings("WEBConnectionString").ConnectionString
        Dim Conn As New SqlConnection(strConn)
        Conn.Open()

        Dim sqlString As String
        'sqlString = "Select * from VW_PDF Where rc_code = '" & Request.QueryString("rc_code") & "' Order By rc_code DESC"
        sqlString = "Select * from VW_PDF Where rc_code = '" & lbl_rccode.Text & "' Order By rc_code DESC"

        Dim cmd As New SqlCommand(sqlString, Conn)

        Dim rc_code, rc_datetime, otherposition, jobs, othereducation, otherdisciplines, workplace, username, userfullname, userposition, usercompany1, usercompany2 As String
        Dim otherexperience, otherproperty, driverlicense, car, motorcycle, usecomputer, company_id, company_shortname, othercompany As String
        Dim company_fullname, position_name, division_name, rcposition, education_name, disciplines_name As String
        Dim sex_name, age_name, experience_name, rc_numbers, capacity, otherdivision, department_name, otherdepartment As String

        Dim dr As SqlDataReader = cmd.ExecuteReader()
        If dr.Read Then
            rc_code = dr.Item("rc_code").ToString
            rc_datetime = dr.Item("rc_datetime").ToString
            company_id = dr.Item("company_id").ToString
            company_shortname = dr.Item("company_shortname").ToString
            company_fullname = dr.Item("company_fullname").ToString
            othercompany = dr.Item("othercompany").ToString
            username = dr.Item("username").ToString
            userfullname = dr.Item("fullname").ToString
            userposition = dr.Item("userposition").ToString
            usercompany1 = dr.Item("usercompany1").ToString
            usercompany2 = dr.Item("usercompany2").ToString
            position_name = dr.Item("position_name").ToString
            otherposition = dr.Item("otherposition").ToString
            jobs = dr.Item("jobs").ToString
            division_name = dr.Item("division_name").ToString
            otherdivision = dr.Item("otherdivision").ToString
            department_name = dr.Item("department_name").ToString
            otherdepartment = dr.Item("otherdepartment").ToString
            workplace = dr.Item("workplace").ToString
            education_name = dr.Item("education_name").ToString
            othereducation = dr.Item("othereducation").ToString
            disciplines_name = dr.Item("disciplines_name").ToString
            otherdisciplines = dr.Item("otherdisciplines").ToString
            sex_name = dr.Item("sex_name").ToString
            age_name = dr.Item("age_name").ToString
            experience_name = dr.Item("experience_name").ToString
            otherexperience = dr.Item("otherexperience").ToString
            car = dr.Item("car").ToString
            motorcycle = dr.Item("motorcycle").ToString
            driverlicense = dr.Item("driverlicense").ToString
            usecomputer = dr.Item("usecomputer").ToString
            otherproperty = dr.Item("otherproperty").ToString
            rc_numbers = dr.Item("rc_numbers").ToString
            capacity = dr.Item("capacity").ToString
        End If

        Dim EnCodefont As BaseFont = BaseFont.CreateFont(Server.MapPath("~/Fonts/THSarabun.ttf"), BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
        Dim Nfont As Font = New Font(EnCodefont, 18, Font.NORMAL)
        Dim RCFileName As String = rc_code & ".pdf"

        Response.ContentType = "application/pdf"
        Response.Charset = "UTF-8"
        Response.AddHeader("content-disposition", "attachment;filename=" & RCFileName)
        'Response.Cache.SetCacheability(HttpCacheability.NoCache)

        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)

        Dim sr As New StringReader(sw.ToString())
        Response.Write(Server.MapPath("~/RCOnly/MyAttach/" & RCFileName)) '<-------- Error
        Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0.0F)
        Dim htmlparser As New HTMLWorker(pdfDoc)


        Dim imagepath As String = Server.MapPath("~/images")
        Dim PNG As Image = Image.GetInstance(imagepath + "/Logo-Asiang.png")
        'PNG.ScalePercent(100.0F)

        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
        PdfWriter.GetInstance(pdfDoc, New FileStream(Server.MapPath("~/RCOnly/MyAttach/" & RCFileName), FileMode.Create)) '<-------- Error

        pdfDoc.Open()
        pdfDoc.Add(PNG)
        ' pdfDoc.Add(New Phrase(company_fullname, Nfont))
        pdfDoc.Add(New Paragraph("                                                               ใบขอว่าจ้างพนักงาน", Nfont))
        pdfDoc.Add(New Phrase("         เลขที่เอกสาร :    ", Nfont))
        pdfDoc.Add(New Phrase(rc_code, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         วัน / เวลา :    ", Nfont))
        pdfDoc.Add(New Phrase(rc_datetime, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ตำแหน่งของผู้สมัครที่ต้องการ :   ", Nfont))
        If position_name <> "ตำแหน่งอื่นๆ" Then
            pdfDoc.Add(New Chunk(position_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherposition, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         หน้าที่งาน :   ", Nfont))
        pdfDoc.Add(New Chunk(jobs, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         สังกัดฝ่าย :   ", Nfont))
        If division_name <> "ฝ่ายอื่นๆ" Then
            pdfDoc.Add(New Chunk(division_name, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherdivision, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สังกัดแผนก :   ", Nfont))
        If department_name <> "แผนกอื่นๆ" Then
            pdfDoc.Add(New Chunk(department_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherdepartment, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สังกัดที่ :   ", Nfont))
        If company_id <> "8" Then
            pdfDoc.Add(New Phrase(company_shortname, Nfont))
            pdfDoc.Add(New Phrase(company_fullname, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Phrase(company_shortname, Nfont))
            pdfDoc.Add(New Phrase(company_fullname, Nfont))
            pdfDoc.Add(New Phrase(othercompany, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สถานที่ปฏิบัติงาน :   ", Nfont))
        pdfDoc.Add(New Phrase(workplace, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         อัตราที่รับ :   ", Nfont))
        pdfDoc.Add(New Chunk(rc_numbers, Nfont))
        pdfDoc.Add(New Phrase("         เป็นอัตรา :   ", Nfont))
        pdfDoc.Add(New Chunk(capacity, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         วุฒิการศึกษา :   ", Nfont))
        If education_name <> "อื่นๆ" Then
            pdfDoc.Add(New Chunk(education_name, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(othereducation, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สาขาวิชา :   ", Nfont))
        pdfDoc.Add(New Chunk(disciplines_name, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        ' If otherdisciplines = "1" Then
        'pdfDoc.Add(New Chunk("หรือสาขาที่เกี่ยวข้อง", Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        'End If
        pdfDoc.Add(New Phrase("         เพศ :   ", Nfont))
        pdfDoc.Add(New Chunk(sex_name, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         อายุ :   ", Nfont))
        pdfDoc.Add(New Chunk(age_name, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ประสบการณ์ :   ", Nfont))
        If experience_name <> "อื่นๆ" Then
            pdfDoc.Add(New Chunk(experience_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherexperience, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         ความสามารถด้านการขับรถยนต์ :   ", Nfont))
        pdfDoc.Add(New Chunk(car, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถด้านการขับรถจักรยานยนต์ :   ", Nfont))
        pdfDoc.Add(New Chunk(motorcycle, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ใบอนุญาติขับขี่ :   ", Nfont))
        pdfDoc.Add(New Chunk(driverlicense, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถด้านคอมพิวเตอร์ :   ", Nfont))
        pdfDoc.Add(New Chunk(usecomputer, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถอื่นๆ :   ", Nfont))
        pdfDoc.Add(New Chunk(otherproperty, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      ชื่อผู้ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(userfullname, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      ตำแหน่ง :   ", Nfont))
        pdfDoc.Add(New Chunk(userposition, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      สังกัดที่ :   ", Nfont))
        pdfDoc.Add(New Chunk(usercompany1, Nfont))
        'pdfDoc.Add(New Chunk(usercompany2, Nfont))

        pdfDoc.Close()
        Conn.Close()
        Response.End()
    End Sub




Tag : .NET, Ms SQL Server 2008, Web (ASP.NET), VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-12-12 14:29:21 By : guim_ei View : 1056 Reply : 2
 

 

No. 1



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

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

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

Line ไหนผิดครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-12-12 16:27:15 By : webmaster
 


 

No. 2



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



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

69,79 ค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-12-12 16:31:24 By : guim_ei
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Error "Cannot a part of path" ทั้งๆที่ path ถูกแล้วจะทำอย่างไรคะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 04
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 อัตราราคา คลิกที่นี่