Date: Thu, 2 Dec 2004 13:46:43 +0900
From: "ohmori" <who@example.or.jp>
This is a multi-part message in MIME format.
------=_NextPart_000_000F_01C4D875.5B96CFC0
Content-Type: text/plain;
charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
こんにちは
MSDE2000Aのバックアップをしようとしましたが
うまくいきません
ご指導ください
VB6.0SP5
Option Explicit
Private WithEvents evsqldmobackup As SQLDMO.Backup
Private Sub command1_Click()
Dim objsqlserver As SQLDMO.SQLServer
Dim objbackup As SQLDMO.Backup
Set objbackup = New SQLDMO.Backup
Set objsqlserver = New SQLDMO.SQLServer
Set evsqldmobackup = objbackup
objsqlserver.Connect "abc", "sa", "*******"
objbackup.Action = SQLDMOBackup_Database
objbackup.Database = "aaadb"
objbackup.Files = "c:\dbback.bak"
objbackup.SQLBackup objsqlserver 'ここでエラー
Set objsqlserver = Nothing
end sub
実行時エラー
［SQL-DMO]コード実行例外 EXCEPTION_ACCESS_VLOLATION
------=_NextPart_000_000F_01C4D875.5B96CFC0
Content-Type: text/html;
charset="iso-2022-jp"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-2022-jp">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>=1B$B$3$s$K$A$O=1B(B</FONT></DIV>
<DIV><FONT =
size=3D2>MSDE2000A=1B$B$N%P%C%/%"%C%W$r$7$h$&$H$7$^$7$?$,=1B(B</FONT></DI=
V>
<DIV><FONT size=3D2>=1B$B$&$^$/$$$-$^$;$s=1B(B</FONT></DIV>
<DIV><FONT size=3D2>=1B$B$4;XF3$/$@$5$$=1B(B</FONT></DIV>
<DIV><FONT size=3D2>VB6.0SP5</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>Option Explicit</FONT></DIV>
<DIV><FONT size=3D2>Private WithEvents evsqldmobackup As=20
SQLDMO.Backup<BR></FONT></DIV>
<DIV><FONT size=3D2>Private Sub command1_Click()<BR> =
Dim=20
objsqlserver As SQLDMO.SQLServer<BR> Dim objbackup As=20
SQLDMO.Backup</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2> Set objbackup =3D New=20
SQLDMO.Backup<BR> Set objsqlserver =3D New=20
SQLDMO.SQLServer<BR> Set evsqldmobackup =3D=20
objbackup<BR> objsqlserver.Connect "abc", "sa",=20
"*******"<BR> objbackup.Action =3D=20
SQLDMOBackup_Database<BR> objbackup.Database =3D=20
"aaadb"<BR> objbackup.Files =3D=20
"c:\dbback.bak"<BR> objbackup.SQLBackup =
objsqlserver =20
'=1B$B$3$3$G%(%i!<=1B(B<BR> Set objsqlserver =3D =
Nothing<BR>end sub</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>=1B$B<B9T;~%(%i!<=1B(B</FONT></DIV>
<DIV><FONT=20
size=3D2>=1B$B!N=1B(BSQL-DMO]=1B$B%3!<%I<B9TNc30!!=1B(BEXCEPTION_ACCESS_V=
LOLATION</FONT></DIV></BODY></HTML>
------=_NextPart_000_000F_01C4D875.5B96CFC0--
| [MSDE/SQLServerに関して、今、どんなことにお困りですか？] |
| よろしければお困りの内容を、電子メールで教えて下さい。 |
|
質問を電子メールで作成する
|
[ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧]
|
