社区 › AutoCAD.net/VB.net/C# 编程技术 › 关于在AUTOCAD中操作外部数据库的问题

liukang2655 发表于 2011-5-10 10:39:12

关于在AUTOCAD中操作外部数据库的问题

我自定义个命令，命令中需要操作（读取）外部数据库中的数据。可是调试中出现错误：Application does not support Windows Forms just-in-time (JIT) debugging.（这个错误是在AUTOCAD中输入命令后出现的）请问有遇到过的吗？
具体代码：
<CommandMethod("nettext")> Public Sub nettext()
      Dim conn As OleDbConnection
      conn = New OleDbConnection("Provide.Microsoft.Jet.OLEDB.4.0;" & "Data Source=E:\database\Bdata.mdb")
      conn.Open()
      Dim mySQL As String
      Dim mytablename As String
      mytablename = "桥梁"
      mySQL = "select * from " & mytablename
      Dim cmd As New OleDbCommand(mySQL, conn)
      Dim dr As OleDbDataReader = cmd.ExecuteReader()
      Dim da As New OleDbDataAdapter(cmd)
      Dim ds As New DataSet
      da.Fill(ds, "桥梁")
      Dim datarow As DataRow
      Dim pt As New Point3d(100, 100, 0)
      Dim height As Double = 50
      Dim oblique As Double = 0
      For Each datarow In ds.Tables("桥梁").Rows
            Dim i As Integer = 1
            Dim text As String
            text = datarow.Item("桥名")
            ModleSpace.AddText(pt, text, height, oblique)   
            pt = New Point3d(100 + i * 500, 100, 0)
            i += 1
      Next
    End Sub
代码意图是在图纸上隔500显示数据库中的桥名。

liukang2655 发表于 2011-5-10 10:49:37

出现错误。我点继续后。仍然没有想要的结果

chmenf087 发表于 2011-5-10 14:33:29

            ModleSpace.AddText(pt, text, height, oblique)   
            pt = New Point3d(100 + i * 500, 100, 0)
这貌似有问题吧，你是不是用的ActiveX对象。com接口是不能使用point3d netapi里的Structure的

liukang2655 发表于 2011-5-10 21:28:12

回复 chmenf087 的帖子

ModleSpace.AddText(pt, text, height, oblique)没有问题。这个是在modlespace.vb模块中封装了DBText类的构造函数
Public Shared Function AddText(ByVal position As Point3d, ByVal textstring As String, ByVal height As Double, ByVal oblique As Double) As ObjectId
      Try
            Dim ent As New DBText()
            ent.Position = position
            ent.TextString = textstring
            ent.Height = height
            ent.Oblique = oblique
            Dim entId As ObjectId = AppendEntity(ent)
            Return entId
      Catch
            Dim nullId As ObjectId = ObjectId.Null
            Return nullId
      End Try
    End Function

chmenf087 发表于 2011-5-10 22:05:03

本帖最后由 chmenf087 于 2011-5-10 22:08 编辑

你看看你的注册表键值是不是这样的

"Auto"="0"
"Debugger"="\"C:\\WINDOWS\\system32\\vsjitdebugger.exe\" -p %ld -e %ld"
"UserDebuggerHotKey"=dword:00000000

liukang2655 发表于 2011-5-10 22:24:11

回复 chmenf087 的帖子

是这样的啊...

chmenf087 发表于 2011-5-10 23:03:35

没有哪里有winForm，不知道你哪里出问题了，这点程序也看不出端倪，自己单步吧

sailorcwx 发表于 2011-5-11 00:04:16

本帖最后由 sailorcwx 于 2011-5-11 00:05 编辑

感觉连接字符有问题
New OleDbConnection("Provide.Microsoft.Jet.OLEDB.4.0;" & "Data Source=E:\database\Bdata.mdb")
改成
New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source="& "E:\\database\\Bdata.mdb")
试试看

chmenf087 发表于 2011-5-11 00:12:12

呃，应该是 Provider=

liukang2655 发表于 2011-5-11 08:39:30

回复 chmenf087 的帖子

嗯。连接字符是错了。可是修改后还是不成。你有没有写过的在命令中操作数据库的简单程序，发个，我看看。

查看完整版本: 关于在AUTOCAD中操作外部数据库的问题