مقدمة إلى ASP Programming (21): إنشاء جدول قاعدة بيانات DAO SQL

<٪

الخيار صريح

Dim Databasename 'تحديد اسم قاعدة البيانات

databasename = "cnbruce.mdb" اسم قاعدة البيانات

dimasepath 'حدد مسار تخزين قاعدة البيانات

databasepath = "e:/cnbruce/database/" 'المسار المطلق لقاعدة البيانات

Dim Databasever 'تحديد إصدار قاعدة البيانات 2000 أو 97

databaseever = "2000"

وظيفة تم إنشاؤها (FilePath ، اسم الملف ، VER)

قاتمة cnbruce ، dbver

حدد CASE VER

الحالة "97"

dbver = "3.51"

حالة "2000"

dbver = "4.0"

نهاية الاختيار

إذا كان dbver <> "" ثم

تعيين cnbruce = server.createBject ("adox.catalog")

اتصل cnbruce.create ("Provider = microsoft.jet.oledb." & dbver & "

إنهاء إذا

وظيفة نهاية

Call CreatedFile (databasepath ، databasename ، databasever) 'إنشاء قاعدة بيانات

٪>

<٪

db_path = "cnbruce.mdb"

تعيين conn = server.createObject ("adodb.connection")

connstr = "provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath (db_path)

Conn.Open Connstr

٪>

<!-#تضمين ملف = "conn.asp"->

<٪

SET RS = Server.createObject ("ADODB.RecordSet")

sql = "إنشاء جدول حول ensme (in integer المفتاح الأساسي ، نص الاسم ، dateTime عيد ميلاد)"

Rs.Open SQL ، Conn ، 2،3

٪>

يتم إنشاء ملف جدول قاعدة البيانات.