SQL中SELECT中SubString参数传递不成功 Post By:2013/6/4 12:49:00 [只看该作者]
Dim kmdaima As WinForm.TextBox = e.Form.Controls("kemudaima") cmd.CommandText = "Select Count(*) From {科目表} Where SubString(科目代码,1,LEN(kmdaima.text))= '" & kmdaima.Text & "'" If cmd.ExecuteScalar > 0 Then Messagebox.show("删除科目失败,请先删除此科目的下级科目!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If