各位大侠们！！！帮帮啊！！！

[cuijiansheng]

我要ASP连接SQL数据库啊
库名：bbs
服务器：CUI
表：member
各位大侠怎么连接啊！！！
可以给代码最好啊！！！！！！
再线等待啊！！！！

[alinker]

不好意思借宝地一用

在线求答: ASP动态建数据表的错误解答

LINK_NAME = trim(request("TXT_FIELD1")) & trim(request("TXT_FIELD2"))

Response.Write LINK_NAME '变量的取值是没问题的

set Conn = server.CreateObject("ADODB.Connection")
Conn.open "DBQ="& trim(App_path) & "TBL.mdb" &";Driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MS Access;"
set RS = server.CreateObject("ADODB.Recordset")

'以上的数据库连接也是没问题

sql2 = "CREATE TABLE " & LINK_NAME & " ( T_NUM Text(8), MM Text(9), INCH Text(9),PTH Text(9) ,REMARK Memo)"

Set a = Conn.Execute(sql2)

关键就是那一句Sql2 = "..." & LINK_NAME & " ..."那一句，静态名称的表名是可以生成的但我想生成动态表名，问题就在如何将变量LINK_NAME带入将且Conn.Execute可以执行建表？先谢过了！

[qdubit]

按照以下的方法试试看：
set conn=server.CreateObject("ADODB.Connection")
conn.Open application("数据库名"),application("用户名"),application("密码")

[alinker]

找到了出错规律:
就是LINK_NAME变量的值中含有特殊字符就出错,比如: -
那我又想将 "-" 保留,除了替换成标准字符,有何好方法解决呢?

[李睿_Lee]

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=CUI;uid=;pwd=;database=member"

[xxrl]

第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二种－这种方法用在SQL SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn



第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"



第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3 第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

[hozi]

oledb直接连接
set cnobj = Server.CreateObject("ADODB.Connection")
strcon="PROVIDER=SQLOLEDB;DATA SOURCE=（主机名称或ip,如果是本地，可以不要）;DATABASE=（数据库名,注不是保存的文件名，而是企业管理器中的数据库名称）;UID=（登陆名）;PWD=（登陆密码）"
cnobj.Open strcon
set rstobj=server.createobject("adodb.recordset")
set rstobj=cnobj.execute("select * from users")

如：
set cnobj = Server.CreateObject("ADODB.Connection")
strcon="PROVIDER=SQLOLEDB;DATA SOURCE=CUI;DATABASE=bbs;UID=sa;PWD=（登陆密码）"
cnobj.Open strcon
set rstobj=server.createobject("adodb.recordset")
set rstobj=cnobj.execute("select * from member")

[wzgan]

<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={SQL Server};server=CUI;uid=sa;pwd=;database=bbs"
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from member"
rs.open sql,conn,2,3

'以上是SQL SERVER的 数据连接

[c953131]

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=CUI;uid=;pwd=;database=bbs"

[conner]

ASP与SQL数据库连接：
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

[babby]

const dbserver="CUI"
const dbuid="sa"
const dbpwd="sa"
const dbname="bbs"
function OpenDB()
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};" &_
"server=" & dbserver & ";" &_
"uid=" & dbuid & ";" &_
"pwd=" & dbpwd & ";" &_
"database=" & dbname
set OpenDb = conn
end function

[cuijiansheng]

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={SQL Server};server=CUI;uid=sa;pwd=;database=bbs"
conn.Open connstr
结果错误是：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
/

[cuijiansheng]

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={SQL Server};server=CUI;uid=sa;pwd=;database=bbs"
conn.Open connstr

conn.Execute "insert into member(name,password,sex,marked) values('"&name1&"','"&pass1&"','"&sex1&"','"&mark1&"')",1,3
conn.Close
set conn=nothing
这些代码有问题吗？