Ошибка записи в базу данных SQL

Question

Я хочу записать из списка со следующим кодом в базу данных sql. Но это дает мне ошибку. Вот мой код. Я показываю строку ошибки следующий код.

Public Class Form1

Dim baglanti As New SqlClient.SqlConnection("Data Source=localhost\SQLEXPRESS;Initial Catalog=dedektor;Persist Security Info=True;User ID=test;Password=test1")
Dim adaptor As SqlClient.SqlDataAdapter
Dim kayit As New DataSet
Dim datakayit As DataRow

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim a As Integer
    For a = TextBox1.Text To TextBox2.Text
        ListBox1.Items.Add(a)
    Next

      Error line -->  adaptor = New SqlClient.SqlDataAdapter("INSERT INTO Table_2([po])VALUES('" + ListBox1.Items.Add(a) + "') ", baglanti)
        adaptor.Fill(kayit, "table_2")

   End Sub

Спасибо,

Answer 1

Вот краткий обзор.

    Dim sqlquery As String = ""INSERT INTO Table_2([po])VALUES(@po)" //sql string
    Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlquery, con) //Insert             

    Dim a As Integer
    For a = TextBox1.Text To TextBox2.Text   

    cmd.Parameters.AddwithValue("@po",ListBox1.Items.Add(a)) //use parameters to avoid sql injection
    cmd.ExecuteNonQuery() //execute insert Command

    Next
        //You must call another query to populate your DataSet
        adaptor.Fill(kayit, "table_2")

С уважением