Блог

 Private Sub Copy_Tab()
        Dim createSql1 As String
        con = New MySqlConnection(myConnectionString)
        con.Open()
        Dim tblname = TextBox3.Text amp; "_" amp; ComboBox1.Text
        createSql1 = "Select * from '" amp; ComboBox1.Text amp; "'"
        Dim cmd As New MySqlCommand(createSql1, con)

        Dim table As New DataTable
        Dim adapter1 As New MySqlDataAdapter(cmd)
        adapter1.Fill(table)
        Dim cmd2 As New MySqlCommand("Insert into tblname ([Code], [PCID],[Assigned_To], [Deployed])values(@CD, @PD, @AT,@DP)", con)
        cmd2.Parameters.Add("@CD", MySqlDbType.VarChar).Value = table.Rows(0)(1)  'here (0) is the column no. and (1) is the cell no.
        cmd2.Parameters.Add("@PD", MySqlDbType.VarChar).Value = table.Rows(0)(2)
        cmd2.Parameters.Add("@AD", MySqlDbType.Text).Value = table.Rows(0)(3)
        cmd2.Parameters.Add("@DP", MySqlDbType.Text).Value = table.Rows(0)(4)

        cmd2.ExecuteNonQuery()
        con.Close()
    End Sub

  

Привет, ребята, перейдите к этому коду и получите сообщение об ошибке:

MySQL.Data.MySqlClient.Исключение MySqlException: «У вас ошибка в синтаксисе SQL; проверьте руководство, соответствующее вашей версии сервера MySQL, на предмет правильного синтаксиса для использования рядом с «Монитором» в строке 1″

вот что я делаю. Я создаю и проверяю программное обеспечение для инвентаризации, в котором мне нужно создавать новую таблицу каждый раз, когда мы проводим инвентаризацию, тогда мне нужно скопировать текущий список инвентаризации из моей базы данных mysql. можете ли вы мне помочь, пожалуйста?