ちょっとメモ

2018年3月16日金曜日

「復元しています...」の状態のデータベースにアクセスできない

　　以下コマンドの実行
　　　use [master]
　　go
　　restore database [DB名] with recovery

2014年7月11日金曜日

リモートデスクトップ　接続時間を長くする

セキュリティ上は×ですが

１）ファイル名を指定して実行する　→　gpedit.msc
２）［コンピュータの構成］－［管理用テンプレート］－［リモートデスクトップサービス］－
　-　[リモートデスクトップセッションホスト]-［セッションの時間制限の設定］-
　　　[アクティブなリモート・・・制限時間]
　　（ユーザーごとに設定したい場合はユーザーの構成の[管理用テンプレート]を使用）
３）制限時間の設定を「有効」にし接続時間を選択します。

2014年6月19日木曜日

文字列をランダムで表示したい

●テストデータを作成するとき
　1)数値をランダムで入力したい場合はRANDBETWEEN関数を使います。
　2)文字列をランダムで入力したい場合は以下のマクロを作成します。

Sub str_randam()
　Dim myData(1 To 6) As String
Dim moji As Range

myData(1) = "a"
myData(2) = "b"
myData(3) = "c"
myData(4) = "d"
myData(5) = "e"
myData(6) = "f"

Randomize

For Each moji In Selection
moji.Value = myData(Int((Rnd * 6) + 1))
Next

End Sub

ランダムで入力したいセルを範囲指定後、上記マクロを実行します。

ファイルアップロード時のサイズを大きくするには（初期値200ＫＢ）

１）ＩＩＳ起動
２）対象のサイトを選択
３）ＩＩＳの要求フィルタをダブルクリック
４）操作ウィンドウの［機能設定の編集］をクリック
５）サイズ変更

2013年11月4日月曜日

windows7 IE10 json　郵便番号で住所変換ができなくなった

●windows7 で　IE10にするとこれまでできていた郵便番号による住所変換ができなくなった。

IEの画面でツール→互換表示設定→互換表示させたいWEBサイトのアドレスを追加することで解決。

2013年4月1日月曜日

IIS7.5 アクセス許可

アクセス許可とWEBサーバ構築方法が以下サイトにわかりやすく紹介されていました。

http://awoni.net/

2013年2月11日月曜日

日付けFORMATを変更するには

日付データの書式を変更する場合Convert関数を使用します。

select=列名1,列名2,CONVERT(VARCHAR,日付列名,111) as 別名
from テーブル名

　　結果　→　YYYY/MM/DD

パラメータ３つ目を１１にすると
　　結果　→　YY/MM/DD

パラメータ３つ目を１１２にすると
　　結果　→　YYYYMMDD

2013年2月6日水曜日

特定のフォルダを検索させない

参考にしたサイト

http://japan.internet.com/busnews/20100601/8.html

行をランダムにする

ランダムの結果１件だけを表示する場合
SELECT TOP 1 * FROM ｘｘｘｘｘｘ order by newid()
ランダムで全ての行を表示する場合
SELECT * FROM ｘｘｘｘｘｘ order by newid()

2012年10月31日水曜日

CSVファイルの取り込み後のデータをDBに追加するには

call DbOpen　　'DB接続モジュール

　　MySQL = "SELECT * FROM テーブル名"
　　MyREC.Open MySQL, MyRDB, 3, 3, 1

　　Set fs = CreateObject("Scripting.FileSystemObject")
　　filename=server.mappath("../k_mem/" & newf1)
　　Set readfile=fs.OpenTextFile(filename,1,False)

　　Do while not readfile.atendofstream
　　　　count=count+1
　　　　 if count>1 then
　　　　　　Text=readfile.readline
　　　　　　 data = split(Text, ",")　　　'CSV ファイルは，で分割されている前提
　　　　　　 MyREC.addnew
　　　　　　MyREC(列名A)=right(100000000000+data(2),10)　　'CSV３要素目のデータで桁数併せ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　のため０で穴埋め
　　　　　　MyREC("列名B")=data(3)　　　　　　　　　　　　　　　'４要素目のデータ
　　　　　　MyREC("列名C")="01"　　　　　　　　　　　　　　　　　'CSVから取り込まず、固定値
　　　　　　MyREC.update
　　　　　　dummy=left(data(1),10)
　　　　end if
　　loop
　　readfile.close
　　set readfile=nothing
　　set fs=nothing

call c_DbClose()　　'DB切断モジュール

★例：　Split(text ,",",3,1) カンマ区切りデータの３要素をテキスト形式で比較します。

　　　　 Split(text ,",") カンマ区切りデータの全ての要素をバイナリ形式で比較します。

2012年8月16日木曜日

テーブルをそのままコピーするには

既存テーブルをデータごとコピーしたいときは（Microsoft SQL)

SELECT * INTO 新テーブル名　FROM 元テーブル名

新テーブルは前もってデータの定義をする必要などありませんが
KEY属性はコピーされないので、コピー後設定します。

2012年8月7日火曜日

リンク先の変更モジュール

アップロード先のサーバのディレクトリーがLocalと異なっており、参照テーブルがある場合、
Loacalでリンクテーブルの参照先を前もって変更しておく必要があります。
以下モジュールを実行後、サーバにアップします。

Option Compare Database
Option Explicit
Sub リンク先DBの変更()
Dim strOldPath As String
Dim strNewPath As String

'strOldPath = リンク元のファイルのパス(変更前)
'strNewPath = リンク元のファイルのパス(変更後)

strOldPath = "F:\AAAA\BBBB.mdb"
strNewPath = "D: \AAAA\BBBB.mdb "

Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
If (tbl.Connect <> "") Then
tbl.Connect = Replace(tbl.Connect, strOldPath, strNewPath)
tbl.RefreshLink
End If
Next

