|
SQL INSERT
หลังจากที่ได้เรียนรู้วิธีการจัดการตารางไปแล้วไม่ว่าจะเป็นการสร้าง,
เพิ่มฟิลด์, ลบฟิลด์ และลบตาราง
มาในส่วนนี้จะเป็นส่วนของการเพิ่มข้อมูลต่างๆ ลงไปในตารางที่ได้ทำการสร้างไว้โดยมีรูปแบบดังนี้
INSERT
INTO Tablename (field1,field2,field..n) VALUES ( 'Value1', 'Value2',
'Value..n' )"
|
|
โดยที่
- tablename หมายถึงชื่อของตารางที่จะทำการเพิ่มข้อมูล
- field
หมายถึงชื่อของฟิลด์ที่จะทำการเพิ่มข้อมูล
- value
หมายถึงค่าต่างๆที่จะเพิ่มให้กับฟิลด์นั้นๆ
ดังตัวอย่างนี้ test_insert.asp ผมจะทำการเพิ่มข้อมูลให้กับตาราง
Author ไป 10 Record โดยใช้คำสั่งในการวนลูปเพื่อเพิ่มค่าขึ้นไปจนครบ 10 ดังนี้
<%
Dim strID
Dim strUser
Dim strPass
Dim strEmail
Dim strLogin
Dim strJoinDate
Dim strLastDate
strID = CInt(1)
strUser ="user"
strEmail ="user"
Do
While strID < 11
strLogin = Int(40*Rnd+4)
strPass =Int(569823*Rnd+4)
strJoinDate =Now - strID
strLastDate = strJoinDate - (strID*Rnd+4)
strSQL
= "INSERT INTO Author ( "
strSQL
= strSQL & "Author_ID,"
strSQL
= strSQL & "Author_UserName,"
strSQL
= strSQL & "Author_Password,"
strSQL
= strSQL & "Author_Email,"
strSQL
= strSQL & "Author_JoinDate,"
strSQL
= strSQL & "Author_LastVisit,"
strSQL
= strSQL & "Author_Login"
strSQL
= strSQL & ") VALUES ("
strSQL
= strSQL & " '" & strID &"',"
strSQL
= strSQL & " '" & strUser &strID &" ', "
strSQL
= strSQL & " '" & strPass & strID &"',"
strSQL
= strSQL & " '" & strEmail & strID &"@user.com',"
strSQL
= strSQL & " '" & strJoinDate &"',"
strSQL
= strSQL & " '" & strLastDate &"',"
strSQL
= strSQL & " '" & strLogin &"'"
strSQL
= strSQL & ") "
adoCon.Execute(strSQL)
strID = strID + 1
Loop
'จากนั้นก็มาเพิ่มข้อมูลกันในตาราง Profile กันต่อด้วยคำสั่ง
INSERT ดังนี้
Dim strLastName
Dim strAge
Dim strBirth
Dim strYear
Dim strLocation
strID = 1
strLastName ="lastnameuser"
Do
While strID < 11
Randomize Timer
If CInt(6*Rnd) = "1" Then strLocation ="London"
If CInt(6*Rnd) = "2" Then strLocation ="NewYork"
If CInt(6*Rnd) = "3" Then strLocation ="Tokyo"
If CInt(6*Rnd) = "4" Then strLocation ="Jagata"
If CInt(6*Rnd) = "5" Then strLocation ="Hongkong"
If CInt(6*Rnd) = "0" Then strLocation ="Bangkok"
If strLocation = "" Then strLocation ="BangKok"
strAge = Int(30*Rnd+14)
strYear = Year(Now()) - strAge
strBirth=Month(now())&"/"&Day(now())&"/"&strYear
strSQL
= "INSERT INTO Profile ( "
strSQL
= strSQL & "Profile_ID,"
strSQL
= strSQL & "Author_ID,"
strSQL
= strSQL & "Profile_Name,"
strSQL
= strSQL & "Profile_LastName,"
strSQL
= strSQL & "Profile_Age,"
strSQL
= strSQL & "Profile_Birth,"
strSQL
= strSQL & "Profile_Location"
strSQL
= strSQL & ") VALUES ("
strSQL
= strSQL & " '" & strID &"',"
strSQL
= strSQL & " '" & strID &"',"
strSQL
= strSQL & " '" & strUser &strID &" ', "
strSQL
= strSQL & " '" & strLastName & strID &"',"
strSQL
= strSQL & " '" & strAge &"',"
strSQL
= strSQL & " '" & strBirth &"',"
strSQL
= strSQL & " '" & strLocation &"'"
strSQL
= strSQL & ") "
adoCon.Execute(strSQL)
strID = strID + 1
Loop
%>
|
 ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
|
|
| |
By : |
ThaiCreate.Com Team (บทความเป็นลิขสิทธิ์ของเว็บไทยครีเอทห้ามนำเผยแพร่ ณ เว็บไซต์อื่น ๆ) |
| |
Score Rating : |
 |
|
| |
Create/Update Date : |
2008-08-10 15:58:46 /
2012-05-30 21:07:31 |
| |
Download : |
No files |
|
|
Sponsored Links / Related |
|
|
|
|
|
|
Load balance : Server 01
