Question

VB byref参数类型错误问题

Sub e(a, b, c, ByRef d As Object)
Set a = New ADODB.Connection
Set b = New ADODB.Recordset
a.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\gongsi.mdb;persist security info=false"
c = "select sum(d) from 2013" 'd为数据库字断，计算字断总合
b.Open c, a, 1, 1
Text1.Text = b(0)
End Sub
Private Sub Command1_Click()
e cn, rs, sql, t1
End Sub

Answer 1

我觉得错误的原因是最后一个参数应该传入string类型，而不是object对象类型。因为函数使用了SQL语句中的SUM方法求和，所以应该传入字段的名称。

追问

也不行，几中类型都用过了

追答

我看你解决了，想问你是怎么解决的呢？学习下！

Answer 2

我运行不会提示这个错误啊！
我是这样设置参数的 Call e(a, b, c, Form1)
你的t1是什么啊？textbox？

追问

t1是d变量的值，2013是数据库表，t1是字断
select sum(d) from 2013

追答

那你有没有定义 t1为Object？
dim t1 as object

追问

有的，您试着我有的代码运行下就知道了，提示参数类型不符

追答

按你代码开始确实出现这情况。我这样改后就好了。
主要是定义好类型
Sub e(a As ADODB.Connection, b As ADODB.Recordset, c As String, ByRef d As Object)
无关紧要 省略
End Sub
Private Sub Form_Load()
Dim t1 As Object
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Call e(cn, rs, sql, t1)
End Sub
还有一个其他人也说了。求一个字段的总和应该传递的是字段名，类型是 String。
更改函数类型后，别忘了更改传递进去的参数的类型。

Answer 3

去掉ByRef 试试

追问

一样，我试过其类型如：string integer等

追答

Sub e(a As Object, b As Object, c As Object, d As Object)

追问

还是一样，错误的是d值

追答

D是个字段名，应该传STRING