2008年7月アーカイブ

東京ウェディングコレクション なるものにいってきました。 ウェディング業界は、広告の単価が高そう。 いつも人紹介1件につき、1,000円ぐらいの単価の仕事をしている僕には夢のような商売だ。
安 穂野香(セーラー服おじさん)
 
 代表曲
 


 CDだしてた。やばすぎ! 夏にはDVDでるらしい。やばい!
accesでadoxを利用してフィールド追加する。
※参照設定で、Microsoft ADO Ext. 2.8 for DDl and Securityを参照設定すること。

Function AddFiled(strTName As String, strFName As String, intKata As Integer) As Boolean
'フィールドを追加する
'引数:テーブル名、フィールド名、フィールドの型 型は下記

On Error GoTo Err_Description
    Dim catdb As New ADOX.Catalog
    Dim tbladd As Table
    catdb.ActiveConnection = CurrentProject.Connection
    Set tbladd = catdb.Tables(strTName)
    tbladd.Columns.Append (strFName), intKata
    AddFiled = True
    Exit Function
Err_Description:
   If Err.Number = -2147217857 Then
       AddFiled = True
   Else
      AddFiled = False
      MsgBox Err.Number & " : " & Err.Description
   End If


End Function



'adBigInt   20
'adBinary   128
'adBoolean  11
'adBSTR 8
'adChapter  136
'adChar 129
'adCurrency 6
'adDate 7
'adDBDate   133
'adDBTime   134
'adDBTimeStamp  135
'adDecimal  14
'adDouble   5
'adEmpty    0
'adError    10
'adFileTime 64
'adGUID 72
'adIDispatch    9
'adInteger  3
'adIUnknown 13
'adLongVarBinary    205
'adLongVarChar  201
'adLongVarWChar 203
'adNumeric  131
'adPropVariant  138
'adSingle   4
'adSmallInt 2
'adTinyInt  16
'adUnsignedBigInt   21
'adUnsignedInt  19
'adUnsignedSmallInt 18
'adUnsignedTinyInt  17
'adUserDefined  132
'adVarBinary    204
'adVarChar  200
'adVariant  12
'adVarNumeric   139
'adVarWChar 202
'adWChar    130
accessで指定したテーブルが存在するか確認をする方法
MSysObjectsで
Name:オブジェクト名(テーブル名、クエリ名、モジュール名、、、)
Type:オブジェクトのタイプ「1」がテーブル

存在チェックをする関数
引数:strTName:調べたいてール部名
戻り値:ある場合はtrue
Function ReTableExists(strTName As String) As Boolean
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = gCN
        .Source = "select count(DateCreate) as 数 from MSysObjects where Name='" & strTName & "' and Type=1"
        .Open
        If !数 > 0 Then
            ReTableExists = True
        Else
            ReTableExists = False
        End If
        .Close
    End With
End Function
※gcnはコネクション。別途はっておくこと。
Microsoft Jet データベース エンジン SQL と ANSI SQL のデータ型

http://office.microsoft.com/ja-jp/access/HP010322291041.aspx

SQL データ型
http://office.microsoft.com/ja-jp/access/HP010322481041.aspx

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, ”インポート先テーブル名", "ファイル名", True, "シート名" & "!"

※シート名に!を付加するのを忘れずに!
※true:ヘッダー情報あり  

日本の借金時計


なかのひと


Firefox3 Meter
Chrome Counter 携帯アクセス解析

どこ?

どここjpの位置取得サービスを利用しています



Yahooログロール



ジオターゲッティング


ジオターゲティング

amazon