主题：【已解决】[求助]insert into 在循环中一次只能插入一条数据

Dim cmd As New SQLCommand

cmd.C

Dim str As String

With e.Form.Controls("ztxet")

    For Each str In .Lines

        cmd.CommandText = "Insert Into {Groups} ([Group]) values('" & str & "')"

        MessageBox.Show(str)

    Next

End With

If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功

    MessageBox.Show("保存成功!")

    

Else

    Messagebox.show("增加组失败, 可能存在同名组!","提 

示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If