 |
|
มี2ตารางดังนี้ครับ
GUES(GUES_ID,GUES_NAME,GNDR,NATN,IDEN,E_MAIL,ADDR,TELP_NO)
RESV(RESV_ID,GUES_ID,ROOM_ID,DATE_FROM,DATE_TO,RESV_STTS,DATE_RESV)
มีปํญหาตรงนี้ครับ GUES_ID(PK) ผมตั้งเป็น auto number ไว้บันทึกในตาราง GUES ได้ไม่มีปัญหา
แต่ในตารางRESV GUES_ID(FK) ไม่รู้จะบันทึกเป็นค่าเดียวกันได้ยังไง
Code (VB.NET)
Dim connection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
Dim conn As New SqlConnection(connection)
conn.Open()
Dim comm As String = "INSERT INTO GUES(GUES_NAME,GNDR,NATN,IDEN,E_MAIL,ADDR,TELP_NO)"
comm &= "VALUES('" & TextBox1.Text & "',"
comm &= "'" & TextBox2.Text & "',"
comm &= "'" & TextBox3.Text & "',"
comm &= "'" & TextBox4.Text & "',"
comm &= "'" & TextBox5.Text & "',"
comm &= "'" & TextBox6.Text & "',"
comm &= "'" & TextBox7.Text & "')"
Dim command As New SqlCommand(comm, conn)
command.ExecuteNonQuery()
comm = "INSERT INTO RESV(GUES_ID,ROOM_ID,DATE_FROM,DATE_TO,RESV_STTS,DATE_RESV)"
comm &= "VALUES('" & ??????? & "',"
comm &= "'" & lblSeleceRoom.Text & "',"
comm &= "Convert(DateTime, '" & lblSeleceDate.Text & "', 103),"
comm &= "Convert(DateTime, '" & lblSeleceDate1.Text & "', 103),"
comm &= "'A',"
comm &= "'" & DateNow & "')"
Dim acommand As New SqlCommand(comm, conn)
acommand.ExecuteNonQuery()
conn.Close()
End Sub
End Class
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-01-22 00:59:55 |
By :
mubin |
View :
2915 |
Reply :
5 |
|
 |
 |
 |
 |
|
|
|
|
 |
