当用户注册后怎么样使用户拥有自己的数据库

[crespo1414]

当用户注册后怎么样使用户拥有自己的数据库?而且数据库的里面的表和结构,我有一个初始的数据库文件,如何创建这么一个指定结构的数据库,并且连接上

[stou]

顶

[crespo1414]

dddd

[swhrzl]

'
' 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


转贴..=.=自己慢慢改着用!!

[zds10000]

顶 牛人那

[yowbell]

顶~~

[crespo1414]

我想要sql server的