なんでも掲示板

[88] 題名:Re[86]:DataGridに和暦表示させたい 投稿者:梁川 投稿日:2003/02/26 23:48 　

本職にて忙しく御連絡遅くなりました。
下記のプログラム文面をACCESS97のデータの場合、OLEDB.4.0では動かず3.51にて実行しましたが日付データだけは、データグリッド上には
、どうしても和暦表示（2003年02月27日）にならず西暦表示（02/02/27）にしかなりません。何か良い方法ありませんか？？
また、ACCESS97で複数のテーブルを参照する方法ありますか？？
（あるテーブルのフィールド参照は可能なのですが・・・）

宜しくお願いします。

>Option Explicit
>
>Private cn As ADODB.Connection
>Private rs As ADODB.Recordset
>
>Private Sub Form_Load()
> ' データベースに接続
> Set cn = New ADODB.Connection
> cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WORK\2000Book.mdb"
> cn.Open
> ' レコードセットを取得
> Set rs = New ADODB.Recordset
> With rs
> .ActiveConnection = cn
> .CursorLocation = adUseServer
> .CursorType = adOpenKeyset
> .LockType = adLockOptimistic
> .Properties("IRowsetIdentity") = True 'コメントを外すとデータを表示できます
> .Open "SELECT * FROM 本", , , , adCmdText
> End With
> ' データグリッド コントロールに取得したレコードセットを表示
> Set DataGrid1.DataSource = rs
>End Sub
>

[87] 題名:INET 投稿者:近藤 投稿日:2003/02/20 22:33 　

http://support.microsoft.com/default.aspx?scid=kb;ja;409931
より、
POST メソッドで ASP のページにデータを送れない。
Execute メソッドは送信するデータに対して HTTP で定義されている URL エンコーディングを行いません。従って URL エンコードされていないデータを受信できない ASP や CGI プログラムはデータを受け取ることが出来ません。エンコードを行った上で、Execute メソッドの第 4 引数に以下の文字列を指定してください。
"Content-Type: application/x-www-form-urlencoded" & vbCrLf
との事。
　４番目に上記の、文字列を指定しないと機能しない！！

[86] 題名:DataGrid を実行時にデータ連結する方法 AC2000 MDB 投稿者:近藤 投稿日:2003/01/29 16:04 　

Option Explicit

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
' データベースに接続
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WORK\2000Book.mdb"
cn.Open
' レコードセットを取得
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Properties("IRowsetIdentity") = True 'コメントを外すとデータを表示できます
.Open "SELECT * FROM 本", , , , adCmdText
End With
' データグリッド コントロールに取得したレコードセットを表示
Set DataGrid1.DataSource = rs
End Sub

[85] 題名:DataGrid を実行時にデータ連結する方法 ＡＣ 投稿者:近藤 投稿日:2003/01/29 16:03 　

Option Explicit

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
' データベースに接続
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WORK\2000Book.mdb"
cn.Open
' レコードセットを取得
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Properties("IRowsetIdentity") = True 'コメントを外すとデータを表示できます
.Open "SELECT * FROM 本", , , , adCmdText
End With
' データグリッド コントロールに取得したレコードセットを表示
Set DataGrid1.DataSource = rs
End Sub

[84] 題名:[VB] DataGrid を実行時にデータ連結する方法 投稿者:近藤 投稿日:2003/01/29 15:59 　

http://www.microsoft.com/japan/support/kb/articles/189/6/68.asp

[83] 題名:[VB] Jet.OLE DB 4.0 Provider で DataGrid に表示できない 投稿者:近藤 投稿日:2003/01/29 15:58 　

http://www.microsoft.com/japan/support/kb/articles/224/1/92.asp

[82] 題名:Re[81]:DataGridへの表示方法を教えて！！ 投稿者:近藤 投稿日:2003/01/23 21:00 　

>例えば”2002年01月22日”と表示されたAccessデータをADO接続しDataGridプロパティの日付を2002年01月22日にすれば表示は出来るのですが、ADOの使わずにDataGridに表示した場合、”02/01/22”と表示されてしまう！これを2002年01月22日にするには、どうすればよろしいでしょうか教えてください！！
>
DataGridプロパティで、行うことができませんか？

『ADOの使わずにDataGridに表示した場合』って、意味がわかりませんが...

[81] 題名:DataGridへの表示方法を教えて！！ 投稿者:梁川 投稿日:2003/01/22 20:29 　

例えば”2002年01月22日”と表示されたAccessデータをADO接続しDataGridプロパティの日付を2002年01月22日にすれば表示は出来るのですが、ADOの使わずにDataGridに表示した場合、”02/01/22”と表示されてしまう！これを2002年01月22日にするには、どうすればよろしいでしょうか教えてください！！

[80] 題名:DataGridへの表示方法を教えて！！ 投稿者:梁川 投稿日:2003/01/22 18:43 　

例えば”2002年01月22日”と表示されたAccessデータをADO接続しDataGridプロパティの日付を2002年01月22日にすれば表示は出来るのですが、ADOの使わずにDataGridに表示した場合、”02/01/22”と表示されてしまう！これを2002年01月22日にするには、どうすればよろしいでしょうか教えてください！！

[79] 題名:Re:VCで*.mdb のソートができない 投稿者:近藤 投稿日:2002/11/30 21:35 　

>１．ＶＣ６.０　ＷｉｎＸｐ
>
>　test\db.mdb 下記のテーブル定義のみ
>　ODBC経由、基本クラスは CRecordset
>
> Pin RaceName Distance
>----------------------------
> 2 200 220
> 1 100 110
> 4 400 440
> 3 300 330
> 5 500 550
>
>　レコード削除、追加、更新は可能ですが、
>ソートがうまくいきません。
>　cstr に１列目"Pin"をセットして
> 　m_Rs.m_strSort = cstr;
> m_Rs.Requery();
> するだけなのですが動作しません。
>
>
>// レコード昇順ソート キー１個 ( CStinrg cstr)
>// 戻り値：０：正常 −１：なし cstr:第１キー
>int CTest_dbDlg::RecDataSort1( CString cstr)
>{
>// TODO: この位置にコントロール通知ハンドラ用のコードを追加してください
>
>#if 0　// オープンタイプ
>m_Rs.Close();
>// ソート文字列を設定します。
>// m_Rs.m_strSort = cstr + "ASC";
>m_Rs.m_strSort = cstr; // デフォルト：昇順:ASC
>
>// ソート クエリーを実行します。
>m_Rs.Open( CRecordset::snapshot, "MyRs" );//テーブル名
>// m_Rs.Open();
>m_Rs.Requery();
>#else　//　リクエリータイプ
>// ソート文字列を設定します。
>// m_Rs.m_strSort = cstr + " ASC";
>m_Rs.m_strSort = cstr; // デフォルト：昇順:ASC
>
>// ソート クエリーを実行します。
>if( !m_Rs.CanRestart())
> 　　　　　return -1;
>m_Rs.Requery();
>#endif
>return 0;
>}
>