编程论坛 → VB6论坛

关于VB实时错误‘3001’，参数类型不正确或不在可以……怎么解决啊，具体代码如下

chunjiang98 发布于 2012-04-24 11:09， 1201 次点击

Private Sub Form_Activate()
    Combo1.AddItem ("1级")
    Combo1.AddItem ("2级")
    Combo1.AddItem ("3级")
    Combo1.ListIndex = 0
    rs1.Open "select * from 商品基础信息表 order by 商品级别,商品编号", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
        For i = 1 To 12
            If rs1.Fields(i) <> "" Then Text1(i).text = rs1.Fields(i)
            Text1(i).Enabled = False
        Next i
    End If
    rs1.Close
    Call tree_change
    ComSave.Enabled = False
End Sub

9 回复

#2

chunjiang982012-04-24 11:11

只有本站会员才能查看附件，请登录

每次调试到相关这处，都出现这种“实时错误‘3001’，参数类型不正确或不在可以……”错误，一直困扰没能解决，多多指教，再此先谢过了！

#3

Artless2012-04-25 00:58

order by 商品级别,商品编号

#4

dc__sky2012-04-25 08:30

“Text1(i).Enabled = False”楼主是要禁用？
图片看不到~

#5

chunjiang982012-04-25 09:19

回复 3楼 Artless

什么意思？

#6

chunjiang982012-04-25 09:19

回复 4楼 dc__sky

texti(i)的内容只显示，不能输入啊

#7

chunjiang982012-04-25 09:27

回复 6楼 chunjiang98

前面那张图片只是错误显示的截图，这张是调试时显示的黄色区域

只有本站会员才能查看附件，请登录

#8

xlin1033xl2012-04-26 01:04

1）建议你检查变量rs1、cnn等变量的定义是否正确
2）rs1变量是否new过对象

#9

dc__sky2012-04-26 11:25

adOpenKeyset, adLockPessimistic
你改成这个试试

#10

dc__sky2012-04-27 09:06

楼主试试那个参数嘛，或者改为excute（）那种形式

1