有没有更好的方法将我的数据发布到 MDB，因为我有太多的值要插入(VB 2010 访问 DB 2003)

Question

既然你在下面看到的，我的'sql'字符串太长了，我该如何组织这个插入字符串？谢谢！

Try
        conn.Open()
        sql = "SELECT * FROM guests WHERE folio='" & folionum_txtfield.Text & "' AND fname = '" & Fname_txtfield.Text & "'"
        Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql, conn)
        Dim sqlRead As System.Data.OleDb.OleDbDataReader = sqlCom.ExecuteReader()
        If Not sqlRead.HasRows Then
            sql = "INSERT INTO guests values (" & folionum & "," & lname & "," & fname & "," & address & "," & lname & "," & country & "," & company & "," & idtype & "," & otherID & "," & idtype & "," & otherID & "," & idnum & "," & otherID & "," & vehicle & "," & vmodel & "," & pnum & "," & rooomnum & "," & datechckin & "," & datechckout & "," & rmtype & numdays & "," & numadults & "," & numchild & "," & notes)
        End If
    Catch ex As Exception

Answer 1

这里有一些简单的步骤，你可以按照这些步骤来实现你需要的东西......

创建一个数据类
1. ，例如：来宾数据类
2. 列出一些属性（setters & getters）。
3. 创建此类的新实例并设置属性。
4. 创建一个函数并将新实例传递给您的函数。
5. 然后，您可以根据需要使用您的属性来保存或更新等。

这不会使它变得更小，但更有条理。

这里有一个简单的例子...

 Public Class GuestDataClass 'This would be your new class for your properties...
 #Region "Variables" 'Add your variables here'
   Private strFirstName As String = String.Empty
   Private strLastName As String = String.Empty
 #End Region
 #Region "Properties" 'Add some properties'
 Public Property FirstName() As String
    Get
        Return strFirstName
    End Get
    Set(ByVal value As String)
        strFirstName = value
    End Set
 End Property
 Public Property LastName() As String
    Get
        Return strLastName
    End Get
    Set(ByVal value As String)
        strLastName = value
    End Set
 End Property
 #End Region
 #Region "Methods"
'Inserts new guest'
 Public Shared Function SaveGuest(ByVal oGuest As GuestDataClass) As Boolean
    'Use your properties for the save routine here... just an example...
    'oGuest.FirstName
    'oGuest.LastName 
    Return True
 End Function
 #End Region
 End Class

然后你可以这样使用它...

 Public Class Form1
 Private pData As GuestDataClass 'Set a variable in your class you can use..
 Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    'Set this variable of your data class...
    pData = New GuestDataClass()
    'Set our properties...
    pData.FirstName = "Bobby"
    pData.LastName = "Walters"
    'Save the data...
    If GuestDataClass.SaveGuest(pData) Then
        MessageBox.Show("Saved!")
    Else
        MessageBox.Show("Error!")
    End If

End Sub
End Class