ado 连接SQL未找到提供程序改程序未能正确安装

连接蚂信字符串里面不能随便加空格,而且你还写察帆错了Adodc1.ConnectionString = "Provider=SQLOLEDB.1Persist Security Info=FalseUser ID=saInitial Catalog=usersData Source=20100527-1546"

Adodc1.RecordSource = "select * from 用败物雹户信息表"

Adodc1.Refresh而且你还少写了个password

连接数据库代亩袭码：

Private Sub btn登陆_Click()

Dim conn As New ADODB.Connection

Dim strConn As String

strConn = "Provider=MSDAORA.1user id="

strConn = strConn &txt用户卖滑名.Value

strConn = strConn &"password=" &txt密码.Value

strConn = strConn &"data source = " &txt数据库.Value

strConn = strConn &"Persist Security Info=True"

conn.Open strConn '打开数据库

OraOpen = True

MsgBox "Connect to the oracle database Successful!", vbInformation, "中耐腊Connect Successful"

Exit Sub

如果相关文件未遭受破坏，则很可能是相关的dll文件的注册丢失所致。此时进行如下简单 *** 作即可。

1.开始 - 运行，输入cmd，回车，此时打开命令提示符窗口。

2.输入族老如下命令并激穗旦回明扰车，进行所有dll文件的注册 *** 作

for %1 in (%WinDir%\SYSTEM32\*.DLL) DO RegSvr32.EXE /s %1

for %%1 in (%WinDir%\SYSTEM32\*.OCX) DO RegSvr32.EXE /s %%1

此时再打开控制面板的用户账户就应该恢复正常了。

当未发现系统文件存在问题，而又会出现类似上面的这种奇怪的现象，常常就可能是dll文件的注册丢失所致，此时可使用上面方法做一尝试。导致该现象的原因可能是安装卸载某些软件、中毒等。

---