vb2008でのDB接続メモ

DB接続メモ。
vb2008


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Using con As New System.Data.SqlClient.SqlConnection
                con.ConnectionString = _
                    "Data Source=.\SQLEXPRESS;" & _
                    "AttachDbFilename=|DataDirectory|\list.mdf;" & _
                    "Integrated Security=True;" & _
                    "User Instance=True"

                'DBを開く
                con.Open()

                '---<< DBの接続状態を確認>>---
                MessageBox.Show(con.State.ToString, "開いた直後")


                con.Close()
                '---<< DBの接続状態を確認>>---
                MessageBox.Show(con.State.ToString, "閉じた直後")
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "例外発生")
        End Try
    End Sub
End Class

Using ステートメント
End Usingを抜けると自動的にオブジェクトを破棄してくれるそうな。
2005以降で利用可能とのこと。
DB接続文字列は、app.configに書いてある内容をコピペ。

コントロールの操作

■ComboBox

・選択肢以外選べないようにする

DropDownStyle → DropDownList

・先頭の項目を表示

ComboBox1.SelectedIndex = 0

BindingNavigatorって名前なのか。

C++メモ

・mainから始まる

・セミコロンで終わる

・出力はcoutを使う[console outputの略]

・endlは改行を表す。文字を出力させる効果もある。

・flushは改行はしないが、文字を出力させる効果あり。

■文字/文字列
文字は、シングルクォーテーションで囲み
文字列は、ダブルクォーテーションで囲む

■インプット/アウトプット
出力は、cout << [出力したい物]
入力は、cin >> [変数]

■変数スコープ
ローカル変数もグローバル変数も実行時より上で宣言されていないとエラーとなる。

■制御構文
・if文
if(条件式){ 式; }

・for文(括弧内で変数宣言可)
for(初期設定文; 条件式; カウンタ変数の制御){ 式 }

・While文(先に評価）
while(条件式){ 式 }

・Do文(後で評価)
do { 式 } while(条件式);

・ループを抜ける/次のループ
break;
でループを抜け
continue;
で次のループに飛ぶ

■以下いつかまとめる。

・型　配列名[要素数]
・配列初期値　型　配列名[] = { 値１、値２、・・・値X};
・

vb.netめも

■変数宣言
Dim 変数名 As データ型
Dim 変数名 As データ型 = 初期値


■精度の高い計算結果等が欲しい場合、Decimal型を取り値(or式)の最後にＤを付ける。
Dim 変数名 As Decimal = 値(or 式)D


■日付リテラル
 Dim 変数名 As Date = #日付 時間#
 Dim 変数名 As Date = #日付#
 Dim 変数名 As Date = #時間#


■定数の使用
Const 定数名 As データ型 = 値


■アクセス修飾子
Public・・・どこからでもアクセス可
Protected・・・クラス内と派生クラスからのみ
Friend・・・同一のアセンブリ内のみ
Private・・・ 宣言されているクラス内のみ


■配列の宣言と初期値
Dim 変数名(要素数) As 型
Dim 変数名() As 型 = {値１, 値2, ・・・, 値Ｎ}

Dim 変数名(要素数１, 要素数２) As 型
Dim 変数名(,) As 型 = {{値11, 値12}, {値21, 値22},　・・・ {値N1, 値N2}}


■配列のメソッド
変数.Length　　　　　　・・・各次元の要素数の合計
変数.Rank　　　　　　　・・・次元の数
変数.GetLength(次元)･･･各次元の要素の数
変数.GetUpperBound･･･各次元の上限の要素番号

例)

Dim list(5, 3, 1) As String

Debug.Print(list.Rank) '３次元なので　「３」

Debug.Print(list.GetLength(0)) '１次元の要素の数「６」

Debug.Print(list.GetLength(1)) '２次元の要素の数「４」

Debug.Print(list.GetLength(2)) '３次元の要素の数「２」

Debug.Print(list.Length) '６要素　×　４要素　×　２要素　＝「４８」

Debug.Print(list.GetUpperBound(0)) '「５」
Debug.Print(list.GetUpperBound(1)) '「３」
Debug.Print(list.GetUpperBound(2)) '「１」



■配列の要素から最初に該当するインデックスを返す
Array.IndexOf(変数, "調査する文字列")

例)
Dim test() As String = {"aaa", "bbb", "ccc", "ddd", "aaa"}
Debug.Print(Array.IndexOf(test, "aaa")) '0を返す


■ArrayList
Dim 変数名 As new ArrayList
変数.Add("値") '値を追加
Debug.Print 変数(要素数) '値を表示

''一度に内容を表示
'リストボックス
ListBox1.Items.AddRange(変数.ToArray)

'イミディエイトウィンドウ
? 変数.ToArray


'全ての項目をクリア
変数.Clear


■連想配列
Dim 変数 As Hashtable = New Hashtable
変数("Key") = "Ｖａｌｕｅ"
Debug.Print 変数("Key")

if 変数.ContainsKey("Key") then Debug.Print "Keyは存在する"

' エントリ（キーと値）の列挙
For Each 変数 As DictionaryEntry In 連想配列
Debug.Print 変数.Key

  Debug.Print 変数.Value
Next


■算術演算
^　　　べき乗
+　　　加算
-　　　減算
*　　　乗算
/　　　除算
\　　　商
Mod　余り


■比較演算子
Like　文字列パターンの比較 "JavaScript" Like "Java*" → True

?・・・任意の１文字
*・・・任意の０個以上の文字
#・・・任意の数字１桁

[リスト]・・・[]内の任意の１文字
[!リスト]・・・[]内の文字以外の任意の１文字


■短絡評価演算子
AndAlse
OrElse