すべてのリストボックス項目をカンマ（ "、"）を区切り文字としてデータベースに保存する方法

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)