社員問合せサンプル

サンプルダウンロード

Imports System.Data.Odbc

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Me.LboxGrid1.AddColumn("CODE", "社員コード")
		Me.LboxGrid1.AddColumn("NAME", "氏名")
		Me.LboxGrid1.AddColumn("KANA", "フリガナ")

	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click

		Dim myConnectString As String = _
		 "Driver={Microsoft ODBC for Oracle};" + _
		 "SERVER=PED0-034/ORCL;" + _
		 "UID=lightbox;" + _
		 "PWD=lightbox"
		Dim myCon As New OdbcConnection()
		myCon.ConnectionString = myConnectString
		myCon.Open()

		Dim myQuery As String = "SELECT * from 社員マスタ"
		Dim myCommand As New OdbcCommand()
		myCommand.CommandText = myQuery
		myCommand.Connection = myCon

		Dim myReader As OdbcDataReader
		myReader = myCommand.ExecuteReader()
		Dim fld As Integer = 0
		Do While myReader.Read()
			Me.LboxGrid1.AddRow()

			fld = myReader.GetOrdinal("社員コード")
			Me.LboxGrid1.SetColumnText("CODE", myReader.GetString(fld))

			fld = myReader.GetOrdinal("氏名")
			Me.LboxGrid1.SetColumnText("NAME", myReader.GetString(fld))

			fld = myReader.GetOrdinal("フリガナ")
			Me.LboxGrid1.SetColumnText("KANA", myReader.GetString(fld))

		Loop
		myReader.Close()
		myCon.Close()


	End Sub

End Class