私の研究室のとある論文を利用して、それから更に新しい機能などを追加していきたく思っています。で一応デバッグしてみたのですが、データなどが読み込まれないので、おそらく自分で何かファイルを用意して、そのファイルの情報を読み取らないといけないと思うのですが、まだVB.NETを始めたばかりで、コードを読んでもわからないことがほとんどなので、こちらへ質問させていただきました。
そこで以下のプログラムファイルを見て、どんなファイルを用意しなければいけないかを教えていただけないでしょうか？説明が足りないことがあったらその都度追加していきますので、よろしくお願いいたします。
Imports System.Data
Public Class Form1
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Dim basho As String
Public mido As Object
Public mkei As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ".\basyo.mdb"
cn.Open()
cmd = cn.CreateCommand()
cmd.CommandText = "select 場所 from oosaka "
dr = cmd.ExecuteReader()
While dr.Read()
ComboBox1.Items.Add(dr.Item("場所"))
End While
cn.Close()
dr.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
basho = ComboBox1.Text
cn.Open()
cmd.CommandText = "select 緯度 from oosaka where 場所='" & basho & "'"
mido = cmd.ExecuteScalar
'目的地の緯度
cn.Close()
cn.Open()
cmd.CommandText = "select 経度 from oosaka where 場所='" & basho & "'"
mkei = cmd.ExecuteScalar
'目的地の経度
cn.Close()
Me.Visible = False
禁止場所.Visible = True
End Sub
End Class
