声明个CLASS就可以,把函数写在calss里就可以了Config Code<configuration>
<appSettings>
<add key="constr" value="server=YourServer;uid=Yourname;pwd=YourPASSWORD;database=Yourdatabase" />
</appSettings>
</configuration>
Class Code:
public class ConnectSql
public ReadOnly Property constr() as string
constr=ConfigurationSettings("connect")
return constr()
end classASPX CODE:imports system.data.sqlclient
Dim con as new connectsql
dim constr as string=con.constr
dim cnn as new sqlconnection(cnn)
.
.
.
.
// Set conn = Server.CreateObject("ADODB.Connection")
// 换成 System.Data.OleDb.OleDbConnection
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection();/*
'Access数据库连接
Public Function SQL_Connect(My_DBPath, My_Password)
Conn.Open
End Function
*/
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + My_DBPath + ";Jet OLEDB:Database Password=" + My_Password +";";/*
'Select函数
Public Function SQL_SELECT(My_Sql)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open My_Sql, Conn, 3, 3
SQL_SELECT = Rs.RecordCount
Sql_FCnt = Rs.Fields.Count
End Function
*/
// 如果只要读就用Reader对象
System.Data.OleDb.OleDbCommand comm = new System.Data.OleDb.OleDbCommand(My_Sql);
comm.Connection = conn;
System.Data.OleDb.OleDbDataReader dr = comm.ExecuteReader();
// 就可以好像以前的ADODB.Recordset一样读数据,不过是顺序的和只读的
// 要高级控制要使用DataSet对象