// ID คือฟิวส์รหัสอัตโนมัติครับ
เรียก Rs("strMaxValue") จะได้ค่า Max
Date :
1 มี.ค. 2548 11:10:25
By :
@W_IN
No. 2
Guest
ขอบคุณครับ
เดียวลองดูก่อนนะครับ
Date :
1 มี.ค. 2548 11:16:36
By :
ใหม่
No. 3
Guest
<%
Dim docNew,docId
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ="_
& Server.MapPath("data/mis_service.mdb")) _
& ";uid=admin;password=2805"
sql="select Max(doc_id) as strMaxValue From data_service"
set rs=Conn.execute(sql)
rs("strMaxValue")
docId=rs("strMaxValue")+1
%>
ใช้โค้ดด้านบนนี้ละครับมันขึ้นerror
Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'rs'
/web/mis/create_service.asp, line 22
Date :
1 มี.ค. 2548 11:25:59
By :
ใหม่
No. 4
Guest
ได้แล้วครับแต่ต้องเรียกดูจากค่า value ของtextbox
<%
Dim docNew,docId
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ="_
& Server.MapPath("data/mis_service.mdb")) _
& ";uid=admin;password=2805"
sql="select Max(doc_id) as strMaxValue From data_service"
set rs=Conn.execute(sql)
%>
Load balance : Server 05
