Đang chuẩn bị liên kết để tải về tài liệu:
ASP Databases part 7

Tham khảo tài liệu 'asp databases part 7', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 474 Chương í3 Hôi tượng Command 5chapter 12 - Command object - Microsoft Internet Fite di view Fjvorites Loots ttelp fl Search ff History -Ộ I1 Address .254. 74.28 Test 20A5P C wpter. 13 TryItOvt-l .asp 3 3 Try It Out 1 - Altering the database structure Add a column Command object executed database altered d gjtkne Internet Mã tạo ra trang trên dược trình bày sau dây và bạn có thế tìm thấy nó trong TryltOut-1 asp. HTML HEAD META NAME GENERATOR Content Microsoft Visual studio 6.0 TITLE Chapter 12 - Command Object TITLE HEAD BODY -- Display the page data -- Try It Out 1 - Altering the database structure - Add a column BR BR Instruct VBScript to ignore the error and continue with the next line of code On Error Resume Next Create and open the database object Set objConn Server.CreateObjectC ADODB.Connection objConn.Open DSN Sailors Check for errors If objConn.Errors.Count 0 Then Create an error object to access the ADO errors collection Set objErr Server.CreateObject ADODB.Error Declare Boolean and other places flag for critical errors Dim blnCriticalError 1 Write all errors to the page For Each objErr In objConn.Errors If objErr. Number 0 Then Response.Write Number s pbjErr.Number p Response.Write Description objErr.Description p Response.Write Source objErr.Source p Chương ỉ3 hối tượitg Command 475 Response.Write SQLState objErr.SQLState p Response.Write NativeError objErr NativeError p blnCriticalError True End If Next Dereference all objects Set objErr Nothing If blnCriticalError Then Response-End End If End If Declare variables Dim adCmdText adCmdText 1 Create the command object and set the various properties Set objcmd Server.CreateObject ADODB.Command Set objCmd.Activeconnection objConn objCtnd. CcranandText ALTER TABLE Boats ADD TeazManufactured INT Null objCmd.CommandType adCmdText objCmd.CommandTimeout 30 objcmd.Prepared False objCmd.Execute Check for errors If objConn. Errors. Count 0 Then Create an error object to access the ADO errors collection Set objErr