한 줄에 구분 기호로 쉼표 (",")를 사용하여 데이터베이스에 액세스하기 위해 모든 목록 상자 항목을 저장하는 방법

Question

환자의 병력을 데이터베이스에 저장하는 vb.net 응용 프로그램을 만들려고합니다. 하지만 난 어떻게 모든 목록 상자 항목을 단일 행 (구분 기호로 쉼표 사용) 저장할거야 걸린.
이 코드를 사용하여 시도하지만 마지막 기록을 저장합니다

Dim diagnosis As String 
     For i As Integer = 0 To txtDiagnosis.Items.Count - 1 
      diagnosis = String.Concat(txtDiagnosis.Items(i), ",") 
     Next 
      'Insert Query Here 

나는 또한 이후에 쉼표를하지 않는 마지막 레코드를 원했다. 미리 감사드립니다

Answer 1

String.Join 기능을 사용하십시오. String.Join(Of T) Method

Dim diagnosis As String = String.Join(", ", txtDiagnosis.Items) 

당신은 명시 적으로 객체

Dim allDiagnosis = txtDiagnosis.Items. 
           Cast(Of Object)(). 
           Select(Function(item) item.ToString()) 
Dim diagnosis As String = String.Join(", ", allDiagnosis)