我有一个用于培训管理的旧 VB 应用程序。它是用 VB6 编写的,数据库是 MsAccess。
当我使用该应用程序时,在保存培训课程时,所有记录都保存在以前的记录之间(不按顺序)。它没有添加到最后一行。该应用程序还从数据库中获取数据并将其显示在网格视图中。所以最终的显示是未排序的。就像我使用表单添加的最新数据一样,显示在中间行的某个位置。
当我看到数据库表时,所有新数据都添加到中间行中。
这里我将展示代码:
sql = "INSERT INTO TrAssignment (BatchID,Category,CourseNumber,CourseTitle,FromDate,ToDate,Duration,Location, Trainer, FixedCost,DefaultStudentCost) VALUES ('" & CStr(txtBatchid.Text) & "','" & CStr(cmbCrscategory) & "','" & CStr(sCourNo) & "', '" & CStr(sCourTitle) & "','" & SchfromDTPick.Value & "','" & SchtoDTPicker.Value & "','" & CStr(txtSchduration.Text) & "','" & cmbLocation & "','" & CStr(cmbTrainer) & "','" & CStr(Trim(txtFixedcost.Text)) & "','" & CStr(Trim(txtDefault.Text)) & "')"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
而且表单中的日期格式类似于 dd-mm-yyyy,对于某些记录,日期会以这种确切的格式保存。但对于某些人来说,日期格式类似于 d/m/yyyy。
只是他们从日期控件中获取日期,代码中没有格式化。