tofu14のプロフィール

id s_no s_name ---------------- 1 001 aaaa 2 005 bbb1 3 005 bbb2 4 002 cccc 5 005 bbb3 6 005 bbb4 上のものがテーブルの内容です。取得したい結果が ---------------- 1 001 aaaa 4 002 cccc 5 005 bbb3 です。 試したSQLは select distinkd on (s_no) id,s_name from shain where id>=5 order by id desc select id,s_no,s_name from shain where id>=5 group by s_no order by id desc などです。 データベースがmdbなのでdistinkd onは使えませんでした。 もしかすると書式が違うのでしょうか？

初めまして。初めての質問です。 なにぶん素人ですので、質問もわかりにくいかもしれませんが、ご了承下さいませm(__)m WebサイトにFLASHで作成したメニューを使っております。 最近、IEのバージョンの関係でJSファイルに記述しなければアクティブにならないとの事を知り、JSファイルにFLASHのコードを書き、それで問題なく使えていました。 さて、今回SSLのサイト(https)で同じ事をしたのですが、「セキュリティ保護のため、保護されていないコンテンツの表示がInternetExplorerによりブロックされました」というメッセージが表示されてしまいます。 クリックして、「ブロックされたコンテンツを表示」を選ぶと問題なく使えるのですが・・・ FLASHのコードをHTMLに書いている時は、このようなメッセージは表示されませんでした。 (しかし、FLASHメニューを一回クリックしてアクティブにする必要がありましたが) 毎回このメッセージ(情報バー？)が表示されるので、なんとか表示されないようにしたいと思っています。 どなたか、回避方法をご存知のかた、ご教授お願い致します！！

Ａ（ＰＣのこと）とＢをプリンタを共有しようとして。いきづまってしまいました。 AとBはLANでインターネットにつながっています。 どちらもWindowsXpです。 Ａ　→　Ｂ　（ping通ります） Ａ　→　Ａ （ping通りません） Ｂ　→　Ａ （ping通りません） Ｂ　→　Ｂ　 （ping通ります） つまり、Ａに対してだけ通らないのです。 ファイヤーオールを無効にしても試しましたが無理でした。 なにかほかに確認することがあるのでしょうか？

Access2000でデータを抽出し、Excel2000に出力する作業を行っています。 VBAで以下のような記述で行っています。 'ファイルパス指定 lBookNm = "D:\temp\test.xls" 'Excelのオブジェクトを設定 Set lExcelObj = CreateObject("Excel.Application") 'Excelを開く lExcelObj.Workbooks.Open (lBookNm) 'Excelの表示 lExcelObj.Application.Visible = True 'シートのコピー lExcelObj.Worksheets("master").copy After:=lExcelObj.Worksheets("master") lExcelObj.Worksheets("master (2)").Name = "テスト" 'シートの操作 With lExcelObj.Worksheets("master") .Activate .Cells(8, 1).Value = "test" End With lExcelObj.ActiveWorkbook.Save '保存 以下の２点について、わかる方おりましたらご教示お願いします。 １、罫線の削除 罫線を削除したいと思い、以下の記述をしましたが、 「アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいます。 どのように記述すればよいでしょうか。 With lExcelObj.Worksheets("master") 　　.Range("B39:B42").Select 　　.Application.Selection.Borders(xlEdgeRight).LineStyle = xlNone End With ２、シートの削除 シートを削除したいと思い、以下のように記述しましたが、 Excel上で、「シートを削除します。」「OK」、「キャンセル」 と問い合わせ画面が出てしまいます。 無条件で削除を行いたいのですが、可能でしょうか。 lExcelObj.Worksheets("テスト").Delete

Access2000でデータを抽出し、Excel2000に出力する作業を行っています。 VBAで以下のような記述で行っています。 'ファイルパス指定 lBookNm = "D:\temp\test.xls" 'Excelのオブジェクトを設定 Set lExcelObj = CreateObject("Excel.Application") 'Excelを開く lExcelObj.Workbooks.Open (lBookNm) 'Excelの表示 lExcelObj.Application.Visible = True 'シートのコピー lExcelObj.Worksheets("master").copy After:=lExcelObj.Worksheets("master") lExcelObj.Worksheets("master (2)").Name = "テスト" 'シートの操作 With lExcelObj.Worksheets("master") .Activate .Cells(8, 1).Value = "test" End With lExcelObj.ActiveWorkbook.Save '保存 以下の２点について、わかる方おりましたらご教示お願いします。 １、罫線の削除 罫線を削除したいと思い、以下の記述をしましたが、 「アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいます。 どのように記述すればよいでしょうか。 With lExcelObj.Worksheets("master") 　　.Range("B39:B42").Select 　　.Application.Selection.Borders(xlEdgeRight).LineStyle = xlNone End With ２、シートの削除 シートを削除したいと思い、以下のように記述しましたが、 Excel上で、「シートを削除します。」「OK」、「キャンセル」 と問い合わせ画面が出てしまいます。 無条件で削除を行いたいのですが、可能でしょうか。 lExcelObj.Worksheets("テスト").Delete