สอบถามการเข้าใช้โปรแกรมจาก hyperlink ด้านนอกโปรแกรมครับ
ขอภาพประกอบหน่อยครับ
Date :
2018-06-13 11:49:03
By :
mr.win
แก้ไขได้แล้วครับ แต่ผมอยากลดโค๊ดลง จะลดวิธีไหนได้บ้างครับ
รูปแรกเป็น error เกิดจากการกดลิ้งใน excel ครับขึ้นแบบนี้ตลอดลิ้งไม่ไป ตอนนี้แก้ไขได้แล้ว
อันนี้คือตัวปัญหาครับ ในหน้านี้มีทั้งหมด 6query ผมต้องทำการเซต execute แบบนี้ ทุก query ก่อนหน้านี้จะใช้
Set RS1 = OraDatabase.DbCreateDynaset(SQL1,0) ซึ่งคำสั่งชุดนี้ มีการต่อ db แบบหน้าต่อหน้า (ต่อตรงเลยกดลิ้ง query ทำงานทันที)
แต่ว่ามีการเปลี่ยน concept ของโปรแกรมครับ เลยใช้คำสั่งนี้ มีการต่อ db แบบแชร์การใช้งานครับ include file connect จากหน้า config แล้วเชื่อมต่อ เลยทำให้ไม่สามารถเปิดลิ้งได้ครับ
Set RS1 = ExecuteRecordsetOraBySelection(SQL1)
คำถามตอนนี้คือ ผมจะลดโค๊ดยังไงครับ เพราะมี 6 query ต้อง if session 6 ครั้ง (rs1,rs2...rs6) มันดูเยอะไปครับ
(ลืมบอก session มาจากหน้าล็อคอินนะครับ แต่ลิ้ง excel คือมันไม่ได้ล็อกอินครับ เข้ากลางทางเลย ลิ้งโปรแกรมเลย error ครับ)
ตัวอย่าง
Code (VB.NET)
<%
SQL1 = "SELECT PT_PART,PT_DESC1,PT_DESC2,PT_UM FROM qad.PT_MSTR WHERE Upper(PT_DOMAIN) = '1000' And Upper(PT_PART) = '" + Request("m_ld_part") + "' "
If session(_constr_) = "" then
Set RS1 = OraDatabase.DbCreateDynaset(SQL1,0)
End if
Set RS1 = ExecuteRecordsetOraBySelection(SQL1)
Set FL1 = RS1.Fields
%>
Date :
2018-06-13 13:40:26
By :
bankguszo
Load balance : Server 04