@Blog

検索する

大体、知ったかぶり。男は自分のために嘘をつき、女は他人のために嘘をつく。

2015.03.12

Logging

あるTVを見てふと・・・。男は自分のために嘘をつき、女は他人のために嘘をつく事が多いようです。嘘をつかなかったら世の中回らない気もします。良い嘘も有れば悪い嘘もあるわけですが、じぶんは嘘をつく事が比較的に少ない感じです、嘘をつくと後々、その嘘を覚えとかないといけなくなるという事が発生するので、嘘をつかないようにしています。覚えるのが面倒なので・・・・。嘘はつかない変りに誤解されても自分から否定をしないというのが昔からの悪い癖です。誤解されたら誤解されたまま、まぁ基本的にどうでもいいです（すごい変な誤解以外）。たぶん、自分の感覚で言えばどうでも良い事が他の人達にはどうでも良くない事だったりするので、いまの歳になっても他人とズレてるなという感覚があります。自分が重視するのは結果であって流れは極端な話、どうでもいいです。原因を見つけるときは流れが大事になります。矛盾している話ですが、その結果へ持っていくことが出来れば流れなんて言うものはどうでもいいです。ちょっと昔の漫画家、赤塚不二夫先生、自身、絵が得意ではなかったのでアシスタントさんが絵を書いていた。ストーリーやキャラは考えるものの、具現化するのはアシスタントさんだった。この赤塚不二夫先生の考えに似ているですね。自分に出来ないことは人にやってもらおうって言う感覚です。やろうとしようする努力は大事だと思いますけど、得意な分野はそれを得意とする人にしてもらった方が効率が良いっていう話です。仕事の場合は不得意な分野でもやらないといけない時がくるのも確かです。
 

タグ

１, アシスタント, じぶん, ストーリー, 世の中, 他人, 具現化, 分野, 効率, 嘘, 変り, 後々, 悪い癖, 感覚, 流れ, 漫画家, 知ったかぶり, 結果, 誤解以外, 赤塚不二夫先生,

効かないSEO対策、Facebookいいね。嘘と本当。

2014.11.16

Logging

効かないSEO対策の中で、Facebookのいいね対策がありますが、純正の「いいね」でない限り効果は望めません。例えば、ココナラなどで500円支払いって1000件の「いいね」を取得してもSEO対策としては効果はないです。何故なら、この「いいね」は全てアメリカなどの海外からの「いいね」になっています（JPも多少あり）。また、自動生成により作らてたFacebookアカウントであるからです。なので、SEO対策としては効果は0に等しいです。
ちなみに自分のいいねの大半はこのサービスを誰かが使用して付けられた「いいね」の可能性があります。
ココナラは格安でいろいろと支援してくれるサービスなど良いのですがSEO対策はあまりよい効果が生まれないと考えています。なので使用する場合は注意が必要になります。

 

タグ

1000件, 500円, Facebook, jp, SEO対策, あまりよい効果, いいね, いいね対策, ココナラ, サービス, 全てアメリカ, 可能性, 嘘, 大半, 注意, 海外, 自動生成, 誰か, 限り効果,

ヘンな”きまり”を立ち読み、パラっと(´Д｀)

2014.08.30

Logging

ヘンなきまりを立ち読みして、一つだけあぁ面白いなと思ったことは、ホウレンソウをしない、何故なら報告には自分をよく見せたいための嘘が混ざっているからだそうだ。なるほどなという印象を受けました。確かにそうだと、これって親に子供が叱られた時にする嘘と同じだと、全部言うともっと怒られるのではないかと言う心理と似ている。ちょっとした嘘が溜まっていくとソレは大きな嘘になっていく。結局、それは自分にのしかかり重みになっていくと言う図式と一緒だと思いました。会社は学校の延長だとよくいう、ただ会社の場合、似たもの同士を集めだすと良い時は良いのだけど駄目になるときは一直線だということかもしれない。この人だから、この経営でうまく回っているだけで、同じように実践したトコロで同じ結果は生まれないと思います。
結局、上の仕事は人をうまく転がすことにあるのだなと思いました｛良い意味で手玉に取るっていう事でしょう｝。
付け足し：学級崩壊が起きるのと会社が傾く理由は似ている気がする。

タグ

きまり, ソレ, トコロ, ヘン, ホウレンソウ, 一直線, 付け足し, 会社, 印象, 同士, 嘘, 図式, 報告, 学級崩壊, 心理, 手玉, 立ち読み, 経営, 結局, 重み,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,