access.DBParm = "ConnectString='Driver={Microsoft Excel Driver (*.xls)};Dbq=" +文件名+ ";Uid=;Pwd='"
CONNECT USING access ;
IF access.SQLCode <> 0 THEN
m_errmsg=access.SQLErrText
Return -1
END IF
atr_cnn=access

优质网站模板

  • 1
  • 2
  • 3