怎么样编写一个可以连接两个数据库的代码?

fengfenghuohuo 2003-09-11 03:41:25
连接sqlsever和access
谢谢
...全文
105 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
liul17 2003-09-11
  • 打赏
  • 举报
回复
1.连接SqlServer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sCnStr As String

sCnStr = "Provider=SQLOLEDB.1;Provider=SQLOLEDB.1;Password='123';Persist Security Info=True;User ID=sa;Initial Catalog=YourDbname;Data Source=MyHostName"
cn.Open sCnStr
rs.Open "select * from Table1"
MsgBox rs.Fields(0)

2.连接Access
Dim sCnStr As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DBEngine.OpenDatabase(App.Path & "\" & YourDbname)
Set rs = db.OpenRecordset("TAble1")
MsgBox rs.Fields(0)

射天狼 2003-09-11
  • 打赏
  • 举报
回复
定义两个数据库连接就行了~~
如:

Dim cn1 As New ADODB.Connection '用于连接SQLSERVER
Dim cn2 As New ADODB.Connection '用于连接ACCESS

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