Question

아래에서 볼 수 있듯이 내 'sql'문자열이 너무 길어서 어떻게이 인서트를 구성 할 수 있습니까? 끈? 감사합니다. 일부 속성 (세터 & 게터를) GuestDataClass

목록 :

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

여기 당신이 필요로하는 것이 무엇 acheive하기 위해 수행 할 수있는 몇 가지 간단한 단계 ...

1. 이 예에 대한 DataClass 만들기입니다.
2. 이 클래스의 새 인스턴스를 만들고 속성을 설정하십시오.
3. 함수를 만들고 함수에 새 인스턴스를 전달하십시오.
4. 그런 다음 속성을 사용하여 필요에 따라 저장하거나 업데이트 할 수 있습니다.

이렇게하면 훨씬 작지만 조직적으로 변하지 않을 것입니다.

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