如何用asp创建数据库

[qieyj]

如何用asp创建数据库

[qieyj]

没有人回答吗

[genuis]

作不到，除非用sqlserver做成存储过程，然后用asp来调用存储过程建库

[qieyj]

如何用asp创建表呢

[孟子E章]

'
' Author: [e-mail]
' script: AccDLL.vbs v .99
' Description: create MDB for COM Obejcts from DDL Sql queries
' keywords: xddl create access query adodb progid com tlviewer pryor
' dependencies: ADO 2.5+, WSH 2, VBScript 5.1+
' refurl: http://home.sprintmail.com/~mpryor/objectdb.htm
' note: DB is designed to use the Obj Definitions from TLViewer as data, see above page
' Date: 10/23/01 9:35AM
'
' ------------------------------------------------

' --- revision history ---------------------------
' released v .99 10-23-01
'
'
' --- end of revisions ---------------------------


option explicit

'////////////////////////////////
' define global objects
'/////////////////////////
dim oSh ' global
Set oSh = WScript.CreateObject("WScript.Shell")

dim oFS, TempName, objTempFile, MyBase
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

'////////////////////////
' does myDB already exist?
'//////////////////////////
dim myDB, lret, cwd

' get current directory
if WScript.Version < 5.6 then
cwd = oFS.GetFolder(".")
else
cwd = oSh.CurrentDirectory
end if

' name the DB
myDB = cwd & "\copy_of_tlcom.mdb"
WScript.echo myDB

if oFS.FileExists( myDB ) then
lret = MsgBox ( "File already exists. Do you want to replace?: " & myDB, vbOKCancel, "tlcom MDB Creation Script")
if ( lret <> 2 ) then
'delete the existing db and continue on
oFS.DeleteFile myDB, vbFalse
else
WScript.quit
end if
end if


'/////////////////////////////////////////////
' create the MDB every time we run this script to finish
'////////////////////////////////////////////////
dim oCat
' oCat is scoped local
set oCat = CreateObject("ADOX.Catalog")

oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=4;Data Source=" & myDB ' for Access 2000
' We use Jet4, Acc97; use type=5 for 2k; use 3.51 for Jet 3.51, Access97.
'
set oCat = nothing

WScript.sleep 1000

'//////////////////////////////////////////////////
' now connect to myDB
'////////////////////////////////////////////////

' copy_of_tlcom_.mdb
dim tlcom_ddl, oConn, sConn, bConn

' define the ADO conn object, scope is local to this block
set oConn = WScript.CreateObject("ADODB.Connection", "oConn_")
oConn.ConnectionTimeout = 3
sConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myDB & ";Persist Security Info=False"
oConn.Open sConn ' synchronous connection - wait to connect to continue ,,,16

' connect info is in State prop. - ObjectStateEnum


'////////////////////////////////////////////////////
' define the DDL statements as array elements
'//////////////////////////////////////////////
' array is 0 based
tlcom_ddl = Array( "CREATE TABLE clsid ( id COUNTER, clsid TEXT(38) );", _
"CREATE UNIQUE INDEX PrimaryKey ON clsid (id ASC) WITH PRIMARY;", _
"CREATE TABLE path ( id COUNTER, path TEXT(200) );", _
"CREATE UNIQUE INDEX PrimaryKey ON path (id ASC) WITH PRIMARY;", _
"CREATE TABLE progid ( id COUNTER, progid TEXT(100), clsidid LONG, help_string TEXT(200), pathid LONG, typelibid LONG );", _
"CREATE UNIQUE INDEX PrimaryKey ON progid (id ASC) WITH PRIMARY;", _
"CREATE TABLE orphans ( progid_id LONG, libname TEXT(50), class TEXT(50) );", _
"CREATE UNIQUE INDEX progid_id ON orphans (progid_id ASC);", _
"CREATE TABLE typelib ( id COUNTER, typelib TEXT(38), version TEXT(8), help_string TEXT(200), pathid LONG, libname TEXT(40) );", _
"CREATE UNIQUE INDEX PrimaryKey ON typelib (id ASC) WITH PRIMARY;", _
"ALTER TABLE progid ADD CONSTRAINT clsidprogid FOREIGN KEY (clsidid) REFERENCES clsid(id);", _
"ALTER TABLE progid ADD CONSTRAINT pathprogid FOREIGN KEY (pathid) REFERENCES path(id);", _
"ALTER TABLE orphans ADD CONSTRAINT progidorphans FOREIGN KEY (progid_id) REFERENCES progid(id);", _
"ALTER TABLE progid ADD CONSTRAINT typelibprogid FOREIGN KEY (typelibid) REFERENCES typelib(id);")

