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 リモートアクセス 許可設定

1.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
....
..
....
2.mysql> CREATE DATABASE foo;
mysql> GRANT ALL ON foo.* TO bar@'202.54.10.20' IDENTIFIED BY 'PASSWORD';

3.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)
OR
 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)
OR
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月5日火曜日

vb.net datagridview 選択 クリア

vb.net datagridview 選択 クリア


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

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

2013年3月4日月曜日

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


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

Telnet ログアウトコマンド
下記の三つのステップ
s1:Ctrl+]   一緒に押す
s2: quit            4文字を入力
s3: Enter   キーを押す