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