vbc.exe でコンソールアプリを作成 - おのれ鍋奉行が！

vbc.exe でコンソールアプリを作成

概要

Visual Studio を使用せず、メモ帳で vb.net のコンソールアプリを作る練習。

参照

• SQLの窓 / イマドキの Multi Language

手順

SQLの窓 / イマドキの Multi Language / ビルド / vb.net から、「Console ビルドセット」をDLする。
「vb_build.lzh」を解凍してできたフォルダを任意の位置に設置（c:\vb_build 等）

同梱の sample.bas をビルドする手順

1. 「home.wsf」を実行し、cmd.exe を開く。
2. 「build sample.bas」と打つ。（sample.bas がコンパイルされて、同フォルダ内に「sample.exe」が作成される）なお、sample.exe は、PATH 環境変数を「result.txt」に出力する機能を持つ

not found (312.jpg)

not found (313.jpg)

DBのテーブル内レコードをCSV出力するように編集した sample.bas

Imports System.Environment
Imports System.IO
Imports System.Data.SqlClient
 
Module MyModule
 
' ********************************************************
' * 実行
' ********************************************************
Sub Main()
 
	Dim myConnectString As String = _
		"Data Source=****;" + _
		"Initial Catalog=****;" + _
		"User ID=****;" + _
		"Password=****;"
	Dim myCon As New SqlConnection()
	myCon.ConnectionString = myConnectString
	myCon.Open()
 
	Dim myQuery As String = "SELECT * from コード名称マスタ"
	Dim myCommand As New SqlCommand()
	myCommand.CommandText = myQuery
	myCommand.Connection = myCon
 
	Dim myReader As SqlDataReader
	myReader = myCommand.ExecuteReader()
 
	Dim fld As Integer = 0
	Dim strValue as String = nothing
 
	Dim firstFlag as boolean = True
 
	Do While myReader.Read()
		firstFlag = True
		For i As Integer = 0 To myReader.FieldCount - 1
			if firstFlag = True then
				firstFlag = false
			else
				strValue &= ","
			end if
			strValue &= myReader.Item(i)
		Next
		strValue &= vbCrlf
	Loop
	myReader.Close()
	myCon.Close()
 
	Try
 
		' 書き込み
		Dim OutFile As StreamWriter = New StreamWriter("result.txt", false )
		Call OutFile.WriteLine( strValue )
		OutFile.Flush()
		OutFile.Close()
 
	Catch e As Exception
		Console.WriteLine("エラーの内容 : {0}", e.ToString())
	End Try
 
End Sub
 
End Module