未处理的“System.Runtime.InteropServices.COMException”类型的异常

写了一段登录代码然后运行出现下列问题 VB.NET中的

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

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

请教各位达人如何解决

23 个解决方案

#1

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 ADODB.Connection
        Dim rs As New ADODB.Recordset
        cn.ConnectionString = "Provider=COMPUTER;Data   Source=NEW;Initial   Catalog=northwind;User   Id=sa;Password=;"
（黄色箭头）cn.Open()
        rs.CursorLocation = adUseClient
        strSQL = "select   密码   from   NEW   where   登录名='" & 用户登录_Renamed.Text & "'"
        rs.Open(strSQL, cn, adOpenStatic, adLockReadOnly)
        If rs.RecordCount = 0 Then
            MsgBox("用户名不正确")
        Else
            If rs.Fields(0).Value = Text1.Text Then
                MsgBox("登录成功")
            Else
                MsgBox("密码错误")
            End If
        End If

    End Sub

这是代码   运行后有个黄色的箭头指向cn.Open()这一行

#2

没有人会么？？？？？？？？？/

#3

哭没人管了

#4

到其他机器上试试呢？

#5

当然要满足您的程序要求的。

#6

ADODB？？什么老东西了

#7

关键是怎么解决啊

#8

老东西那你给个新的也行啊只要能实现了功能就行啊

#9

我就郁闷了

#10

您用的是什么数据库？

#11

sql2000

#12

Public connectionString As String = "Server=10.1.0.157;" & "Database=flaxdb;Integrated security=true;"

#13

Dim   cn   As   system.data.sqlclient.SqlConnection
  dim   constr   as   string
  constr="workstation   id=你的ip;packet   size=4096;user   id=sa;data   source=你的ip;initial   catalog=你的数据库名称;password="   "
  cn   =   New   SqlConnection(constr)
  cn.Open()

#14

还是没有解决啊等待中。。。。。。。。。。。。。。。。。。。。。。。。。。。。

#15

' 您先试试吧，您那段程序看来有年头了
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

#16

您现在用的环境是什么，您的代码好像是6.0里面的，现在要转成.NET么？

#17

System.Runtime.InteropServices.COMException这个好像是权限问题

#18

http://support.microsoft.com/kb/815633/zh-cn可以参考一下

#19

确定有装SQL么?

#20

orkstation id=计算机名字;packet size=4096;user id=sa;data source='.';persist security info=False;initial catalog=数据库名

这样试试

#21

现在用的是VB.NET

#22

magicbacon(Cannot help coding)

运行你给的那段代码，提示是
未处理的“System.ArgumentException”类型的异常出现在 system.data.dll 中。

其他信息: 不支持关键字: “provider”。

去掉Provider=COMPUTER
提示是
未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。

其他信息: 系统错误。

求个解决方法！！！！！！！！！！

#23

forgot(忘记forgot2000)

你里面说的ip是什么意思，ip地址？？？还是计算机名？？又或者是什么？？

#1

#2