急问要想建立access形式的数据库应该怎么设置连接啊?老是搞不起来!!深夜求救!急急急!

Question

我的程序里面有一个数组的值,我要存放到数据库里面去.
其实前几天已经做好了,是做成sql sever2000的形式的,现在对方要求是做成access的,就是做成excel表格形式的(我对access数据库一点都不知道,但是现在真的很急了).我的程序里面对于数据库的设置是:
.....Dim r As ADODB.Recordset'---设置数据库的连接-----
Set cn = New ADODB.Connection
With cn
      .ConnectionString = "Provider=sqloledb;Data Source=B-136C0E5F02614;initial catalog=pressure_data;Integrated Security=SSPI; "
      .Open
End With
'-----------------------    cn.Execute "delete from 当天"
    Set r = New ADODB.Recordset
    r.Sort = Time1
    For i = 0 To Data_Len - 1
    hour2 = i \ 4
    minute2 = (i Mod 4) * 15
    
    r.Open "select * from 当天", cn, adOpenDynamic, adLockOptimistic
       
     r.AddNew
        r!Date1 = month2 & "-" & date2 
        r!Time1 = hour2 & ":" & minute2 
        r!Data = Data(i)     r.Update
     r.MoveNext     r.Close
 
    Next i
    cn.Close这里的sql Sever的服务器名为:B-136C0E5F02614,上面的数据库名为:pressure_data,里面有一个表,表名为"当天",这个表有三个字段,一个是Date1,一个是Time1,还有一个是Data.现在突然要改成Access数据库,就是以Excel形式存储的(好像是吧,我对Access数据库一点都不了解,但是对方要Access数据库形式的).
各位大侠出手相助啊,救急救急.谢谢谢谢.
后天人家就要联调了.谢谢!拜托拜托拜托!

Answer 1

With cn
      .ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=服务器名＼共享名＼数据库名;persist Security=False; Jet OLEDB:Database Password=密码"
      
E.Opennd With
r.MoveNext'这句不要看看,因为每次更新后r很可能已经是指在最后一条记录的，movenext的话r.eof=true 了

Answer 2

就改一下连接字符窜，还有就是字段读取应该是r("字段名１")，r!date1这种写法我没用过

Answer 3

SQL改为Access，主要改一下数据库连接，另外，如果涉及到时间的数据库操作语句，在SQL中，时间用两个单引号引起来，而Access则是用两个#号引起来

Answer 4

把这个改为With cn
      .ConnectionString = "Provider=sqloledb;Data Source=B-136C0E5F02614;initial catalog=pressure_data;Integrated Security=SSPI; " .ConnectionString =" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\练习储存\练习坯件\銀行\DataBaseMDB.mdb;Persist Security Info=False"

Answer 5

那急问我机子上只装了SQL Sever2000,要不要安装别的东西啊?就直接将连接的设置改一下就可以了吗??