大神帮忙看一下，2003运行正常，2010提示出错。

春不老

输入界面表里的内容，复制到数据库表里，2003运行正常，最近换2010版本了，代码移过去，出现“参数类型不正确，或不在可接受的范围内，或与其它参数冲突”，出错代码：rst.Open "select *  from [Sheet1$]", Conn, , adLockOptimistic

请各位大神帮忙给看看，谢谢！

f8b1987

1.     Dim Conn As Object, Rst As Object
   
2.     Dim strConn As String, strSQL As String
   
3.     Dim i As Integer, PathStr As String
   
4.     Set Conn = CreateObject("ADODB.Connection")
   
5.     Set Rst = CreateObject("ADODB.Recordset")
   
6.     PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
7.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
   
8.     Case Is <= 11
   
9.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
   
10.     Case Is >= 12
    
11.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
12.     End Select
    
13.     '设置SQL查询语句
    
14.     strSQL = "请写入SQL语句"
    
15.     Conn.Open strConn    '打开数据库链接

复制代码

f8b1987

请参考以下帖子
http://club.excelhome.net/forum. ... mp;authorid=1123322

春不老

f8b1987 发表于 2021-4-19 16:21

老大能不能给修改一下附件啊，我是初学者，谢谢！

一指禅62

1. Sub 保存数据()
   
2.     Dim cnn As Object, rst As Object, Wb As Workbook
   
3.     Dim MyPath As String, i%
   
4.     MyPath = ThisWorkbook.Path & "\数据库.xls"
   
5.    
   
6.     Application.DisplayAlerts = False
   
7.     Set Wb = Workbooks.Open(MyPath)
   
8.     Range(Rows(2), Rows(99)).Delete '更新数据前先清空原数据
   
9.     ActiveWorkbook.Close Savechanges:=True
   
10.     Application.DisplayAlerts = True
    
11.    
    
12.     'Set cnn = CreateObject("adodb.cnnection")'掉了“o”
    
13.     Set cnn = CreateObject("adodb.connection")
    
14.     Set rst = CreateObject("ADODB.recordset")
    
15.     If Application.Version * 1 < 12 Then
    
16.         cnn.Provider = "Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0"
    
17.     Else
    
18.         cnn.Provider = "Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0"
    
19.     End If
    
20.     cnn.Open MyPath
    
21.     rst.Open "select *  from [Sheet1$]", cnn, 1, 3
    
22.     For i = 3 To Sheet1.Range("f65536").End(xlUp).Row
    
23.         rst.Addnew
    
24.         rst.Fields("姓名") = Range("f" & i).Value
    
25.         rst.Fields("年龄") = Range("g" & i).Value
    
26.         rst.Fields("性别") = Range("h" & i).Value
    
27.         rst.Update
    
28.     Next i
    
29.     rst.Close
    
30.     cnn.Close
    
31.     Set rst = Nothing
    
32.     Set cnn = Nothing
    
33.     MsgBox "已输入到数据库"
    
34. End Sub

复制代码

春不老

一指禅62 发表于 2021-4-20 10:02

太感谢了！功能完全ok