实时错误13 类型错误

[lwj_1986]

Set rs = New Recordset 
rs.Open "select 变量地址 from [PlcInfoTable] where 数据库表 = 'ProductD4'", conn, adOpenKeyset, adLockPessimistic
temp = rs.GetString()
dd = Split(temp, Chr(32))

dd = Split(temp, Chr(32)) 报数据类型错误

是什么原因呢


我是这样定义的 dim dd() as string
哪里有问题

[vbman2003]

dim tmp,dd

[vbman2003]

你查一下ADo帮助,好象记得这二个变量都要求是variant类型...

[vbman2003]

哦,这样:
dd = Split(temp, Chr(13))

[feiyun0112]

temp =?

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[vbman2003]

'记忆有误,测试了如下可以:
dim temp as string 
dim dd() as string   
Set rs = New Recordset 
rs.Open "select 变量地址 from [PlcInfoTable] where 数据库表 = 'ProductD4'", conn, adOpenKeyset, adLockPessimistic
temp = rs.GetString()
dd = Split(temp, Chr(13))   '数据是由Chr(13)回车符分隔 ,每个字段的值是用vbTab分隔

[clear_zero]

dd = Split(temp, Chr(13))