Date: Sun, 10 Mar 2002 07:04:01 +0900
From: "Tadao Tomituka" <who@example.co.jp>
This is a multi-part message in MIME format.
------=_NextPart_000_0047_01C1C801.C19BF2F0
Content-Type: text/plain;
charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
はじめまして、Tomitukaと申します
早速質問させていただきます。
下記のコードの中の再同期コマンドの定義がわかりません。
よろしくお願いします。
'***************************************************
' フォーム初期化時にレコードセットを作成して連結を行う
'***************************************************
'
Private Sub Form_Load()
'ADOの接続
Dim cn As ADODB.Connection
'ADOレコードセットを作成する
Dim rs As New ADODB.Recordset
'現在のAccessプロジェクトの接続を取得する
Set cn = CurrentProject.Connection
'レコードセットのプロパティを設定する
'例題05フォームで調査した値と同じ値を設定する
rs.CursorLocation = adUseServer
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
'[医師患者]ビュー表を開く
rs.Open "医師患者", cn, , , adCmdTable
'次のSELECT文を実行してもよい
'*** rs.Open "SELECT 患者.患者ID,患者.姓,患者.名,患者.主治医ID,医師.医師
名," & _
'*** "医師.医師TEL FROM 患者 INNER JOIN 医師 ON 患者.主治医ID =
医師.医師ID", _
'*** cn, , , adCmdText
'再同期コマンドを定義すること
Me.ResyncCommand = "Resync_医師患者 @no=?"
'フォームのレコードセットを定義する
Set Me.Recordset = rs
'【固有のテーブル】プロパティをセット
'このプロパティの設定は、レコードセットを代入した後で行うこと
'代入前で実行すると、更新可能なフォームにはならない
Me.UniqueTable = "患者"
'念ため再クエリーの実行
Me.Requery
End Sub
------=_NextPart_000_0047_01C1C801.C19BF2F0
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.2600.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$O$8$a$^$7$F!"=1B(BTomituka=1B$B$H?=3D$7$^$9=1B(B</FONT></D=
IV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$BAaB.<ALd$5$;$F$$$?$@$-$^$9!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B2<5-$N%3!<%I$NCf$N:FF14|%3%^%s%I$NDj5A$,$o$+$j$^$;$s!#=1B(B=
</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$h$m$7$/$*4j$$$7$^$9!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" size=3D2></FONT> </DIV>
<DIV>'***************************************************<BR>'=20
=1B$B%U%)!<%`=3Di4|2=3D;~$K%l%3!<%I%;%C%H$r:n@.$7$FO"7k$r9T$&=1B(B<BR>'**=
*************************************************<BR>'<BR>Private=20
Sub Form_Load()<BR> =
'ADO=1B$B$N@\B3=1B(B<BR> Dim cn As=20
ADODB.Connection<BR> <BR> =20
'ADO=1B$B%l%3!<%I%;%C%H$r:n@.$9$k=1B(B<BR> Dim rs As =
New=20
ADODB.Recordset<BR><BR> =20
'=1B$B8=3D:_$N=1B(BAccess=1B$B%W%m%8%'%/%H$N@\B3$r<hF@$9$k=1B(B<BR> =
Set cn =3D=20
CurrentProject.Connection<BR> =20
<BR> =
'=1B$B%l%3!<%I%;%C%H$N%W%m%Q%F%#$r@_Dj$9$k=1B(B<BR> =20
'=1B$BNcBj=1B(B05=1B$B%U%)!<%`$GD4::$7$?CM$HF1$8CM$r@_Dj$9$k=1B(B<BR>&nbs=
p; rs.CursorLocation =3D=20
adUseServer<BR> rs.CursorType =3D=20
adOpenStatic<BR> rs.LockType =3D=20
adLockOptimistic<BR> <BR> =20
'[=1B$B0e;U45<T=1B(B]=1B$B%S%e!<I=3D$r3+$/=1B(B<BR> =
rs.Open "=1B$B0e;U45<T=1B(B", cn, , ,=20
adCmdTable<BR> <BR> =20
'=1B$B<!$N=1B(BSELECT=1B$BJ8$r<B9T$7$F$b$h$$=1B(B<BR> =
'*** rs.Open "SELECT=20
=1B$B45<T=1B(B.=1B$B45<T=1B(BID,=1B$B45<T=1B(B.=1B$B@+=1B(B,=1B$B45<T=1B(=
B.=1B$BL>=1B(B,=1B$B45<T=1B(B.=1B$B<g<#0e=1B(BID,=1B$B0e;U=1B(B.=1B$B0e;U=
L>=1B(B," & _<BR> =20
'*** =
"=1B$B0e;U=1B(B.=1B$B0e;U=1B(BTEL FROM =1B$B45<T=1B(B=20
INNER JOIN =1B$B0e;U=1B(B ON =1B$B45<T=1B(B.=1B$B<g<#0e=1B(BID =3D =
=1B$B0e;U=1B(B.=1B$B0e;U=1B(BID", _<BR> =
'*** =20
cn, , , adCmdText<BR> <BR> =20
'=1B$B:FF14|%3%^%s%I$rDj5A$9$k$3$H=1B(B<BR> =
Me.ResyncCommand =3D "Resync_=1B$B0e;U45<T=1B(B=20
@no=3D?"<BR> <BR> =20
'=1B$B%U%)!<%`$N%l%3!<%I%;%C%H$rDj5A$9$k=1B(B<BR> Set =
Me.Recordset =3D=20
rs<BR> <BR> =20
'=1B$B!Z8GM-$N%F!<%V%k![%W%m%Q%F%#$r%;%C%H=1B(B<BR> =20
'=1B$B$3$N%W%m%Q%F%#$N@_Dj$O!"%l%3!<%I%;%C%H$rBeF~$7$?8e$G9T$&$3$H=1B(B<B=
R> =20
'=1B$BBeF~A0$G<B9T$9$k$H!"99?72DG=3D$J%U%)!<%`$K$O$J$i$J$$=1B(B<BR> =
Me.UniqueTable =3D=20
"=1B$B45<T=1B(B"<BR> <BR> =20
'=1B$BG0$?$a:F%/%(%j!<$N<B9T=1B(B<BR> =
Me.Requery<BR>End=20
Sub<BR><BR></DIV></BODY></HTML>
------=_NextPart_000_0047_01C1C801.C19BF2F0--
| [MSDE/SQLServerに関して、今、どんなことにお困りですか？] |
| よろしければお困りの内容を、電子メールで教えて下さい。 |
|
質問を電子メールで作成する
|
[ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧]
|
