新手求教有关数据库连接类的引用问题，急急~~~~~~~

[icecock]

我想用写一个类来实现数据库连接，类如下
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Data

Public Class connection


Public Function getconn() As SqlConnection
Dim connstr As String = ConfigurationSettings.AppSettings("connstr")
Dim myconn As New SqlConnection(connstr)
myconn.Open()
Return myconn


End Function
Public Function getds(ByVal sqlstr, ByVal tablename) As DataSet
Dim conn As New SqlConnection
conn = getconn()
Dim da As New SqlDataAdapter(sqlstr, conn)
Dim ds As New DataSet
da.Fill(ds, tablename)
Return ds
End Function
Public Function getdr(ByVal sqlstr) As SqlDataReader
Dim conn As New SqlConnection
conn = getconn()
Dim comm As New SqlCommand(sqlstr, conn)
Dim dr As SqlDataReader
dr = comm.ExecuteReader()
Return dr

End Function

End Class
编译成connection.dll
再在项目中引用这个dll
可是在WEB页面中怎么调用不了这个dll呢
调用过程如下
Imports Management.connection

Imports System.Data.SqlClient


Public Class WebForm1
Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As SqlConnection
conn = New no2.getconn //这句出错
End Sub
不知怎么会回事不能调用呢

[cpp2017]

no2是什么?好象没有这个Class?

[ml_net]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As SqlConnection
conn = New connection.getconn
End Sub

[icecock]

不好意思
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As SqlConnection
conn = New connection.getconn //这里本来就是这样的
End Sub
就是调用不了,大家看看哪里有问题

[whxleem]

在引用中添加你的dll 然后楼上的代码 ok

[chieftech]

using System;
using System.Data;
using System.Data.SqlClient;
using System.Configuration;

namespace BidData
{
/// <summary>
/// Class1 的摘要说明。
/// </summary>
public class Conn
{
String strConn = "";
SqlConnection _conn;
public Conn()
{
//
// TODO: 在此处添加构造函数逻辑
//
strConn = ConfigurationSettings.AppSettings["connBid"];
}
public SqlConnection GetConn()
{
if (_conn == null)
{
_conn = new SqlConnection(strConn);
}
if (_conn.State != ConnectionState.Open)
{
try
{
_conn.Open();
}
catch
{
throw new Exception("数据库连接错误");
}
}
return _conn;
}
}
}

[chieftech]

private SqlConnection conn = new Conn().GetConn();

[whxleem]

或者在构造函数里定义 Dim conn As SqlConnection 然后在
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
conn = New connection.getconn

End Sub

[liulangxin]

dim conneciton as new connection
conn=connection.getconn

看看吧，手头没有环境，对于vb.net不是很熟

[icecock]

哪位高手有功能的代码
给个看看啊