ランタイムエラー-217418113 8000 ffffディザスタ障害'Run time error'c(8000 ffff)':Catastrophic Failure'

FIX: "Catastrophic Failure"Error Message When You Use adPromptAlways to Connect to SQL Server 2000
 
SYMPTOMS
When you use the adPromptAlways constant to open a connection to SQL Server 2000...
loadTOCNode(1, 'symptoms');
When you use the
adPromptAlways constant to open a connection to SQL Server 2000, the user receives the following error message:
'Run time error 'c (8000ffff)': Catastrophic Failure'.
This problem occurs when you use a trusted connection to SQL Server 2000.
NOTE: This problem does not occur with Microsoft SQL Server 7.0.
Back to the top
RESOLUTION
To work around this problem, do not use adPromptAlways, and pass the information...
loadTOCNode(1, 'resolution');
To work around this problem, do not use
adPromptAlways, and pass the information in the connection string.
Back to the top
STATUS
Microsoft has confirmed that this is a problem in the Microsoft products that ar...
loadTOCNode(1, 'status');
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.
This bug was corrected in Microsoft Data Access Components (MDAC) 2.6 Service Pack 2 and MDAC 2.7. To download the latest version of MDAC, refer to the following Microsoft Web site:
http://msdn.microsoft.com/en-us/data/aa937729.aspx
(http://msdn.microsoft.com/en-us/data/aa937729.aspx)
Back to the top
MORE INFORMATION
Steps to Reproduce Behavior Create a new Standard EXE project in Microsoft Visua...
loadTOCNode(1, 'moreinformation');
Steps to Reproduce Behavior
loadTOCNode(2, 'moreinformation');

Create a new Standard EXE project in Microsoft Visual Basic. Form1 is created by default.

On the Project menu, click Reference, and then select the Microsoft ActiveX Data Object 2.6 check box.

Add a CommandButton control and a TextBox control to Form1.

Add the following code to the Click event for the command button:

Dim con As New ADODB.Connection

con.Provider = "SQLOLEDB"

con.Properties("Prompt") = adPromptAlways

con.Open

Text1.Text = con.ConnectionString

					

Press the F5 key to run the application, and then click the command button.

In the SQL Server Login dialog box, follow these steps:
Select the Use Trusted Connection check box.

Select the SQL Server 2000 server, and then click Options.
Click Database in the list. You receive the above-mentioned error message.

Back to the top
APPLIES TO

Microsoft Data Access Components 2.6

Microsoft SQL Server 2000 Standard Edition

Back to
http://support.microsoft.com/kb/314635/en-us/
 
エラーはrs.movenext
実際にデバッグできますが、rsがnothingになっているのを見て、何が起こっているのかrsが破壊されました.
その後、自分が呼び出したDBSexecute(Byval Conn As Connection,strSql As String)をSqlExt(byval strSql As String)に変更して使用すればよいようです.
今は忘れました.とにかく:デバッグ!