Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data source=c:/D.mdb;Jet OLEDB:DataBase Password=123456!"
private void GetCon()
{
string strConnection="PRovider=Microsoft.Jet.OleDb.4.0;";
strConnection+=@"Data Source=C:\BegaspNET\Northwind.mdb";
OleDbConnection objConnection=new OleDbConnection(strConnection);
objConnection.Open();
objConnection.Close();
}
//以独占的方式打开
//文件--信息--加密/解密
PRovider=Microsoft.Jet.OleDb.4.0;Jet OLEDB:DataBase Password=123456789;Data Source=D:\ToWife.mdb;
1.
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * from auth where id="" & user_id &"""
SET uplist=dbconnection.EXECUTE(SQL)
2.
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id="" & user_id &"""
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
" rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id="" & user_id &"""
session("rs").Open sql,connstr,1,3
//连接access2007
OleDbConnection con = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=D:/数据库.accdb;Jet OLEDB:Database Password=123456;
//连接access2003
OleDbConnection con = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin";Data Source=D:/数据库.mdb;Jet OLEDB:Database password=123456;")
//建odbc源
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=123456;Database=XXX"
//破解密码
public static string GetMDBPassword(string file)
{
// 未加密的MDB文件,0x42到0x61之间的每间隔一字节的数值
byte[] baseByte = { 0xbe, 0xec, 0x65, 0x9c, 0xfe, 0x28, 0x2b, 0x8a, 0x6c, 0x7b, 0xcd, 0xdf, 0x4f, 0x13, 0xf7, 0xb1, };
byte flagByte = 0x0c; // 标志 0x62 处的数值
string password = "";
try
{
FileStream fs = File.OpenRead(file);
fs.Seek(0x14, SeekOrigin.Begin);
byte ver = (byte)fs.ReadByte(); // 取得access版本, 1为Access2000/2003, 0为Access97
fs.Seek(0x42, SeekOrigin.Begin);
byte[] bs = new byte[33];
if (fs.Read(bs, 0, 33) != 33) return "";
byte flag = (byte)(bs[32] ^ flagByte);
for (int i = 0; i < 16; i++)
{
byte b = (byte)(baseByte[i] ^ bs[i * 2]);
if (i % 2 == 0 && ver == 1) b ^= flag; //Access 2000/2003
if (b > 0) password += (char)b;
}
}
catch { }
return ( password.Equals( "" ) ? "没有密码!" : password );
}
//up
private int up(string sql)
{
int index = 0;
OleDbConnection con = GetCon();
try
{
if (con!=null)
{
con.Open();
OleDbCommand oc = new OleDbCommand(sql, con);
return oc.ExecuteNonQuery();
}
return 0;
}
catch (Exception)
{
return 0;
}
}
//select
private DataTable select(string sql)
{
DataTable dt = new DataTable();
OleDbConnection con = GetCon();
try
{
if (con!=null)
{
con.Open();
//用 OleDbDataAdapter 得到一个数据集
OleDbDataAdapter myCommand = new OleDbDataAdapter(sql,con);
DataSet myDataSet = new DataSet();
//把Dataset绑定books数据表
myCommand.Fill(myDataSet);
con.Close();
return myDataSet.Tables[0];
}
con.Close();
return null;
}
catch (Exception)
{
con.Close();
return null;
}
}
//
主键的操作
Function AddPrimaryKey()
'添加主键到[编号]字段
Dim strSQL As String
strSQL = "ALTER TABLE 表1 ADD CONSTRAINT PRIMARY_KEY " _
& "PRIMARY KEY (编号)"
CurrentProject.Connection.Execute strSQL
End Function
Function DropPrimaryKey()
'删除主键
Dim strSQL As String
strSQL = "ALTER TABLE 表1 Drop CONSTRAINT PRIMARY_KEY "
CurrentProject.Connection.Execute strSQL
End Function
转载请保留原地址. http://www.cnblogs.com/lsqandzy