189 8069 5689
VB6和vb.net的数据库操作有很大不同，不能简单的语句对语句转换，建议你深入了解vb.net的数据库操作，再做移植
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站制作、网站设计、外贸网站建设、盖州网络推广、成都小程序开发、盖州网络营销、盖州企业策划、盖州品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供盖州建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
VS2008中的叫做VB.NET,运行在NET平台上，对VB6的语法改变了一些，功能也比较强大了，与.NET平台的其他语言开发工具容易接合，控件样式等也有所改进。
VB6是VS98时代的开发工具，当然比VB.NET轻量些，容易上手些，其面向对象程序设计的思想和实现上没有VB.NET体现得充分。
引用 Microsoft DAO 3.6 Object Library
Public Function DaoOpenDB(ByVal pDbType As String, ByVal pDbName As String, ByVal pMdbCnct As String) As Integer
On Error GoTo Err_Handler
Dim m_DbDataBase As DAO.Database
Dim gwsMainworkSpace As DAO.Workspace
Dim DAODBEngine As New DAO.DBEngine()
Dim m_DbWkSpace = DAODBEngine.CreateWorkspace("", " Admin ", "")
If pDbType = "c_ACCESS" Then
'Access
m_DbDataBase = m_DbWkSpace.OpenDatabase(pDbName)
Else
'Oracle
m_DbDataBase = m_DbWkSpace.OpenDatabase(pDbName, True, False, pMdbCnct)
End If
DaoOpenDB = c_OK '你在全局中已定义
Exit Function
Err_Handler:
DaoOpenDB = c_NG '你在全局中已定义
MsgBox(Err.Description, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Err")
End Function
Dim i As Integer,wd As Integer,hd As Integer
Dim Obj As HtmlDocument=WebBrowser1.Document.GetElementsByTagName("iframe")(2).Document
For i=0 To Obj.Images.Count-1
wd=Obj.Images(i).OffsetRectangle.Width
hd=Obj.Images(i).OffsetRectangle.Height
If wd=800 Or wd=790 Then
Call tupxiazai(Obj.Images(i).GetAttribute("SRC"),Application.StartupPath "\image\" i "pic.jpg")
End If
Next
在您的代码中，您已经成功使用了RegAsm命令将DLL注册为COM组件，并在VB6中成功引用了该组件的类型库文件（TLB文件）。此外，您还在VB6代码中声明了一个YCImageDo类型的对象，并成功创建了该对象。
但是，当您尝试使用YCImageDo对象的属性和方法时，却发现这些成员不可见。这可能是因为在编写DLL代码时您没有正确地声明这些成员的可见性。
在VB.NET中，您可以使用"Public"关键字来声明一个类型的成员（属性、方法、过程等）对外可见，而使用"Private"关键字则声明该成员仅在类型内可见。如果您希望YCImageDo类型的成员在VB6代码中可见，则应将这些成员声明为Public类型。
例如，如果您希望YCImageDo类型拥有一个名为"GetImage"的方法，则可以在DLL代码中按如下方式声明该方法：
Public Function GetImage() As String
' 在这里编写方法的代码
End Function
同样，如果您希望YCImageDo类型拥有一个名为"ImagePath"的属性，则可以在DLL代码中按如下方式声明该属性：
Public Property ImagePath As String
能不能转换 主要取决于vb6的源程序是不是使用了第三方控件 如果用了 那这些全部都不能转！~
如果vb6里面有控件数组vb.net会自动生成出一套东西（vb.net里面已经没有控件数组）模拟控件数组
如果vb6的程序很简单的话，转成.net之后应该改的地方不大！~
绝对你应该先弄清楚以前vb6的程序具体用了什么 然后去微软查一下vb6升级到vb.net最大的区别！~
我们做过好几个升级的程序 有的不用改 有的简单修改 有的基本重写！~