01.Dim connection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
02. Dim conn As New SqlConnection(connection)
03. conn.Open()
04. Dim comm As String = "INSERT INTO GUES(GUES_NAME,GNDR,NATN,IDEN,E_MAIL,ADDR,TELP_NO)"
05. comm &= "VALUES('" & TextBox1.Text & "',"
06. comm &= "'" & TextBox2.Text & "',"
07. comm &= "'" & TextBox3.Text & "',"
08. comm &= "'" & TextBox4.Text & "',"
09. comm &= "'" & TextBox5.Text & "',"
10. comm &= "'" & TextBox6.Text & "',"
11. comm &= "'" & TextBox7.Text & "')"
12. Dim command As New SqlCommand(comm, conn)
13. command.ExecuteNonQuery()
14.
15. comm = "INSERT INTO RESV(GUES_ID,ROOM_ID,DATE_FROM,DATE_TO,RESV_STTS,DATE_RESV)"
16. comm &= "VALUES('" & ??????? & "',"
17. comm &= "'" & lblSeleceRoom.Text & "',"
18. comm &= "Convert(DateTime, '" & lblSeleceDate.Text & "', 103),"
19. comm &= "Convert(DateTime, '" & lblSeleceDate1.Text & "', 103),"
20. comm &= "'A',"
21. comm &= "'" & DateNow & "')"
22. Dim acommand As New SqlCommand(comm, conn)
23. acommand.ExecuteNonQuery()
24. conn.Close()
25. End Sub
26.End Class
