免费x站最新1080fcom:80分求救:vb连接mssql的问题,解决再补50分!

来源:百度文库 编辑:高校问答 时间:2024/05/03 04:09:23
请教大侠们一个问题
我现在要用VB连接一个数据库
具体情况如下:

一、数据库不是安装的MSSQL数据库,而是别的数据库(考勤系统)软件在安装过程中自行安装的,只有80的文件夹,其中只有管理器。
二、需要连接的是该考勤系统所建立的文件夹,如微小(MicroData)系统
安装MicroData系统时,他在Program Files文件夹下建立一个Microsoft SQL的文件夹,文件夹里面有两个文件夹,其一为80,其二为MicroData自带的文件夹,比如名字为“Micro$Data”,其内有Binn,DATA等文件夹。
三、Micro$Data内含有master数据库以及考勤数据库MicroData.mdf
现在我要连接使用MicroData.mdf数据库的数据
请问高手们,这个东西应该怎么设定?
如果有没有说清楚的地方,我会及时补充。谢谢!

1、安装MSSQL或MSDE(需要另外安装企业管理器),虽然通过运行Binn目录中的服务程序,也可以做为数据库服务器来使用,但是如果默认sa用户有密码已经更改的话,你是无法通过使用原有的服务器程序来连接任何数据库的。如果实在不想安装MSSQL的话,可以到网上找一个免安装绿色版试一下,不过没有企业管理器,你没有办法恢复数据库

2、把MicroData.mdf还原至刚刚安装完成的MSSQL中

3、程序中如下:
设置好ADO的引用
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=lanchong"
cn.CursorLocation = adUseClient
rs.Open "select * from sysdatabases", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs

你可以连接到SQL数据库中了,其中连接字符串的部分改成你自己的数据

Provider=SQLOLEDB.1;Password=安装时候选择的密码;Persist Security Info=True;User ID=sa;Initial Catalog=你还原后的数据库名称;Data Source=你的SQL服务器所在机器的机器名或IP