Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' **************************************************************' テキストファイルを読み込む為の Stream クラス と ' ファイルを開くダイアログを使用する為の OpenFileDialog クラス' **************************************************************
Dim myStream As Stream
Dim dlg As New Forms.OpenFileDialog
Dim arg As String() = Environment.GetCommandLineArgs()
' **************************************************************' ファイルパスを分解して、ディレクトリのパスに変換する' **************************************************************
Dim delimStr As String = "\"
Dim delimiter As Char() = delimStr.ToCharArray()
Dim aData As String() = arg(0).Split(delimiter)
Dim pgDir As String = String.Join("\", aData, 0, aData.Length - 1)
' **************************************************************' 変換したパスを初期ディレクトリとして設定' **************************************************************
dlg.InitialDirectory = pgDir
dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
dlg.FilterIndex = 2
dlg.RestoreDirectory = True
Dim str As String = ""' **************************************************************' ファイルを開くダイアログを表示' **************************************************************
If dlg.ShowDialog() = Forms.DialogResult.OK Then
myStream = dlg.OpenFile()
If Not (myStream Is Nothing) Then
' **************************************************************' ファイルを読む為の StreamReader クラス' ファイルは Shift_JIS なので明示する必要がある' **************************************************************
Dim sr As StreamReader = _
New StreamReader( _
myStream, _
Encoding.GetEncoding("Shift_JIS") _
)
' **************************************************************' ループ処理で行を結合して、ファイル全体としてのテキストを作成' **************************************************************
Do While sr.Peek() >= 0
str += sr.ReadLine() + vbCrLf
Loop
' **************************************************************' 複数行のテキストボックスにセットして表示' **************************************************************
Me.TextBox1.Text = str
' **************************************************************' リーダとストリームを閉じる' **************************************************************
sr.Close()
myStream.Close()
End If
End If
End Sub
End Class
Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Form1
Private Function GetProgDir() As String
Dim arg As String() = Environment.GetCommandLineArgs()
' **************************************************************' ファイルパスを分解して、ディレクトリのパスに変換する' **************************************************************
Dim delimStr As String = "\"
Dim delimiter As Char() = delimStr.ToCharArray()
Dim aData As String() = arg(0).Split (delimiter)
Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)
' **************************************************************' 関数から値を返すには、関数名に値を割り当てるか、' または Return ステートメントに値を設定します' **************************************************************
Return pgDir
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' **************************************************************' テキストファイルを読み込む為の Stream クラス と ' ファイルを開くダイアログを使用する為の OpenFileDialog クラス' **************************************************************
Dim myStream As Stream
Dim dlg As New Forms.OpenFileDialog
' **************************************************************' 変換したパスを初期ディレクトリとして設定' **************************************************************
dlg.InitialDirectory = GetProgDir()
dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
dlg.FilterIndex = 2
dlg.RestoreDirectory = True
Dim str As String = ""' **************************************************************' ファイルを開くダイアログを表示' **************************************************************
If dlg.ShowDialog() = Forms.DialogResult.OK Then
myStream = dlg.OpenFile()
If Not (myStream Is Nothing) Then
' **************************************************************' ファイルを読む為の StreamReader クラス' ファイルは Shift_JIS なので明示する必要がある' **************************************************************
Dim sr As StreamReader = _
New StreamReader( _
myStream, _
Encoding.GetEncoding ("Shift_JIS") _
)
' **************************************************************' ループ処理で行を結合して、ファイル全体としてのテキストを作成' **************************************************************
Do While sr.Peek() >= 0
str += sr.ReadLine() + vbCrLf
Loop
' **************************************************************' 複数行のテキストボックスにセットして表示' **************************************************************
Me.TextBox1.Text = str
' **************************************************************' リーダとストリームを閉じる' **************************************************************
sr.Close()
myStream.Close()
End If
End If
End Sub
End Class
Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Lightbox
Public Shared Function GetProgDir() As String
Dim arg As String() = Environment.GetCommandLineArgs()
' **************************************************************' ファイルパスを分解して、ディレクトリのパスに変換する' **************************************************************
Dim delimStr As String = "\"
Dim delimiter As Char() = delimStr.ToCharArray()
Dim aData As String() = arg(0).Split (delimiter)
Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)
' **************************************************************' 関数から値を返すには、関数名に値を割り当てるか、' または Return ステートメントに値を設定します' **************************************************************
Return pgDir
End Function
End Class
↓Form1.vb
拡張子:
Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' **************************************************************' テキストファイルを読み込む為の Stream クラス と ' ファイルを開くダイアログを使用する為の OpenFileDialog クラス' **************************************************************
Dim myStream As Stream
Dim dlg As New Forms.OpenFileDialog
' **************************************************************' 変換したパスを初期ディレクトリとして設定' **************************************************************
dlg.InitialDirectory = Lightbox.GetProgDir()
dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
dlg.FilterIndex = 2
dlg.RestoreDirectory = True
Dim str As String = ""' **************************************************************' ファイルを開くダイアログを表示' **************************************************************
If dlg.ShowDialog() = Forms.DialogResult.OK Then
myStream = dlg.OpenFile()
If Not (myStream Is Nothing) Then
' **************************************************************' ファイルを読む為の StreamReader クラス' ファイルは Shift_JIS なので明示する必要がある' **************************************************************
Dim sr As StreamReader = _
New StreamReader( _
myStream, _
Encoding.GetEncoding ("Shift_JIS") _
)
' **************************************************************' ループ処理で行を結合して、ファイル全体としてのテキストを作成' **************************************************************
Do While sr.Peek() >= 0
str += sr.ReadLine() + vbCrLf
Loop
' **************************************************************' 複数行のテキストボックスにセットして表示' **************************************************************
Me.TextBox1.Text = str
' **************************************************************' リーダとストリームを閉じる' **************************************************************
sr.Close()
myStream.Close()
End If
End If
End Sub
End Class
Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Lightbox
Public Function GetProgDir() As String
Dim arg As String() = Environment.GetCommandLineArgs()
' **************************************************************' ファイルパスを分解して、ディレクトリのパスに変換する' **************************************************************
Dim delimStr As String = "\"
Dim delimiter As Char() = delimStr.ToCharArray()
Dim aData As String() = arg(0).Split (delimiter)
Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)
' **************************************************************' 関数から値を返すには、関数名に値を割り当てるか、' または Return ステートメントに値を設定します' **************************************************************
Return pgDir
End Function
End Class
拡張子:
Imports System.IO
Imports System.Text
Imports System.Windows
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' **************************************************************' テキストファイルを読み込む為の Stream クラス と ' ファイルを開くダイアログを使用する為の OpenFileDialog クラス' **************************************************************
Dim myStream As Stream
Dim dlg As New Forms.OpenFileDialog
' **************************************************************' 変換したパスを初期ディレクトリとして設定' **************************************************************
dlg.InitialDirectory = (New Lightbox()).GetProgDir()
dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
dlg.FilterIndex = 2
dlg.RestoreDirectory = True
Dim str As String = ""' **************************************************************' ファイルを開くダイアログを表示' **************************************************************
If dlg.ShowDialog() = Forms.DialogResult.OK Then
myStream = dlg.OpenFile()
If Not (myStream Is Nothing) Then
' **************************************************************' ファイルを読む為の StreamReader クラス' ファイルは Shift_JIS なので明示する必要がある' **************************************************************
Dim sr As StreamReader = _
New StreamReader( _
myStream, _
Encoding.GetEncoding ("Shift_JIS") _
)
' **************************************************************' ループ処理で行を結合して、ファイル全体としてのテキストを作成' **************************************************************
Do While sr.Peek() >= 0
str += sr.ReadLine() + vbCrLf
Loop
' **************************************************************' 複数行のテキストボックスにセットして表示' **************************************************************
Me.TextBox1.Text = str
' **************************************************************' リーダとストリームを閉じる' **************************************************************
sr.Close()
myStream.Close()
End If
End If
End Sub
End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strCon As String
' 接続文字列作成
strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"
' 接続準備
Dim myCon As OdbcConnection = New OdbcConnection(strCon)
' コマンド
Dim strQuery As String = "select * from 社員マスタ"
' コマンド準備
Dim myCommand As OdbcCommand = New OdbcCommand(strQuery)
' コマンドを使用する接続用インスタンスを関係付ける
myCommand.Connection = myCon
' 接続
myCon.Open()
' レコード取得用のオブジェクト
' レコード取得用のオブジェクトを取得
Dim myReader As OdbcDataReader = myCommand.ExecuteReader()
' データ取得用の変数
Dim str As String = ""
Dim fld As Integer
' 全てのレコードを取得
Do While myReader.Read()
' 列の番号
fld = myReader.GetOrdinal("社員コード")
' 列の文字列値
If myReader.IsDBNull(fld) Then
str += "null"
Else
str += myReader.GetString(fld)
End If
' 列の番号
fld = myReader.GetOrdinal("氏名")
If myReader.IsDBNull(fld) Then
str += "|null"
Else
str += "|" + myReader.GetString(fld)
End If
str += vbCrLf
Loop
' 接続解除
myCon.Close()
Me.TextBox1.Text = str
End Sub
更新
拡張子:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strCon As String
' 接続文字列作成
strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"
' 接続準備
Dim myCon As OdbcConnection = New OdbcConnection(strCon)
' 接続
myCon.Open()
' コマンド
Dim strQuery As String = "insert into 社員マスタ (社員コード) values('9901')"
' コマンド準備
Dim myCommand As OdbcCommand = New OdbcCommand(strQuery, myCon)
' 実行
myCommand.ExecuteNonQuery()
' コマンド
myCommand.CommandText = "insert into 社員マスタ (社員コード) values('9902')"
' 実行
myCommand.ExecuteNonQuery()
' 接続解除
myCon.Close()
End Sub