import java.util.Calendar;
public class Main {
public static void main(String[] args) throws Exception {
// 指定日からnヶ月後の月末を出力
int y = 2012;
int m = 12;
int d = 14;
int n = 2;
Calendar cal = Calendar.getInstance();
cal .set(y,m - 1, d);
dispDate(calendar);
cal .set(y,m - 1, 1);
cal .add(Calendar.MONTH, n + 1);
cal .add(Calendar.DATE, -1);
dispDate(cal);
}
private static void dispDate(Calendar cal ){
int year = cal .get(Calendar.YEAR);
int month = cal .get(Calendar.MONTH) + 1;
int day = cal .get(Calendar.DATE);
StringBuffer sb = new StringBuffer();
sb.append(year + "年" + month + "月" + day + "日");
System.out.println(new String(sb));
}
}
XLODBC
1
Driver=PostgreSQL Unicode;Server={IPアドレス等};Port={PortNo};Database={DB名};Uid={UserID};Pwd={Password};
SELECT TOP 100 * FROM batch_log ORDER BY create_date desc
SQLServer
XLODBC
1
Driver=SQL Server;Server={IPアドレス等};Uid={UserID};Pwd={Password};Database={DB名};Connect Timeout=15;
SELECT * FROM batch_log ORDER BY create_date desc LIMIT 1;
CREATE PROCEDURE csvToRows
@csv VARCHAR(MAX)
AS
BEGIN
DECLARE @exit_flg TINYINT = 0
DECLARE @i INT = 1
DECLARE @imax INT
DECLARE @buf VARCHAR(MAX)
BEGIN TRY
-- はじめにNULLや空白を回避
IF RTRIM(LTRIM(ISNULL(@csv,'')))=''
BEGIN
RAISERROR (N'NULLはダメ！', 18, 1)
END
CREATE TABLE #w_temp (
buf VARCHAR(MAX)
)
SET @buf = @csv
WHILE @exit_flg = 0
BEGIN
SET @buf = SUBSTRING(@buf, @i , LEN(@buf))
SET @imax = CHARINDEX(',', @buf)
IF @imax = 0
BEGIN
INSERT INTO #w_temp
SELECT SUBSTRING(@buf, 1, LEN(@buf))
SET @exit_flg = 1
END
ELSE
BEGIN
INSERT INTO #w_temp
SELECT SUBSTRING(@buf, 1, @imax - 1)
SET @i = @imax + 1
END
END
SELECT 'OK' AS result, NULL AS err_msg, buf FROM #w_temp
END TRY
BEGIN CATCH
SELECT 'NG' AS result, ERROR_MESSAGE() AS err_msg
END CATCH
END
'呼出元プロシージャ（または関数）の記載例
Load HogeForm
HogeForm.Show
If HogeForm.Tag = "1" Then
'(終了ボタン押下時の処理を記載）
Else
'(中止ボタン押下時の処理を記載）
End If
Unload HogeForm
'呼出先(HogeForm)の記載例
'終了ボタン押下
Private Sub ExitButton_Click()
HogeForm.Tag = "1"
HogeForm.Hide
End Sub
'中止ボタン押下
Private Sub CancelButton_Click()
HogeForm.Tag = "0"
HogeForm.Hide
End Sub
