พยายามจะบันทึกค่าเข้าไปสองตาราง ตารางแรกเข้าได้แต่ตารางที่สองเข้าไม่ได้ค่ะ จะใช้ค่าหนึ่งตรงกัน
หลังจากที่ค้นหาและลองทำหลาย ๆ วิธีในนี้(และจาก stackoverflow) แล้ว ทั้ง scope_identity,ident_current,select max(id)
ก็ยังทำไม่ได้เลยค่ะ
เริ่มต้นก็คือ จะเพิ่มข้อมูลเข้าไปที่ตารางแรก โดย PK ของตารางนี้เป็น int และ ai ค่ะ
Code (VB.NET)
Try
gsql = "insert into member (MemIn,MemName,MemAge,MemTypeId,MemStatusId,MemLevelId,MemTel,Addno,SubdistrictNo,SubdistrictName,District,Province,JoinDate,Gender,Subdistrict,IncomeStatusId,Mempic) values ("
gsql += "'" & MemIn.Text & "',"
gsql += "'" & MemName.Text & "',"
gsql += "'" & MemAge.Text & "',"
gsql += "'" & MemType.SelectedValue & "',"
gsql += "'" & MemStatus.SelectedValue & "',"
gsql += "'" & MemLevel.SelectedValue & "',"
gsql += "'" & MemTel.Text & "',"
gsql += "'" & AddNo.Text & "',"
gsql += "'" & SubdistrictNo.Text & "',"
gsql += "'" & SubdistrictName.SelectedItem & "',"
gsql += "'" & District.SelectedItem & "',"
gsql += "'" & Province.SelectedItem & "',"
gsql += "'" & DateTimePicker1.Value.ToString("s") & "',"
gsql += "'" & gender & "',"
gsql += "'" & Subdistrict.SelectedItem & "',"
gsql += "'" & IncomeStatus.SelectedValue & "',"
gsql += "'" & MemPic.Text & "')"
With cmd
.CommandType = CommandType.Text
.CommandText = gsql
.Connection = con
.ExecuteNonQuery()
End With
ตรงนี้ เพิ่มผ่าน ไม่มีปัญหาอะไรค่ะ แต่เมื่อจะเพิ่มตารางที่สอง โดย ค่าที่จะเพิ่มเข้าไปในตาราง คือ ค่า MemId ที่เพิ่มเข้าไปด้านบน
โดยลองทั้ง 3 วิธีแล้ว แต่เกิดปัญหานี้ขึ้นค่ะ
ตามโค๊ดด้านล่าง
Code (VB.NET)
Try
gsql = "insert into beneficiary (MemId,B1In,B1Name,B1Tel,B1Re,B2In,B2Name,B2Tel,B2Re,B3In,B3Name,B3Tel,B3Re) values ("
gsql += "'" & "select max(MemId) from member" & "',"
gsql += "'" & B1In.Text & "',"
gsql += "'" & B1Name.Text & "',"
gsql += "'" & B1Tel.Text & "',"
gsql += "'" & B1Re.SelectedItem & "',"
gsql += "'" & B2In.Text & "',"
gsql += "'" & B2Name.Text & "',"
gsql += "'" & B2Tel.Text & "',"
gsql += "'" & B2Re.SelectedItem & "',"
gsql += "'" & B3In.Text & "',"
gsql += "'" & B3Name.Text & "',"
gsql += "'" & B3Tel.Text & "',"
gsql += "'" & B3Re.SelectedItem & "')"
With cmd
.CommandType = CommandType.Text
.CommandText = gsql
.Connection = con
.ExecuteNonQuery()
End With
Catch ex As System.Data.SqlClient.SqlException
MsgBox(ex.Message, , "Sql Exception")
End Try
เราต้องแก้ไขตรงไหนคะ โดยหลักก็คือ เราจะเพิ่มข้อมูลเข้าไปที่ตาราง member ก่อน แล้วเพิ่มข้อมูลเข้าตาราง beneficiary
โดยที่ค่า MemId ตรงกัน พยายามมาหลายวิธีแล้วรบกวนด้วยค่ะ ขอบคุณค่ะTag : .NET, Ms SQL Server 2008, VS 2010 (.NET 4.x)
Date :
2015-09-02 07:47:46
By :
newbies
View :
867
Reply :
6
Code
"insert into member (MemIn,MemName,MemAge,MemTypeId,MemStatusId,MemLevelId,MemTel,Addno,SubdistrictNo,SubdistrictName,District,Province,JoinDate,Gender,Subdistrict,IncomeStatusId,Mempic) values ("
select max(MemId) from member
จากข้อมูลข้างต้น member ไม่มี MemId นี่ครับ
Date :
2015-09-02 08:17:48
By :
lamaka.tor
gsql += "'" & "select max(MemId) from member" & "'," ตรงบรรทัดนี้ครับ เอา ' ' ออกครับ จะได้เป็น
gsql += "" & "select max(MemId) from member" & ","
เหตุผลเพราะว่า Column เป็น Int ไม่ควรจะเอา '' ใส่ให้คับ ใช้เฉพาะ string เท่านั้น และ Column นี้ต้องไม่กำหนดเป็น AI ด้วยนะครับ เฉพาะตารางนี้นะ ตาราง member ไม่เกี่ยว
Date :
2015-09-02 08:55:58
By :
Freedom
ไม่ยากครับ วิธีหา Error ตัวนี้ เดาง่ายนิดเดียง เกิดจากคำสั่่ง SQL เขียนผิดครับ ให้ลองทำตามขั้นตอนนี้ครับ
Debug โปรแกรม แล้ว Copy คำสั่ง gsql ไปรันใน SQL ดูครับ หรือ ถ้าไม่ได้จริงๆ Copy คำสั่งทั้งหมดที่ DEbug มาแปะครับ เด๋วจะดูให้
Date :
2015-09-02 16:04:55
By :
Freedom
ได้แล้วค่ะ ลองใช้วิธีนี้แทน
Code (VB.NET)
gsql = "select max(MemId) from member"
cmd = New System.Data.SqlClient.SqlCommand
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = gsql
myscalar = cmd.ExecuteScalar
MemId.Text = myscalar.ToString
'เรียกมาแสดงที่ textbox ก่อนแล้วค่อยเพิ่ม
gsql = "insert into beneficiary values ("
gsql += "'" & MemId.Text & "',"
gsql += "'" & B1In.Text & "',"
gsql += "'" & B1Name.Text & "',"
gsql += "'" & B1Tel.Text & "',"
gsql += "'" & B1Re.Text & "',"
gsql += "'" & B2In.Text & "',"
gsql += "'" & B2Name.Text & "',"
gsql += "'" & B2Tel.Text & "',"
gsql += "'" & B2Re.Text & "',"
gsql += "'" & B3In.Text & "',"
gsql += "'" & B3Name.Text & "',"
gsql += "'" & B3Tel.Text & "',"
gsql += "'" & B3Re.Text & "')"
With cmd
.CommandType = CommandType.Text
.CommandText = gsql
.Connection = con
.ExecuteNonQuery()
End With
ขอบคุณ คุณ Freedom และคุณ TOR_CHEMISTRY นะคะ
Date :
2015-09-02 16:27:18
By :
newbies
Load balance : Server 04