首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

其他信息: 未找到提供程序。该程序可能未正确安装。

2011-12-08 
未处理的“System.Runtime.InteropServices.COMException”类型的异常写了一段登录代码然后运行出现下列问题

未处理的“System.Runtime.InteropServices.COMException”类型的异常
写了一段登录代码     然后运行   出现下列问题         VB.NET中的


未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在   工程1.exe   中。

其他信息:   未找到提供程序。该程序可能未正确安装


请教各位达人如何解决

[解决办法]
' 您先试试吧,您那段程序看来有年头了
Private Sub _Command1_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Command1_0.Click
Dim strSQL As String
Dim cn As New SqlClient.SqlConnection
Dim rs As New DataSet
cn.ConnectionString = "Provider=COMPUTER;Data Source=NEW;Initial Catalog=northwind;User Id=sa;Password=; "
' 不知道这个 "Provider=COMPUTER "对不对,您是从书上看来的吧
cn.Open()
' rs.CursorLocation = adUseClient ' 不知道这一句的用处
strSQL = "select 密码 from NEW where 登录名= ' " & 用户登录_Renamed.Text & " ' "
' rs.Open(strSQL, cn, adOpenStatic, adLockReadOnly)
Dim da As New SqlClient.SqlDataAdapter(strSQL, cn)
Dim count As Int32 = da.Fill(rs)
If count = 0 Then
MsgBox( "用户名不正确 ")
Else
If rs.Tables(0).Rows(0)(0).Value = Text1.Text Then
MsgBox( "登录成功 ")
Else
MsgBox( "密码错误 ")
End If
End If
End Sub
[解决办法]
System.Runtime.InteropServices.COMException这个好像是权限问题

热点排行