ช่วยแก้ไขให้ด้วยตอนนี้งานเร่งมากครับ ผมมีฐานข้อมูลอยู่ 2 ตัว คือ StudentCenter (ข้อมูลนักศึกษา)
ผมมีฐานข้อมูลอยู่ 2 ตัว คือ StudentCenter(ข้อมูลนักศึกษา) กับ Affaris(ข้อมูลทุน) ต้องการให้แสดงข้อมูลทั้งหมดของผู้ได้รับทุนโดยดึงข้อมูลนักศึกษามาแสดงด้วย โค้ดที่ผมทำมีดังนี้
*****************************************************************************************************
<!--#include file="../Database/connectDB.asp" -->
<!--#include file="../Database/connectStudentCenterDB.asp" -->
<%
SQL="SELECT*FROM QrStudent"
Set RSFind =Server.CreateObject("ADODB.Recordset")
RSFind.Open SQL,Conn1,1,3
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="780" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="767" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#999999" bgcolor="#999999">
<tr bgcolor="#999999">
<td width="68" height="25"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">รหัสนักศึกษา</font></font></strong></div></td>
<td width="98"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">เลขที่บัตรประชาชน</font></font></strong></div></td>
<td width="92"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">ชื่อ-สกุล</font></font></strong></div></td>
<td width="68"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">สาขา</font></font></strong></div></td>
<td width="38"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">ชั้นปี</font></font></strong></div></td>
<td width="73"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">ได้รับทุน</font></font></strong></div></td>
<td width="50"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">จำนวน</font></font></strong></div></td>
<td width="74"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">ชื่อธนาคาร</font></font></strong></div></td>
<td width="82"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">สาขาธนาคาร</font></font></strong></div></td>
<td width="73"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><font color="#000000">เลขที่บัญชี</font></font></strong></div></td>
</tr>
<%'While Not RSFind.EOF
SQL="SELECT * FROM QrScholaship_Detail "
Set RS_Sch=Server.CreateObject("ADODB.Recordset")
RS_Sch.Open SQL,Conn,1,3
While Not RS_Sch.EOF
If Not RS_Sch.Eof Then
%>
<tr bgcolor="#FFFFFF">
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RS_Sch("StudentID") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RSFind("PersonID") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RSFind("Name") %> <%=RSFind("LastName") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RSFind("Major_Thai_Name") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RSFind("Class") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RS_Sch("Asd_name") %></font></td>
<td><div align="center"><font face="MS Sans Serif, Tahoma, sans-serif"><font size="1"><%=RS_Sch("As_money") %></font></font></div></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RS_Sch("BankName") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RS_Sch("Branch_BankID") %></font></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif"><%=RS_Sch("As_List") %></font></td>
<%
End If
RS_Sch.MoveNext
Wend
RS_Sch.Close
RSFind.Close
Conn.Close
Conn1.Close
Set Rs_Sch=Nothing
Set RsFind=Nothing
Set Conn=Nothing
Set Conn1=Nothing
%>
******************************************************************************************************
ดึงข้อมูลมาได้แล้วแต่ข้อมูลนักศึกษารหัส,ชือ,สกุล,สาขา ซ้ำกันไม่เปลี่ยนครับแต่ข้อมูลทุนเปลี่ยน
ข้อมูลนักศึกษาจะเหมือนกันหมดทุก Record ทั้ง ๆ ที่ในฐานข้อมูลไม่เหมือนกัน
*******************************************************************************************************
กรุณาช่วยตอบคำถามนี้ด้วยครับ
Tag : - - - -
Date :
17 มี.ค. 2549 11:45:58
By :
AkeInta
View :
2001
Reply :
6
ต้องกำหนด pm key ให้กับทั้ง 2 ฐานข้อมูล เพื่อที่จะสามารถเชื่อมถึงกันได้ครับ
ถ้าคุณให้ฐานข้อมูลทุน หรือกองทุน เป็นหลัก คุณจะต้องกำหนดให้ฐานข้อมูลนักศึกษาเก็บรหัสทุนไว้ด้วย
เพื่อที่จะเชื่อมโยงกันได้ครับผม
Date :
17 มี.ค. 2549 15:28:53
By :
sysmon
สรุปคือ คุณมีปัญหาเรื่องการออกแบบฐานข้อมูลที่ยังไม่ครอบคลุม ครับ ลองเพิ่ม field ที่ผมแนะนำนะครับแล้ว
Date :
17 มี.ค. 2549 15:32:18
By :
sysmon
จากนั้นให้เพิ่ม code นี้ไว้ต่อจากบรรทัด If Not RS_Sch.Eof Then เพื่อเป็นการเชื่อมโยงให้ข้อมูลทุนเปลี่ยนไปตามข้อมูลของนักศึกษา
SQL="SELECT * FROM ชื่อตารางทุน where รหัสทุน = รหัสทุนที่อยู่ในฐานข้อมูลนักศึกษา "
Set RS_Sch2=Server.CreateObject("ADODB.Recordset")
RS_Sch2.Open SQL,Conn,1,3
จากนั้นเพิ่ม code ข้างล่างนี้ไปไว้ต่อจากบรรทัดRS_Sch.MoveNext
Rs_Sch2.MoveNext เพื่อทำการเลื่อน Record ถัดไปตามข้อมูลนักศึกษา
Date :
17 มี.ค. 2549 15:37:50
By :
sysmon
ขออภัยครับ จากความเห็นที่ 3 อย่าลืมประกาศค่าตัวแปรไว้ด้วยว่า รหัสทุนที่อยู่ในฐานข้อมูลนักศึกษา = RS_Sch("ฟิลด์ที่ผมแนะนำให้เพิ่ม") แทรกบัดทัดนี้ไว้ก่อนคำสั่ง SQL="SELECT * FROM ชื่อตารางทุน where รหัสทุน = รหัสทุนที่อยู่ในฐานข้อมูลนักศึกษา "
Date :
17 มี.ค. 2549 15:40:48
By :
sysmon
CD 30 เพื่อศึกษาและวิจัย เกม ซอฟร์แวร์ แผ่นสอน และอื่น ๆ อีกมากมายเชิญชมที่ http://www.cookies.such.info
Date :
20 มี.ค. 2549 02:55:43
By :
dos
CD 30 เพื่อศึกษาและวิจัย เกม ซอฟร์แวร์ แผ่นสอน และอื่น ๆ อีกมากมายเชิญชมที่ http://www.cookies.such.info
Date :
20 มี.ค. 2549 02:55:53
By :
dos
Load balance : Server 02