existe alguma maneira melhor de postar meus dados no mdb, pois tenho muitos valores para inserir (VB 2010 access DB 2003) - vb.net, visual-studio-2010

já que, como você pode ver abaixo, minha string "sql" é muito longa, como posso organizar essa string de inserção? obrigada!

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

Respostas:

Aqui estão alguns passos simples que você pode seguir para conseguir o que você precisa ...

1. Crie um DataClass para ex: GuestDataClass
2. Liste algumas propriedades (setters e getters).
3. Crie uma nova instância desta classe e defina suas propriedades.
4. Crie uma função e passe a nova instância para sua função.
5. Em seguida, você pode usar suas propriedades para salvar ou atualizar etc ... conforme necessário.

Isso não o tornará muito menor, mas mais organizado.

Aqui está um exemplo simples ...

 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

Então você pode usar isso como tal ...

 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