すべての機能をご利用いただくためには、JavaScriptの設定を有効にしてください。
設定方法は、ヘルプをご覧ください。

～ステキに感じるマイライフ～

ご訪問ありがとうございます。今日もステキな１日でありますように♪

お気に入りの人に登録/削除

過去の投稿日別表示

[ リスト | 詳細 ]

2005年12月24日

2005年12月23日 | 2005年12月25日

全1ページ

[1]

☆宇宙飛行士・ロケット☆

イメージ 1

イメージ 2

イメージ 3

イメージ 4

宇宙センターの展示室に飾られていたロケットの模型と宇宙飛行士の皆さんです。

実物の２０分の１のサイズになっているそうです。

ロケットの重さは２５０トン以上もあるそうです。

燃料タンクや固体燃料の組み合わせを変えて打ち上げる衛星の大きさや軌道の高さに

あわせた打ち上げが出来るそうです。

宇宙センターはいろんな分野から日本の宇宙開発を支えているんですね。

何処を見ても大きさに驚きです！

飛びたつ日に向けて特訓を受けている宇宙飛行士の皆さんに拍手と敬礼です。

コメント（8）

トラックバック（0）

データベースを操作してみよう②

データベースを操作してみよう①の続きです
【記述する】
イメージ 1

option Explict の次の行に
Const DLG_TITLE1 = "データベースの作成"
Const DB_FILE = "\j1.mdb"
Const CON1 = "Provider=Microsoft.Jet.OLEDB.4.0;Date Source="
Const CON2 = ";Jet OLEDB:Engine Type=5;"
Const SHEET_NAME = "Sheet1"
Const DB_PATH = "\data"
Const ST_ROW = 2
Type typekey

Key_Name As String
Key_ix As Integerと記述します

〔Visual Basic Editor〕のメニューバーの〔挿入〕→〔プロシージャ〕を選択します
〔プロシージャの追加画面〕が表示されたら名前に〔data_type〕と入力し種類で
〔Function〕を選択して〔ＯＫ〕を押します
Public Function data_type（）の
（）の中にtypedata As Stringと入力します

【プロシージャに入力する】
イメージ 2

このプロシージャに
Public Function data_type(typedata As String)
Dim rtn As Integer
Select Case typedata
Case "adBinary"
rtn = 128
Case "adBoolean"
rtn = 11
Case "adunsignedTinyInt"
rtn = 17
Case "adCurrency"
rtn = 6
Case "adDate"
rtn = 7
Case "adNumeric"
rtn = 131
Case "adDouble"
rtn = 5
Case "adGUID"
rtn = 72
Case "adSmallInt"
rtn = 2
Case "adInteger"
rtn = 3
Case "adLongVarBinary"
rtn = 205
Case "adLongVarWchar"
rtn = 203
Case "adSingle"
rtn = 4
Case "adVarWchar"
rtn = 202
End Select
data_type = rtn
End Functionと記述します
保存します
なおのＥｘｃｅｌ教室より