End Sub

2012年6月22日金曜日

連番を初期化

テーブルのデータを削除後、連番を初期化する場合
DBCC CHECKIDENT ("テーブル名", RESEED,0)
１からスタートします。
テーブルのデータを一部削除後、最大値の追番を振りたい場合
DBCC CHECKIDENT ("テーブル名", RESEED,3)
　　４からスタートします。

2012年6月16日土曜日

Webサイトにデータベースの内容を表示せず、ダイレクトにexcelファイルで保存するには

<meta><html>を以下設定に変更します。
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis" />
</head>
<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40">

※ charset=shift_jis" は文字化けを防ぐ為
<html>内でデータベースにアクセスし<table>タグを利用してデータをかきだします。
列名は　MyREC.fields(i).nameで取得することができます。
エクセルに出力したときに数字-数字や数字/数字で表示されている列は
日付けとして出力してしまうので str　を使って文字列として出力させます。

response.write "<td x；str>" & MyREC(i) & "</td>"
</html>の下に以下を追加します。
<%
　　 response.flush 'バッファに格納されているデータを出力
response.end 'aspの処理を終了
%>

ラジオボタンが小さくてタップしにくい

PC用のサイトのまま、スマートフォン用にラジオボタンの縦横の幅を大きくすると
PC用画面での見栄えが悪くなってしまいます。
とりあえずの方法として

CSSに以下を追加　(文字列を少し大きめに）
label {
font-size：１．２em；
}
ラジオボタンの前後を<label>で囲む
　　<label onclick="radio_on;">
<input type="radio" name="xxx" value="yyy" onclick="function2;" />文字列
</label>
function1に該当する部分をダミーで作成
<script type="text/javascript">
　　 function radio_on() {

　　　}
</script>

　　※ラジオボタンを<label>で囲むことで文字列の領域もタップの範囲となります。
　　　onclick部分がないとiPhoneでは正しく動作しません。

2012年4月29日日曜日

四捨五入

四捨五入でroundを使用しない

round(2.25,1) →　2.2
formatnumber(2.25,1)　→ 2.3

2012年4月18日水曜日

データ追加と更新

※1　call DbOpen()
　　MySQL="SELECT テーブル名.* FROM テーブル名 where 条件
　　MyREC.Open MySQL, MyRDB,3,3

　　If MyREC.EOF = true then 'レコードがなければ挿入　新規行を追加
　　　　MyREC.AddNew
　　　　MyREC.Fields("列名1").value=値

　　　　MyREC.Fields("列名2").value=値

　　else
　　　　MyREC.Fields("列名2").value=値
　　end if

　　MyREC.Update
※2 call b_DbClose

※部分はインクルードファイルの中で定義しておく

'===============================

' ※1DB OPEN　（SQL　サーバ認証の場合）

'===============================

function DbOpen()

'##### コネクションオブジェクトの生成 #####

Set MyRDB = Server.CreateObject("ADODB.Connection")

'##### レコードセットオブジェクトの生成 #####

Set MyREC = Server.CreateObject("ADODB.Recordset")

　　 Set MyCMD = Server.CreateObject("ADODB.Command")

MyRDB.ConnectionString = "Provider=SQLOLEDB; Data Source='サーバー名'; Initial Catalog=データベース名;User ID=ログイン名;Pwd=パスワード;"

　　　　MyRDB.Open

end function

'===============================

' ※2DB CLOSE

'===============================

function c_DbClose()

MyREC.Close

set MyREC = Nothing

MyRDB.close

set MyRDB = Nothing

end function

親ディレクトリーのインクルードファイルを参照させる

IISを開く
該当のサイトを選択
IISの中の「ASP」をダブルクリック
分類＜動作＞の中の親パスを有効にするをTrueにする。

2012年3月22日木曜日

windows server 2008R2 でIEが操作しにくい

Windows Server 2008R2インストール後、IEのセキュリティが固く、何かをクリックするたびにメッセージがでてしまう。

サーバーマネージャー」を起動しセキュリティー情報欄の右下にある「IE ESCの構成」をクリック
セキュリティ強化構成の中で「Administrators」グループは　OFFにする。

登録: 投稿 (Atom)

ちょっとメモ

2018年3月16日金曜日

「復元しています...」の状態のデータベースにアクセスできない

2014年7月11日金曜日

リモートデスクトップ　接続時間を長くする

2014年6月19日木曜日

文字列をランダムで表示したい

ファイルアップロード時のサイズを大きくするには（初期値200ＫＢ）

2013年11月4日月曜日

windows7 IE10 json　郵便番号で住所変換ができなくなった

2013年4月1日月曜日

IIS7.5 アクセス許可

2013年2月11日月曜日

日付けFORMATを変更するには

2013年2月6日水曜日

特定のフォルダを検索させない

行をランダムにする

最新郵便番号辞の更新手順

2012年10月31日水曜日

CSVファイルの取り込み後のデータをDBに追加するには

2012年8月16日木曜日

テーブルをそのままコピーするには

2012年8月7日火曜日

リンク先の変更モジュール

2012年6月22日金曜日

連番を初期化

2012年6月16日土曜日

Webサイトにデータベースの内容を表示せず、ダイレクトにexcelファイルで保存するには

ラジオボタンが小さくてタップしにくい

2012年4月29日日曜日

四捨五入

2012年4月18日水曜日

データ追加と更新

親ディレクトリーのインクルードファイルを参照させる

2012年3月22日木曜日

windows server 2008R2 でIEが操作しにくい

フォロワー

ラベル