VB问题,在进行SQL查询的时候,对象refresh的方法iadodc失败 80
各位高手帮帮忙~在运行的时候,不管按什么查询都会显示“至少一个参数没有被指定值”,然后就会跳出“对象refresh的方法iadodc失败”这句话,请问是什么意思啊?部分代...
各位高手帮帮忙~
在运行的时候,不管按什么查询都会显示“至少一个参数没有被指定值”,然后就会跳出“对象refresh的方法iadodc失败”这句话,请问是什么意思啊?
部分代码如下:
Private Sub chaxun1_Click() ' 按姓名查询
deptno = InputBox("请输入要查找的姓名")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 个人基本信息.姓名=" & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun2_Click() ' 按电话号码查询
deptno = InputBox("请输入要查找的电话号码")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 联系方式.电话号码 =" & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun3_Click() ' 按年龄段查询
age1 = Val(InputBox("请输入年龄下限"))
age2 = Val(InputBox("请输入年龄上限"))
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 个人基本信息.年龄 between " & "'" & age1 & "' And " & "'" & age2 & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun4_Click() ' 按所在城市查询
deptno = InputBox("请输入所在城市")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 联系方式.所在城市 = " & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
还有,我确定数据库是连接成功的,能够添加数据~
SQL脚本的问题?不是很明白。。。我是初学者。。见谅哈~能不能解释的详细点 展开
在运行的时候,不管按什么查询都会显示“至少一个参数没有被指定值”,然后就会跳出“对象refresh的方法iadodc失败”这句话,请问是什么意思啊?
部分代码如下:
Private Sub chaxun1_Click() ' 按姓名查询
deptno = InputBox("请输入要查找的姓名")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 个人基本信息.姓名=" & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun2_Click() ' 按电话号码查询
deptno = InputBox("请输入要查找的电话号码")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 联系方式.电话号码 =" & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun3_Click() ' 按年龄段查询
age1 = Val(InputBox("请输入年龄下限"))
age2 = Val(InputBox("请输入年龄上限"))
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 个人基本信息.年龄 between " & "'" & age1 & "' And " & "'" & age2 & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
Private Sub chaxun4_Click() ' 按所在城市查询
deptno = InputBox("请输入所在城市")
sqlString1 = "Select 个人基本信息.编号,姓名,性别,年龄,出生日期,个生肖,血型,星座,爱好,擅长,座右铭,偶像,个人说明,手机号码,QQ号码,邮箱,所在城市,.家庭地址,所在学校/工作单位 "
sqlString2 = "From 个人基本信息, 联系方式, 个人介绍 "
sqlString3 = "Where 个人基本信息.编号=联系方式.编号 And 联系方式.编号=个人介绍.编号 "
sqlString4 = "And 联系方式.所在城市 = " & "'" & deptno & "'"
sqlString = sqlString1 & sqlString2 & sqlString3 & sqlString4
Form2.Show
End Sub
还有,我确定数据库是连接成功的,能够添加数据~
SQL脚本的问题?不是很明白。。。我是初学者。。见谅哈~能不能解释的详细点 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询