|
 |
| |
ช่วยดูให้หน่อยค่ะว่า IF ผิดตรงไหนทำไหมมันบันทึกไม่ได้ค่ะ หรือใส่ Next ผิดที่ค่ะ ถ้าผิดต้องใส่ยังไงค่ะ ลองแก้แล้ว งง จิง ค่ะ |
| |
 |
|
|
 |
 |
|
ช่วยดูให้หน่อยค่ะว่า IF ผิดตรงไหนทำไหมมันบันทึกไม่ได้ค่ะ หรือใส่ Next ผิดที่ค่ะ ถ้าผิดต้องใส่ยังไงค่ะ
ลองแก้แล้ว งง จิง ค่ะ
Code (ASP)
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;Uname=THAISINTO\administrator;PWD=;"
strSQL = ""
strSQL = strSQL &"INSERT INTO QUOTATION "
strSQL = strSQL &"(quote_no,quote_date,prepare,incharge,currency,customer_ID,add_ID,cust_contact,cust_tel,cust_fax,quote_title,refmodel,model,proj_code_main,rev,remark,delivery2,delivery,payterm,proj_code_sub) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("date")&"','"&Request.Form("prepare")&"','"&Request.Form("incharge")&"','"&Request.Form("Currency")&"','"&Request.Form("ddlGeo")&"','"&Request.Form("ddlProvince")&"' "
strSQL = strSQL &",'"&Request.Form("Contact")&"','"&Request.Form("Tel")&"', '"&Request.Form("Fax")&"','"&Request.Form("title")&"','"&Request.Form("refmodel")&"','"&Request.Form("model")&"','"&Request.Form("Projcodemain")&"','"&Request.Form("rev")&"','"&Request.Form("remark")&"','"&Request.Form("delivery2")&"', '"&Request.Form("delivery")&"','"&Request.Form("payterm")&"','"&Request.Form("Projcodesub")&"') "
IF Request.Form("No") <> "" Then
strSQL = strSQL &"INSERT INTO QUOTATION_DETAIL "
strSQL = strSQL &"(quote_no,no,part_name,qty,qty_unit,supplier,price,cost_baht,cost_yen,rate,unit_cost_thb,cost_total,price_total,profit,cost_ratio,pr_request,buhinkun,royalty,stm_part_no) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("No")&"','"&Request.Form("Description")&"','"&Request.Form("Qty")&"','"&Request.Form("Unit")&"','"&Request.Form("Suplier")&"','"&Request.Form("Quote")&"' "
strSQL = strSQL &",'"&Request.Form("CostTHBInput")&"','"&Request.Form("CostYEN")&"', '"&Request.Form("rate")&"','"&Request.Form("CostTHBConvert")&"','"&Request.Form("CostTOTEL")&"','"&Request.Form("QuoteTOTEL")&"','"&Request.Form("Profit")&"','"&Request.Form("Ratio")&"','"&Request.Form("PR.No.")&"','"&Request.Form("Buhinkun")&"', '"&Request.Form("Royalty")&"','"&Request.Form("STMPartNo ")&"') "
Set objExec = Conn.Execute(strSQL)
End IF
IF Request.Form("No2") <> "" Then
strSQL = strSQL &"INSERT INTO QUOTATION_DETAIL "
strSQL = strSQL &"(quote_no,no,part_name,qty,qty_unit,supplier,price,cost_baht,cost_yen,rate,unit_cost_thb,cost_total,price_total,profit,cost_ratio,pr_request,buhinkun,royalty,stm_part_no) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("No2")&"','"&Request.Form("Description2")&"','"&Request.Form("Qty2")&"','"&Request.Form("Unit2")&"','"&Request.Form("Suplier2")&"','"&Request.Form("Quote2")&"' "
strSQL = strSQL &",'"&Request.Form("CostTHBInput2")&"','"&Request.Form("CostYEN2")&"', '"&Request.Form("rate2")&"','"&Request.Form("CostTHBConvert2")&"','"&Request.Form("CostTOTEL2")&"','"&Request.Form("QuoteTOTEL2")&"','"&Request.Form("Profit2")&"','"&Request.Form("Ratio2")&"','"&Request.Form("PR.No.2")&"','"&Request.Form("Buhinkun2")&"', '"&Request.Form("Royalty2")&"','"&Request.Form("STMPartNo2")&"') "
Set objExec = Conn.Execute(strSQL)
Next
End IF
Set objRec = Conn.Execute(strSQL)
If Err.Number = 0 Then
response.redirect("viewallquotation.asp")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Tag : ASP, Ms SQL Server 2005
|
ประวัติการแก้ไข
2011-05-11 16:47:06
|
 |
 |
 |
 |
| Date :
2011-05-11 16:09:07 |
By :
gusjang |
View :
1241 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
กระทู้ก่อนหน้านี้มีตัวอย่างให้เป็นอย่างดีครับ ลองอ่านและเขียนตามนั้น ไม่ยากเกินความพยายามครับ 
|
| |
|
|
| |
| Date :
2011-05-11 17:18:42 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
IF Request.Form("No2") <> "" Then
strSQL = strSQL &"INSERT INTO QUOTATION_DETAIL "
strSQL = strSQL &"(quote_no,no,part_name,qty,qty_unit,supplier,price,cost_baht,cost_yen,rate,unit_cost_thb,cost_total,price_total,profit,cost_ratio,pr_request,buhinkun,royalty,stm_part_no) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("No2")&"','"&Request.Form("Description2")&"','"&Request.Form("Qty2")&"','"&Request.Form("Unit2")&"','"&Request.Form("Suplier2")&"','"&Request.Form("Quote2")&"' "
strSQL = strSQL &",'"&Request.Form("CostTHBInput2")&"','"&Request.Form("CostYEN2")&"', '"&Request.Form("rate2")&"','"&Request.Form("CostTHBConvert2")&"','"&Request.Form("CostTOTEL2")&"','"&Request.Form("QuoteTOTEL2")&"','"&Request.Form("Profit2")&"','"&Request.Form("Ratio2")&"','"&Request.Form("PR.No.2")&"','"&Request.Form("Buhinkun2")&"', '"&Request.Form("Royalty2")&"','"&Request.Form("STMPartNo2")&"') "
Set objExec = Conn.Execute(strSQL)
Next
End IF
มีคำว่า
Next
End IF
เอาคำว่า Next ออกครับ
|
| |
|
|
| |
| Date :
2011-05-16 12:55:50 |
By :
thep |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 05
|
