求一段连接SQL SERVER和oracle的代码

连接上面两种数据库的源码，可否帮写一下，谢谢  
  问题点数：20、回复次数：2Top

1 楼zgvslch（烟花离落）回复于 2005-01-03 21:22:57 得分 20

Dim   AdoConnect   As   ADODB.Connection  
  Set   AdoConnect   =   New   ADODB.Connection  
  ConnStr   =   "Provider=OraOLEDB.Oracle.1;Persist   Security   Info=False;User   ID=sa;PassWord=sa;Data   Source=dytd"  
  AdoConnect.ConnectionString   =   ConnStr  
  AdoConnect.Open  
  Top

2 楼zgvslch（烟花离落）回复于 2005-01-03 21:31:29 得分 0

Dim   AdoConnect   As   ADODB.Connection  
  Set   AdoConnect   =   New   ADODB.Connection  
  ConnStr   =   "Provider=SQLOLEDB;Persist   Security   Info=False;User   ID=sa;PassWord=sa;Data   Source=dytd"  
  AdoConnect.ConnectionString   =   ConnStr  
  AdoConnect.OpenTop

相关问题

• 连接
• sa
• oracle
• security
• source
• adoconnect
• connstradoconnect
• connectionset
• connectionconnstr
• dytd

• 帖主：boyalsogood
• zgvslch

• Visual Basic类图书
• Visual Basic类源码下载