请问dataobj.vb如何编译成.dll文件

[frieda]

请问下面这个文件如何编译成.dll文件,命令该怎么写呢?

dataobj.vb
***************************************************************************************
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Reflection

< _
Assembly : AssemblyTitle(""), _
Assembly : AssemblyDescription("A QuickStart Tutorial Assembly"), _
Assembly : AssemblyConfiguration(""), _
Assembly : AssemblyCompany("Microsoft Corporation"), _
Assembly : AssemblyProduct("Microsoft QuickStart Tutorials"), _
Assembly : AssemblyCopyright(" Microsoft Corporation. All rights reserved."), _
Assembly : AssemblyTrademark(""), _
Assembly : AssemblyCulture(""), _
Assembly : AssemblyVersion("1.1.*"), _
Assembly : AssemblyDelaySign(false), _
Assembly : AssemblyKeyFile(""), _
Assembly : AssemblyKeyName("") _
>
Namespace DataLayer

Public Class DataObjVB

Private _connStr As String

Public Sub New()

MyBase.New()
_connStr = ""
End Sub

Public Sub New(ConnStr As String)

MyBase.New()
_connStr = ConnStr
End Sub

Public Property ConnectionString As String

Get
Return _connStr
End Get

Set
_connStr = Value
End Set
End Property

Public Function GetCategories() As DataView

Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter

MyConnection = New SqlConnection(_connStr)
MyCommand = New SqlDataAdapter("select distinct CategoryName from Categories", MyConnection)

DS = new DataSet()
Try
MyCommand.Fill(DS, "Categories")

Return DS.Tables("Categories").DefaultView
Catch ex as Exception
Throw ex
Finally
MyConnection.Close()
End Try
End Function

Public Function GetProductsForCategory(Category As String) As DataView

Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter

MyConnection = New SqlConnection(_connStr)

MyCommand = New SqlDataAdapter("select ProductName, ImagePath, UnitPrice, c.CategoryId from Products p, Categories c where c.CategoryName='" & Category & "' and p.CategoryId = c.CategoryId", myConnection)

DS = new DataSet()
Try
MyCommand.Fill(DS, "Products")

Return DS.Tables("Products").DefaultView
Catch ex as Exception
Throw ex
Finally
MyConnection.Close()
End Try
End Function

End Class

End Namespace
***********************************************************************************

[张海霖]

vbc /t:library /r:System.dll /out: dataobj.dll dataobj.vb

[frieda]

不好意思，又出现下面的提示：

*****************************
C:\DataObj.vb(52) : error BC30009: 需要对程序集“System.Xml”(包含实现的接口“Sy
stem.Xml.Serialization.IXmlSerializable”)的引用。请在项目中添加一个。

Dim DS As DataSet
~~~~~~~
……
******************************

是不是还要加点什么？

[frieda]

我知道了，还要加个system.xml.dll：
vbc /t:library /out:dataobj.dll /r:system.dll,system.data.dll,system.xml.dll dataobj.vb

谢谢二位！

[frieda]

你好，我用这个方法编译时出现以下提示：
************************************************************
无法找到 Imports“System.Data”的命名空间或类型“Data”。

Imports System.Data
~~~~~~~~~~~
无法找到 Imports“System.Data.SqlClient”的命名空间或类型“SqlClient”。
……
**************************************************************

该怎么解决呢？

[wangxt]

vbc /t:library /r:System.dll /r:System.data.dll /out: dataobj.dll dataobj.vb