| 
 | 
楼主
 
 
 楼主 |
发表于 2004-5-9 11:46:04
|
只看该作者
 
 
 
SAS与常用数据库连接代码整理
/******************************************************************* 
功能:链接Sql Server数据库 
参数说明: 
libname (在SaS映射的数据库名)  Data Source (SQL Server主机地址) 
Initial Catalog (SQL Server数据库名) 
User ID (SQL Server数据库登陆用户名) Password (SQL Server数据库登陆密码) 
*******************************************************************/ 
/* 连接 DataBaseName  数据库 */ 
libname base oledb provider=sqloledb  
properties=("Data Source"=ServerName "User ID"=MyUserName "Password"=MyPassWord "Initial Catalog"=DataBaseName); 
 
 
 
/******************************************************************* 
功能:链接Oralce数据库 
参数说明: 
libname (在SaS映射的数据库名)  path (Oracle数据库SID) 
schema (Oralce数据库名一般为数据库一个用户) 
oracle user (oracle数据库登陆用户名) password (oracle数据库登陆密码) 
注意:登陆Oracle数据库的帐号密码必须有权限登陆指定的数据库 
*******************************************************************/ 
/* 链接 DataBaseName 数据库(SID:orcl) */ 
libname DataBaseName oracle user=MyUserName password=MyPassWord path='orcl' schema=DataBaseName; 
 
 
 
 
/******************************************************************* 
功能:链接dbf数据文件 
参数说明: 
filename (指定需要打开的dbf文件) 
db5 (2,3,4,5 指定dBASE的版本) 
out (在SaS中的记录集) 
*******************************************************************/ 
filename DataBaseName '盘符:\路径\文件名.DBF'; 
proc dbf db5=DataBaseName out=DataBaseName; 
run; 
 
 
 
/******************************************************************* 
功能:导入excel数据文件 
参数说明: 
OUT(输出的Sas数据集) 
DATAFILE(指定导入的excel文件) 
RANGE(指定导入的sheet名称) 
GETNAMES(首行标题) 
*******************************************************************/ 
PROC IMPORT OUT= WORK.DataBaseName  
            DATAFILE= "盘符:\路径\文件名.xls"  
            DBMS=EXCEL2000 REPLACE; 
     RANGE="Sheet1$";  
     GETNAMES=YES; 
RUN; 
 
 
 
/******************************************************************* 
功能:导入access数据文件 
参数说明: 
OUT(输出的Sas数据集) 
DATAFILE(指定导入的access数据表) 
DATABASE(access数据库文件) 
*******************************************************************/ 
PROC IMPORT OUT= WORK.TableName 
            DATATABLE= "TableName"  
            DBMS=ACCESS2000 REPLACE; 
     DATABASE="盘符:\路径\文件名.mdb";  
RUN; |   
 
 
 
 |