插入记录
strsql = "Insert Into 探亲票(工作证号,起点,终点,开始时间,截止时间,开票时间,使用人)values ('" & txtnumber.Text & "','" & txtfirstaddress.Text & "'," & _"'" & txtlastaddress.Text & "','" & txtfirstdate.Text & "'," & txtlastdate.Text & ",'" & txtcurdate.Text & "','" & txtnames.Text & "')"
Try
SqlConnection1.Open()
= CommandType.Text
= strsql
SqlCommand1.ExecuteNonQuery()
Catch
MessageBox.Show("插入不成功")
End Try
SqlConnection1.Close()