excel+access的学籍管理系统，提示编译错误：类型不匹配，求指点

☆桃花岛主☆ · 发表于 2024-4-8 17:37

有一个excel+access的学籍管理系统，office 2003的，我现在在office2019下运行，运行到：For i = 1 To rs.RecordCount时，提示编译错误：类型不匹配

求各位高手指点一下

Private Sub UserForm_Initialize()
Dim i As Integer
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "\xjcj.mdb"
rs.Open "select * from 用户数据表 ", con, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
UserForm1.ComboBox1.AddItem rs.Fields("用户名")
rs.MoveNext
Next i
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub

baofa2 · 发表于 2024-4-8 18:29

micch · 发表于 2024-4-8 19:54

类型不匹配，那估计是变量声明的和数据不一致

☆桃花岛主☆ · 发表于 2024-4-10 08:38

baofa2 发表于 2024-4-8 18:29

谢谢
可以了

☆桃花岛主☆ · 发表于 2024-4-10 09:00

baofa2 发表于 2024-4-8 18:29

可以出现登录界面，输入用户名，密码出现系统错误的提示

baofa2 · 发表于 2024-4-10 09:09

本帖最后由 baofa2 于 2024-4-10 09:12 编辑

☆桃花岛主☆ 发表于 2024-4-10 09:00
可以出现登录界面，输入用户名，密码出现系统错误的提示

若在2019中运行，整个工程有33处
Jet.OLEDB.4.0;
要替换为
ACE.OLEDB.12.0;

补替换后附件

学生学籍成绩管理系统.zip (244.71 KB, 下载次数: 15)

☆桃花岛主☆ · 发表于 2024-4-10 14:27

谢谢大神指点，感谢感谢

		自动登录	找回密码
密码			免费注册

[求助] excel+access的学籍管理系统，提示编译错误：类型不匹配，求指点