プログラマーの雑記: 3月 2013

2013年3月29日金曜日

vb datetimepickerから日本語曜日を取得する

vb datetimepickerから日本語曜日を取得する

Private Function GetDayOfWeekJp(ByVal myDate As DateTimePicker) As String
Return ("日月火水木金土").Substring(m_dtpNouhin.Value.DayOfWeek)
End Function

2013年3月27日水曜日

vb backcolorを規定のcontrolにする

vb backcolorを規定のcontrolにする

xxxx.Style.BackColor = SystemColors.Control

2013年3月26日火曜日

mysql リモートアクセス　許可設定

１．my.ini修正

[mysqld]
user            = mysql
pid-file        = /var/run/mysqld/mysqld.pid
socket          = /var/run/mysqld/mysqld.sock
port            = 3306
basedir         = /usr
datadir         = /var/lib/mysql
tmpdir          = /tmp
language        = /usr/share/mysql/English
bind-address    = 65.55.55.2
# skip-networking
....
..
....

２．mysql> CREATE DATABASE foo;
mysql> GRANT ALL ON foo.* TO bar@'202.54.10.20' IDENTIFIED BY 'PASSWORD';

３．3306ポート空く

/sbin/iptables -A INPUT -i eth0 -p tcp --destination-port 3306 -j ACCEPT

最後ログインできるはず

$ mysql -u webadmin –h 65.55.55.2 –p

You can also use the telnet or nc command to connect to port 3306 for testing purpose:
$ echo X | telnet -e X 65.55.55.2 3306
OR
$ nc -z -w1 65.55.55.2 3306
Sample outputs:

Connection to 65.55.55.2 3306 port [tcp/mysql] succeeded!

参考URL

2013年3月25日月曜日

vb string date 変換

 Dim edate = "10/12/2009"
 Dim expenddt As Date = Date.ParseExact(edate, "dd/MM/yyyy", 
            System.Globalization.DateTimeFormatInfo.InvariantInfo)

 Dim format() = {"dd/MM/yyyy", "d/M/yyyy", "dd-MM-yyyy"}
 Dim expenddt As Date = Date.ParseExact(edate, format,  
     System.Globalization.DateTimeFormatInfo.InvariantInfo, 
     Globalization.DateTimeStyles.None)

Dim format() = {"dd/MM/yyyy", "d/M/yyyy", "dd-MM-yyyy"}
Dim expenddt As Date
Date.TryParseExact(edate, format, 
    System.Globalization.DateTimeFormatInfo.InvariantInfo, 
    Globalization.DateTimeStyles.None, expenddt)

2013年3月19日火曜日

vb MySqlDataReader Null判断　

vb.netで MySqlDataReader Nullチェック方法

if Not (myDataReader is Nothing)
myDataReader.Close()
end if

2013年3月6日水曜日

VB.NET フォーム　イベント　順序

VB.NET フォーム　イベント　順序

起動する時

閉じるとき：

2013年3月5日火曜日

vb.net datagridview 選択クリア

vb.net datagridview 選択クリア

全ての選択クリア
datagridview.ClearSelection()

とあるセルの選択クリア
datagridview.Rows(iy).Cells(ix).Selected = False

2013年3月4日月曜日

Telnet サーバーから切断するコマンド

Telnet ログアウトコマンド

下記の三つのステップ

ｓ１：Ctrl+]　　　一緒に押す

s2: quit 4文字を入力

s3: Enter　　　キーを押す