还是一道数据库题:(
下面这段程序是想向SQL数据库中的student表中插入10个连续整数,可运行时出错:“不能在对象'student'中插入重复键“,请教大侠小弟的程序哪里出了差错?百思不得其解!
Dim id
id = Text1.Text
With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "insert into student(number)values(" + id + ")"
End With
For i = 1 To 10
cmd.Execute
id = id + 1
Next i