czy istnieje lepszy sposób na przesłanie moich danych do mdb, ponieważ mam zbyt wiele wartości do wstawienia (VB 2010 access DB 2003) - vb.net, visual-studio-2010, insert, oledb, ms-access-2003

ponieważ jak widać poniżej, mój ciąg „sql” jest po prostu za długi, jak mogę zorganizować ten ciąg wstawiania? Dziękuję Ci!

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

Odpowiedzi:

Oto kilka prostych kroków, które możesz wykonać, aby osiągnąć to, czego potrzebujesz ...

1. Utwórz klasę danych dla ex: GuestDataClass
2. Wymień niektóre właściwości (ustawiające i pobierające).
3. Utwórz nową instancję tej klasy i ustaw swoje właściwości.
4. Utwórz funkcję i przekaż nową instancję do swojej funkcji.
5. Następnie możesz użyć swoich właściwości, aby zapisać lub zaktualizować itp. W razie potrzeby.

To nie sprawi, że będzie dużo mniejszy, ale bardziej zorganizowany.

Oto prosty przykład ...

 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

Następnie możesz użyć tego jako takiego ...

 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