Question

VB中AdodcGrid.Refresh有问题，提示对象Refresh的方法IAdodc失败,代码如下

Private Sub Form_Load()
Dim strSno As String
Dim strSelect As String
strSno = Trim(Form1.Text1.Text)
strSelect = "select Sname,Cname,Ccredit,Grade from Student s join SC" & "on s.sno=SC.sno join Course c on c.cno=SC.cno where" & "SC.cno='" & strSno & "'"
AdodcGrid.CommandType = adCmdText
AdodcGrid.RecordSource = strSelect
AdodcGrid.Refresh
Set DataGrid1.DataSource = AdodcGrid
Call InitGrid
End Sub

Answer 1

问题可能出在SQL语句上，单独执行看是否取到了数据；注意数据类型，文本要单引号，数字不用单引号的

Answer 2

缺少应有的空格：

... s join SC[] " & "on s.sno=SC.sno join Course c on c.cno=SC.cno where[]" & ...
正确的写法必须保证应有的空格：

... s join SC " & "on s.sno=SC.sno join Course c on c.cno=SC.cno where " & ...

Answer 3

数据库没连接？