tomo316のプロフィール

@tomo316 tomo316
ありがとう数126
質問数1
回答数290
ベストアンサー数
51
ベストアンサー率
35%
お礼率
100%

  • 登録日2007/11/15
  • Windows7RC版を擬似的にVistaにする。

    何か雑誌で読んだのですが、あるファイルを書き換えることにより、Vistaとして認識させWindows7正式版(購入済みVerはUltimate)を上書きインストール出来るとの記憶があるのですが、本当でしょうか?クリーンインストールの方が良いに決まってますが、どなたかご指導お願いいたします。一番期待しているのは、何もせずそのまま上書きインストールできますよを、一番きたいしているのですが無理でしょうね。

  • 7を待たずVistaを買ったor人に勧める人たちの目的は何?

    Windows7ProにはXPモードがOSに含まれます。 VPCベースですからその互換性や安定性は多くの企業ですでに膨大な実績があります。安全です。 ライセンスを遵守する限りはVistaでVPCでWindowsXPを利用するためには安いHomoでも19800円ほどします。XPPROなら三万円です。 特にサポート期間が長いという理由でVistaのビジネスを進める回答が疑問です。長いといってもXPより3年長い程度でしょう。 Vista在庫の山に頭を抱えた人たちが苦し紛れに書き込んでるのか? そうでなかったとしたらどういう利益があるんでしょうか?

    • ベストアンサー
    • noname#86726
    • Windows 7
    • 回答数7
  • Windows 7 の XPモード

    ビスタの後継OSのウィンドウズ7にはXPモードというのがあり、仮想PC上で古いソフトを動かす事が出来るようなのですが・・・これはつまり、XPまでしか対応していない周辺機器、プリンタやスキャナ等も使用出来るという事でしょうか? よろしくお願いします。

  • SELinux: トラブルシューティング

    SELinuxはPemissiveモードにしているのですが、そのエラーメッセージが出ないように設定をしようと考えています。 [セキュアOS SELinux入門]第6回 最も簡単な設定方法 http://itpro.nikkeibp.co.jp/members/ITPro/oss/20040709/147059/ CentOS 4.0 - SELinux - エラーメッセージからポリシーを作成する http://park1.wakwak.com/~ima/centos4_selinux0009.html 以上のサイトを参考にしているのですが、インストールの段階でつまづいています。 # rpm -ivh checkpolicy* policy-sources* checkpolicyはどうやらインストールされているようですが、policy-sourcesの方はまだのようです。 しかし、なかなかpolicy-sourcesを見つけてダウンロードすることができずに困っています。 できれば、yumでインストールできるといいのですが…。 よろしくお願いします。

  • CSVファイルのインポート

    辞めた人のプログラムを書き換えています。 初心者なもので、あまりコードを理解しておりませんが、 一応できるところまで直してみました。 CSVファイルをアクセスにインポート、その後項目(FileName)を追加し、CSVのファイル名を追加した項目にいれたいです。 下記構文で、インポートまではできましたが 最後の方の dbs.Execute sql でエラーになります。 ここをクリアするにはどこを修正すればよろしいでしょうか? アクセスは2003です。 Private Sub Cmd_01_Click() Dim ercd As Integer Dim dbs As adodb.Connection Dim LsName As String Dim TName As String Dim Name1 As String Dim teigi As String Set dbs = CurrentProject.Connection If Nz(Me.txt_01) = "" Then MsgBox "インポートするファイル名を入力して下さい", vbOKOnly, "エラー" Me.txt_01.SetFocus Exit Sub End If 'ファイル名の取得 strError = 0 LsName = "\\St1\第2業務部\$運用\1010030 アールジービー\業務\RGB一時作業ファイル\なるには不備チェック\TESTkanno\" TName = Me.txt_01 LsName = LsName & TName & ".csv" 'インポートの確認 ret = MsgBox(TName & "をインポートしますか?", vbYesNo + vbQuestion, "インポート確認") If ret = vbNo Then Exit Sub End If Debug.Print LsName 'レコードの追加 teigi = "RGB定義" DoCmd.TransferText acImportDelim, teigi, TName, LsName, False, "" ret = MsgBox(TName & "をマスターに追加しますか?", vbYesNo + vbQuestion, "インポート確認") If ret = vbNo Then Exit Sub End If Call FileTuika End Sub Sub FileTuika() Dim sql As String Dim aa As Long sql = "INSERT INTO T_Mas (処理状況,請求日,学校識別コード,学校名,学校分類名,メールアドレス,名前,ふりがな,性別,生年月日,職業,高校所在地,高校名,学年,郵便番号,都道府県,区市町村&町域,番地以下,電話番号,FileName,区分,不備,不備理由,yu,gid,保留,処理済,件数報告日,納品日 )" & _ " SELECT [" & T_Mas & "].[処理状況], [" & T_Mas & "].[請求日]," & _ " [" & T_Mas & "].[学校識別コード], [" & T_Mas & "].[学校名], [" & T_Mas & "].[学校分類名], [" & T_Mas & "].[メールアドレス]," & _ " [" & T_Mas & "].[名前], [" & T_Mas & "].[ふりがな], [" & T_Mas & "].[性別], [" & T_Mas & "].[生年月日]," & _ " [" & T_Mas & "].[職業], [" & T_Mas & "].[高校所在地], [" & T_Mas & "].[高校名], [" & T_Mas & "].[学年]," & _ " [" & T_Mas & "].[郵便番号], [" & T_Mas & "].[都道府県], [" & T_Mas & "].[区市町村&町域], [" & T_Mas & "].[番地以下]," & _ " [" & T_Mas & "].[電話番号], '" & LsName & "'," & FileName & " From" & "LsName" Debug.Print sql dbs.Execute sql dbs.Close Set dbs = CurrentDb() With dbs For Each tdfa In .TableDefs If tdfa.Name = TName Then dbs.TableDefs.Delete tdfa.Name End If Next tdfa End With dbs.Close End Sub