sql = "insert into 作业记录表(生产状况编号,状况发生时间,状况结束时间) values (" '" & Trim(Text1.Text) & "'," & Now() & ","& ssss & ")"
If DBExecuteSQL(sql) = -1 Then MsgBox Mssages
上面的text1.text是text1中输入的数字,now是当前时间,ssss是个全局变量...额~~~
If DBExecuteSQL(sql) = -1 Then MsgBox Mssages
上面的text1.text是text1中输入的数字,now是当前时间,ssss是个全局变量...额~~~
很讨厌vb的一堆 "" '' () , 的破符号....我用2楼的可以用,但是3楼的程序跟2楼比较貌似多出了一对"" 额~~~