Dim name As String = TextBox1.Text
Dim phone As String = TextBox2.Text
Dim time1 As Date = DateTimePicker1.Value.Date.ToString
Dim school As String = TextBox3.Text
Dim beizhu As String = TextBox4.Text
Dim acc As New OleDbConnection
acc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\dataceshi.mdb"
acc.Open()
MsgBox(time1)
Dim insert As New OleDbCommand("insert into 学员信息(学员姓名,学员电话,入学时间,就读学校,备注) values ('" & name & "'," & phone & ", " & time1 & ",'" & school & "','" & beizhu & "')", acc)
insert.ExecuteNonQuery()
acc.Close()
为什么access插入的时间是1905-06-14,程序里弹出time1的时间是2021-04-25,
应该是选择的日期没起作用,要用鼠标选择确认才起作用的。
您好,我是有问必答小助手,你的问题已经有小伙伴为您解答了问题,您看下是否解决了您的问题,可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案,可以点击【采纳】按钮,给回答的小伙伴一些鼓励哦~~
ps:问答VIP仅需29元,即可享受5次/月 有问必答服务,了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632
非常感谢您使用有问必答服务,为了后续更快速的帮您解决问题,现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中,希望能得到您的支持与协助!
速戳参与调研>>>https://t.csdnimg.cn/Kf0y