WScript.echo "ready to build tables"

'////////////////////////////////////////
' execute sql
'////////////////////////////////////////
dim enmSQL, sanchk

for each enmSQL in tlcom_ddl
sanchk = 0
WScript.echo "cmd= " & enmSQL
oConn.execute enmSQL, , 128 ' adExecuteNoRecords

while ( oConn.state = 4 AND sanchk < 5 ) 'adStateExecuting
sanchk = sanchk + 1
WScript.sleep 300
wend
next

'/////////////////////////////////////
' check errors collection before closing
'//////////////////////////////////
dim enmErr, oErr
set oErr = oConn.errors
if oErr.count > 0 then
for each enmErr in oErr
WScript.echo enmErr.Number & " desc: " & enmErr.Description
next
else
WScript.echo "empty error collection"
end if

oConn.close

'///////////////////////////
' event handlers
'///////////////////////////

sub oConn_ExecuteComplete( RecordsAffected , pError , adStatus , pCommand , pRecordset , pConnection )
if adStatus <> 1 then
WScript.echo "errors in cmd: " & pError.description
else
WScript.echo "cmd OK"
end if

end sub

sub oConn_ConnectComplete( pError , adStatus , pConnection )
if adStatus = 1 then
WScript.echo "conn complete - OK"
else
WScript.echo "conn complete - Errors occured." & pError.description
end if
end sub

sub oConn_Disconnect(adStatus , pConnection )
WScript.echo "conn closed"
end sub

[teenty]

'Access 2000
建库文件
Set Ca = Server.CreateObject("ADOX.Catalog")
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)

建表
conn.execute("create table tablename(fieldname1 int,fieldname2 date())")

[qieyj]

有没有更好的提议

[Any81]

以下用ODBC驱动程序实现数据库访问如下：（连接上了如何用sql语句啊）

<%
dbpath=server.mappath("/acc/test.mdb")
connstr="driver={microsoft access driver(*.mdb)}; dbq=" & dbpath & ";"
set rs=server.createobject("ADODB.connection")
rs.open connstr
%>

<%
response.write "<tabel width='50%'>"
response.write "<tr bgcolor='#000080'>"

for num=0 to rs.fields.count-1
response.write "<td align='center'><font color='#fffff'>" & rs(num).name & "</font></td>"
next

response.write "</tr>"

do while not rs.eof
response.write "<tr bgcolor='#f6f6f6'>"
for num=0 to rs.fields.count-1
zhangvar=rs(num)
if isnull(zhangvar) then
response.write "<td><font color='#000000'>" & "暂无" & "</font></td>"
else
response.write "<td><font color='#000000'>" & rs(num) & "</font></td>"
end if
next
response.write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing
%>

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/test.asp，行5

为什么啊？

[masterme]

<%
sql="create table dealer([id] int identity(1,1) not null,[usename] varchar(15) not null ,[pass] varchar(10),[compname] varchar(40),[comptel] varchar(15),[compfax] varchar(15),[address] varchar(100),[kind] varchar(40),scope varchar(40),range varchar(40),Principal varchar(10),ptel varchar(15),pemail varchar(40),[date] datetime)"
set rs=cnn.execute(sql)
%>

[叶子哟]

俺知道可以创建sql server的数据库和数据表，
1、数据库：rs.execute("create database mydatabase"),无论你目前连接的 是哪一个数据库
2、数据表：rs.execute("creat table mytable(xxxx)"),目前的数据库创建

[wwfhjg]

up!

[Donben]

conn为一连接数据库的connection对象
建表：
conn.Execute "Create table 表名(字段名 字段类型,字段名 字段类型,字段名 字段类型)"

[julyclyde]

没有意义啊
创建数据库都是一次性的工作，为什么用asp来做？