ASP里，将Excel导入到Access数据库

下面连接到testxls表sheet1$

'表后面要加个$的,一定要加这个符号

Set

conn

=

ServerCreateObject("ADODBConnection")

connOpen

"Driver={Microsoft

Excel

Driver

(xls)};ReadOnly=0;DBQ="

&

ServerMapPath("testxls")

SQL1="select

from

[sheet1$]"

Set

rs

=

ServerCreateObject("ADODBRecordset")

rsOpen

SQL1,

conn,

3,

3

'下面连接到atestmdb表user

curDir

=

ServerMapPath("atestmdb")

Set

conn1

=

ServerCreateObject("ADODBConnection")

conn1Open

"Provider=MicrosoftJetOLEDB40;Data

Source="

&

curDir

Set

rs1

=

ServerCreateObject("ADODBRecordset")

Set

rs1ActiveConnection

=

conn1

rs1Source

=

"select

from

user"

rs1CursorType

=

3

'

adOpenKeyset

rs1LockType

=

3

'adLockOptimistic

rs1Open

Do

While

Not

rsEof

rs1AddNew

rs1(0)=j

for

i=0

to

rsFieldsCount-1

rs1(i)=Trim(rs(i))

Next

rs1Update

rsMoveNext

j=j+1

Loop

rsClose

rs1Close

connClose

conn1Close

Set

rs=nothing

Set

conn=nothing

1、ASP与Access数据库链接代码1

<%

dim conn,mdbfile

mdbfile=servermappath("数据库名称mdb")

set conn=servercreateobject("adodbconnection")

connopen "driver={microsoft access driver (mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

%>

2、ASP与Access数据库链接代码2

<%

dim conn,mdbfile

mdbfile=servermappath("数据库名称mdb")

set conn=servercreateobject("adodbconnection")

connopen "Provider=MicrosoftJetOLEDB40;Data Source=" & mdbfile

%>

3、ASP与SQL数据库链接代码

<%

Const SqlDatabaseName = "数据库名"

Const SqlPassword = "用户密码"

Const SqlUsername = "用户名"

Const SqlLocalName = "(local)"

dim conn

set conn=servercreateobject("ADODBconnection")

connopen "Provider=Sqloledb;User ID="&SqlUsername&";Password="&SqlPassword&";Initial Catalog="&SqlDatabaseName& ";Data Source="&SqlLocalName&";"

%>

4、ASP与Mysql数据库链接代码

<%

sqlServerName = "localhost" '服务器名称或地址

sqlDBUserName = "root" ’数据库帐号

sqlDBPassword = "admin" '数据库密码

sqlDBName = "dbfile" '数据库名称

connstr = "driver={MySQL ODBC 351 Driver};server="& sqlServerName &";uid="& sqlDBUserName &";pwd="& sqlDBPassword &";database="& sqlDBName &""

set conn = servercreateobject("adodbconnection")

connopen connstr

%>

首先链接数据库

dataaccess = servermappath("data/xxxxmdb")

'连接OLEDB

Set oConn = ServerCreateObject("ADODBCONNECTION")

oConnOpen "Provider=MicrosoftJetOLEDB40;Data Source=" & dataaccess

其次打开表并读取记录

sql = "select top 100 from [tablebb] where 1=1"    

Set oRs = ServerCreateObject("ADODBRecordset")

rsOpen sql, oconn, 1, 1

if not rseof then

while not rseof

responsewrite("<p>"& rs("字段") &"</p>") ‘读取字段名称，打印记录出来

rsmovenext    '下一条记录

wend

end if

ASP与Access数据库连接:

<%

dim

conn,mdbfile

mdbfile=servermappath("数据库名称mdb")

set

conn=servercreateobject("adodbconnection")

connopen

"driver={microsoft

access

driver

(mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

%>

ASP与SQL数据库连接:

<%

dim

conn

set

conn=servercreateobject("ADODBconnection")

conopen

"PROVIDER=SQLOLEDB;DATA

SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称

%>

这篇文章主要介绍了PHP连接 *** 作access数据库实例,本文直接给出实现代码,需要的朋友可以参考下

因为之前做的PingSwitch要做一个WEB展示的前端，因为一开始用了Delphi和access的结构，而Delphi与MySQL的连接又相对麻烦，最后只能选择用PHP+Access的组合，比较奇怪，但是也合理·····

在PHP中连接access数据库的话我们必须ADO来连接，这跟ASP中连接数据库非常的类似。下边给出了一段DEMO供大家参考。

<PHP

/

创建ADO连接

/

$conn

=

@new

COM("ADODBConnection")

or

die

("ADO

Connection

faild");

$connstr

=

"DRIVER={Microsoft

Access

Driver

(mdb)};

DBQ="

realpath("DATUM/cnbtmdb");

$conn->Open($connstr);

/

创建记录集查询

/

$rs

=

@new

COM("ADODBRecordSet");

$rs->Open("select

from

dbo_dirs",$conn,1,3);

/

循环读取数据

/

while(!$rs->eof){

echo

"$rs->Fields["title"]->Value;

echo

"<br/>";

$rs->Movenext();

//将记录集指针下移

}

$rs->close();

>

这样运行就没问题了····

以上所述就是本文的全部内容了，希望大家能够喜欢。

这个实现的功能是连接ACCESS数据库，通过这几个简单的方法，实现数据库的基本 *** 作。查询、插入、删除、修改。

C# 连接ACCESS数据库方法：

//创建ACCESS数据库连接

public OleDbConnection connn(string sqlFromAccess)

{

OleDbConnection accessConn = new OleDbConnection(sqlFromAccess);

string title = "正确：-->";

string info = "ACCESS连接成功，开始读取数据";

writeLogo(title, info);

return accessConn;

}

//C# 连接access数据库 绑定数据集 *** 作

public bool accessReader(OleDbConnection accessConn, string _sqlcomm, out OleDbDataReader _reader)

{

try

{

//OleDbConnection accessConn = new OleDbConnection(sqlFromAccess);

OleDbCommand accessComm = new OleDbCommand(_sqlcomm, accessConn);

accessConnOpen();

_reader = accessCommExecuteReader();

return true;

}

catch

{

_reader = null;

return false;

}

finally

{

}

}

//关闭ACCESS数据库连接

public void CloseReader(OleDbConnection str)

{

strClose();

}

//对ACCESS数据表的 *** 作{插入、删除、修改}

public bool accessCommExec(string accessCon,string _strcomm)

{

try

{

OleDbConnection sqlConn = new OleDbConnection(accessCon);

OleDbCommand sqlComm = new OleDbCommand(_strcomm, sqlConn);

sqlConnOpen();

sqlCommExecuteNonQuery();

sqlConnClose();

return true;

}

catch (Exception ex)

{

return false;

}

}

//记录日志系统ServerLogotxt

protected void writeLogo(string title, string info)

{

StreamWriter writer = FileAppendText("E:\\ImportantXML\\ServerLogtxt");

writerWrite(title);

//writerWrite((DateTimeNowToString("yyyy-MM-dd")) + " ");

writerWriteLine((DateTimeNowToString()) + " " + info);

writerClose();

}

=======应用================================

string selectFromAccess = "select top 4 from 系统分钟值 order by 时间 desc ";

OleDbDataReader _accessReader;

OleDbConnection accessCon = connn(AccessLJ); //AccessLJ 为读取到的ACCESS数据库连接字符串，一般格式为：Provider=MicrosoftJetOLEDB40;Data Source=d:\YSBFMDB

accessReader(accessCon, selectFromAccess, out _accessReader);

while (_accessReaderRead())

{

//写您自己的功能

}

CloseReader(accessCon); //关闭数据连接

//////////

string insertIntoSql = "insert into table(index) values ('"+value+"');

accessCommExec(AccessLJ,insertIntoSql) ; //AccessLJ为数据库连接字符串，意义同上。 该函数返回bool类型。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

解析:

连接access数据库

asp数据库

一、

<%

dim conn

dim dbpath

set conn=servercreateobject("adodbconnection")

DBPath = ServerMapPath("8301")

connOpen "driver={Microsoft Access Driver (mdb)};dbq=" & DBPath

%>

二、

<%

Set Conn=ServerCreateObject("ADODBConnection")

Connstr="DBQ="+servermappath("rc/lzh")+";DefaultDir=;DRIVER={Microsoft Access Driver (mdb)}"

ConnOpen connstr

%>

dim ipconn

set ipconn=servercreateobject("ADODBCONNECTION")

ipconnopen "DBQ="&servermappath("ipmdb")&";DRIVER={Microsoft Access Driver (mdb)};"

dim rs,sql

Set rs = ServerCreateObject("ADODBRecordset")

sql="select top 1 ip_b,ip_c from ip where (ip_s<=" & ip & " and ip_e>=" & ip & ")"

rsOpen sql,ipconn,1,1

if rseof or rsbof then

getaddress="未知|未知"

Else

getaddress=rs(0)&"|"&rs(1)

end if

mdb数据库

一、

<%dim coon

Set Conn=ServerCreateObject("ADODBConnection")

Connstr="DBQ="+servermappath("/123mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (mdb)}"

ConnOpen connstr

%>

二、

dim conn

set conn = servercreateobject("adodbconnection")

connopen = "provider=microsoftjetoledb40;" & "data source = " & servermappath("/db/bbsmdb")

三、

<%@ language=VBs cript%>

<%

dim conn,mdbfile

mdbfile=servermappath("数据库名称mdb")

set conn=servercreateobject("adodbconnection")

connopen "driver={microsoft access driver (mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

%>

set dbconnection=ServerCREATEOBJECT("ADODBCONNECTION")

DBPath = ServerMapPath("customermdb")

dbconnectionOpen "driver={Microsoft Access Driver (mdb)};dbq=" & DBPath

SQL="select from auth where id='" & user_id &"'"

SET uplist=dbconnectionEXECUTE(SQL)

2

set dbconnection=ServerCreateObject("ADODBConnection")

DBPath = ServerMapPath("customermdb")

dbconnectionOpen "provider=microsoftjetoledb40;data source="&dbpath

SQL="select from auth where id='" & user_id &"'"

SET uplist=dbconnectionEXECUTE(SQL)

3

DBPath = ServerMapPath("customermdb")

set session("rs")=ServerCreateObject("ADODBRecordset")

' rs=ServerCreateObject("ADODBRecordset")

connstr="provider=microsoftjetoledb40;data source="&dbpath

SQL="select from auth where id='" & user_id &"'"

session("rs")Open sql,connstr,1,3

4

建odbc源xxx

set conn=servercreateobject("Adodbconnection")

connopen "DSN=xxx;UID=;PWD=;Database=customer

SetConn=ServerCreateObject("ADODBConnection")

Connstr="DBQ="+servermappath("aaa/bbspp1mdb")+";DefaultDir=;

DRIVER={Microsoft AccessDriver(mdb)};DriverId=25;FIL=MSAccess;

ImplicitCommitSync=Yes;

MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;

Threads=3;UserCommitSync=Yes;"

ConnOpenconnstr

说明： 其中SetConn=ServerCreateObject("ADODBConnection")为建立一个访问数据的对象， servermappath(aaa/bbspp1mdb)是告诉服务器access数据库访问的路径

conn的内容如下：

<%

dim conn,rs

set conn=servercreateobject("adodbconnection")

connopen "driver={microsoft access driver (mdb)};dbq="&servermappath("mdb/mfkiqplmdb ")

set rs=servercreateobject("adodbrecordset")

set rsactiveconnection=conn

%>

还不懂啊 加偶的QQ 直接问吧

public static OleDbConnection creatOleDbConnection(string filepath)

{

OleDbConnection con = new OleDbConnection("Provider=MicroSoftACEOLEDB120;DATA Source="+filepath);

return con;

}

private static string path1="";//第一个数据库地址

private static string path2="";//第二个数据库地址

只要在需要链接哪一个数据库的时候creatOleDbConnection方法，调用传入相应数据库地址就行。

以上就是关于ASP里，将Excel导入到Access数据库全部的内容，包括:ASP里，将Excel导入到Access数据库、asp怎么连接数据库啊。、ASP如何实现读取并且显示ACCESS等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！