database - 在 vb6 中实现简单数据库选择/更新程序的更好方法是什么？

Question

好的，这是大黄——我正在开发一个用 VB6 编写的应用程序(我在其中的经验不到 1 个月)，该应用程序的要点是它是一个简单的数据库选择/更新类型的应用程序.

基本上它所做的就是您可以搜索员工(从数据库中选择记录)，并编辑他们的数据(并更新数据库)。

好吧，在我继承的代码库中完成这项工作的方式是通过大量超大的 SQL 查询字符串。这是我正在谈论的一个并非真正编造但已更改为保护无辜者的示例:

'Post Transaction to Database
If actionToDo = "Change" Then
    Set coffeeTableRS = jawsTheSQL.Execute("Update coffeeTable set Name = '" & txtName.text & "', OriginalName = '" & MOriginalName & "', Prefix = '" & txtPrefix.text & "', FName = '" & txtFName.text & "', MName = '" & txtMName.text & "', LName = '" & txtLName.text & "', Suffix = '" & txtSuffix.text & "', Relationship = '" & txtRelationship.text & "', " & _
      "Addr1 = '" & txtAddr1.text & "', Addr2 = '" & txtAddr2.text & "', StreetNumber = '" & txtStreetNumber.text & "', StreetName = '" & txtStreetName.text & "', City = '" & cboCity.text & "', State = '" & ChkNull(cboState.text) & "', ZipCode = '" & ChkNull(txtZipCode.text) & "', ZipCode2 = '" & ChkNull(txtZipCode2.text) & "', " & _
      "Birthdate = " & MBirthdate & ", SSN = '" & Trim(txtSSN1.text & txtSSN2.text & txtSSN3.text) & "', OccuCode = '" & currentOccupationCode & "', OccuValue = " & currentOccupationValue & ", ChangeDate = '" & Format(MDate, "yyyy/mm/dd hh:mm:ss") & "', Active = '" & IIf(chkActive.Value = vbChecked, "", "I") & "'" & _          
      " where IDnumber = '" & txtIDNumber.text & "'")   

我们可以执行的每个操作(添加、编辑、删除等)都有其中之一

换句话说，当我被要求向处理所有这些的主窗体添加一个简单的复选框控件时，我不得不将其添加到大约 15 个不同的位置。我必须将它添加到所有这些查询中，以确保它在记录检索时被检索并在记录集上设置，以及设置标志以在复选框状态与记录状态不匹配时将数据与“真”进行比较.

所以我正在考虑所有这些想法“GOT 有更好/更容易/更易于维护的方法来做到这一点。”

我对 VB6 几乎一无所知，但是有没有一种方法可以制作一个简单的选择/更新数据库应用程序以及一个漂亮的 GUI(即我们不能只给客户端一个可编辑的 DataGrid 并说“给你，它有你需要的一切”)，其中控件自动绑定(bind)到数据库(我猜是通过同名的字段)，并且更新也可以很容易地处理(因为它基本上只是“用值填充控件名称 foo名为“foo”的数据库字段？

执行此类操作的 VB6 最佳实践方法是什么？使用 C# 这样的语言是否更容易完成？

提前致谢

编辑:根据给出的答案更新规范

• 必须是独立的.exe

Answer 1

我会转向更新的技术栈；但是嘿，如果那是不可能的……因为看起来您已经在使用 ADO，所以您希望使用断开连接的记录集。

通常您要做的是打开带有连接的记录集，将记录集连接设置为空。编辑记录集(它可以挂起任何时间长度)然后获得一个新连接并将记录集连接设置到它。然后你更新批处理。

这是一个很好的起点:http://www.devguru.com/features/tutorials/DisconnectedRecordsets/tutDisconnRS.asp

编辑:我很确定您可以将该记录集绑定(bind)到数据网格，但是嘿，这已经有一段时间了:)