已解决问题
谷歌q380911015用户在2013.12.14提交了关于“大主宰vb SQL 对象Refresh的方法IAdodc失败”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-01-02T03:37:47。PrivateSubCommand1_Click()IfOption1.Value=TrueThen
deptno=InputBox("请输入系编号")
tabstring1="select系.系名称,专业.专业名称,学生基本信息.班级,学生基本信息.学号,学生基本信息.姓名,学生基本信息.性别"
tabstring2="from专业,系,学生基本信息"
tabstring3="where专业.系编号=系.系编号and专业.专业编号=学生基本信息.专业编号"
tabstring4="and系.系编号="&"'"&deptno&"'"
tabstring=tabstring1&tabstring2&tabstring3&tabstring4
EndIf
***.Show
EndSub
PrivateSubForm_Activate()
Form1.Adodc1.RecordSource=tabstring
Form1.Adodc1.Refresh
SetDataGrid1.DataSource=Form1.Adodc1
模块
PublictabstringAsString
PublicdeptnoAsString
运行输入系编号出个框框(adodc1)第一行:'.'附近有语法错误
点确定出框框(microsoftvisualbasic)实时错误'-2147217900(80040e)':对象Refresh的方法IAdodc失败
按调试Form1.Adodc1.Refresh希望大家能够帮助她。
详细问题描述及疑问：PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
deptno=InputBox("请输入系编号")
tabstring1="select系.系名称,专业.专业名称,学生基本信息.班级,学生基本信息.学号,学生基本信息.姓名,学生基本信息.性别"
tabstring2="from专业,系,学生基本信息"
tabstring3="where专业.系编号=系.系编号and专业.专业编号=学生基本信息.专业编号"
tabstring4="and系.系编号="&"'"&deptno&"'"
tabstring=tabstring1&tabstring2&tabstring3&tabstring4
EndIf
***.Show
EndSub
PrivateSubForm_Activate()
Form1.Adodc1.RecordSource=tabstring
Form1.Adodc1.Refresh
SetDataGrid1.DataSource=Form1.Adodc1
模块
PublictabstringAsString
PublicdeptnoAsString
运行输入系编号出个框框(adodc1)第一行:'.'附近有语法错误
点确定出框框(microsoftvisualbasic)实时错误'-2147217900(80040e)':对象Refresh的方法IAdodc失败
按调试Form1.Adodc1.Refresh期待您的答案，你是我的宝贝,你是我的花,谢谢你对我的帮助！