Question

我对VB6的查询是：

Set Db = DBEngine.OpenDatabase(App.Path & "\sample4nC4.mdb")

Set rs = Db.OpenRecordset("select *from tbl_student;")

Do Until rs.EOF
    With ListView1
        .ListItems.Add , , rs.Fields("stud_ID")
        .ListItems(ListView.ListItems.Count).SubItems(1) = rs.Fields("stud_fname")
        .ListItems(ListView1.ListItems.Count).SubItems(2) = rs.Fields("stud_lname")
        .ListItems(ListView1.ListItems.Count).SubItems(3) = rs.Fields("stud_address")
        .ListItems(ListView1.ListItems.Count).SubItems(4) = rs.Fields("stud_age")
    End With
    rs.MoveNext
Loop

当我执行此查询时，第2行出现错误：

运行时错误＆＃39; 13＆＃39;类型不匹配

我真的没有得到它，因为当我检查表名时，它是正确的但我无法访问该表。有人可以回答我的问题吗？

Answer 1

您的项目中是否有对ADO和DAO的引用？

如果是这样，请查看此Microsoft支持文章：https://support.microsoft.com/en-us/kb/181542

Answer 2

做这些

将您的查询替换为＆＃39; select * from tbl_student;＆＃39; 至 ＆＃39;从tbl_student选择stud_fname，stud_lname，stud_address，stud_age＆＃39;

这包括（1.＆＃39; ＆＃39;以及＆＃39; 2.删除＆＃39;;＆＃39; 3.指定字段名称明确）*
在程序的第一行放入一个断点并进入，如果仍然失败则检查它失败的那一行。

运行时错误＆＃39; 13＆＃39;类型不匹配

2 个答案: