VB.netでSQLserverのテーブルの内容を配列にコピーしたいです。

Question

初めて投稿します。
失礼な点、変な文章、わかりにくいなどありましたら申し訳ありません。ご指摘ください
###前提・実現したいこと
現在、SQLserver内の住所情報を元にGoogle maps apiでその位置を表示させようと思っています。
全ての住所情報のマーカーを表示させたいのでSQLserver内のテーブルの内容を配列にコピーして、for文で配列内の住所情報を取得し、マーカーを表示したいです。
その配列にコピーする仕方を教えていただけないでしょうか。
.aspx内のＶＢに配列を作って、それをjavascript部分に渡したほうがよいのか。
それとも.aspx内のjavascript部分に配列を作ったほうがよいのかもお聞きしたいです。

よろしくお願いいたします。

###補足情報(言語/FW/ツール等のバージョンなど)
言語はVB.net
ツールはvisual studio2013 です。

失礼いたしました。ASP.netはwebフォームです。

Comments

[Tak1wa]

ASP.NET は MVCですか？WebFormですか？

Answer 1

こんにちは。

Webフォームなので古典的な対応方法になると思いますが。

.aspx内のＶＢに配列を作って、それをjavascript部分に渡したほうがよいのか。
それとも.aspx内のjavascript部分に配列を作ったほうがよいのかもお聞きしたいです。

GoogleMapAPIはJavaScriptからの呼び出しになるので結局実装次第です。
なので、上記についてはどちらでも良いでしょう。（たぶん）

渡す方法については以下のどれかでしょうかね。

1.何らかの方法で値のみ渡す
→http://7ujm.net/asp/javascript2.html

2.サーバーサイドでJavaScriptに埋め込む
→http://software.yworks.net/etc/googlemap.html

3.クライアントサイドからサーバーサイドにデータアクセスする（AJAX)
→http://www.atmarkit.co.jp/fdotnet/dotnettips/755aspajaxgmaps/aspajaxgmaps.html

※もしかして今時AJAXなんて使わない？でしたらすみません。

Comments

[xxraio]

回答大変ありがとうございます。
値への受け渡しについて参考にさせていただきます。

SQLserver内のテーブルの内容を配列にコピーして、for文で配列内の住所情報を取得し、マーカーを表示したいので、そこをお教えいただけないでしょうか。

[Tak1wa]

> SQLserver内のテーブルの内容を配列にコピーして、for文で配列内の住所情報を取得し、マーカーを表示したいので、そこをお教えいただけないでしょうか。

いまどこまで出来ているのでしょうか。どのレベルから教えれば良いのかわからないです。（SQLServerからのデータ取得方法？for文の回し方？マーカーの表示方法？）
どういったテーブルレイアウトかもわかりませんし、レイアウトがわかったところで回答者は膨大な情報を教えなければいけないです。

こういったQAサイトでは現時点でどこまで出来ていて、暫定的にこう実装しているが期待どおりの結果にならない。というところまで質問者がまず試行錯誤した結果をたたき台として提示するのがお薦めです。

SQLServerとASP.NETの接続例：http://naoko.wankuma.com/beginner/beginner_0017_webDbApp02.html

マーカーの作成：http://www.ajaxtower.jp/googlemaps/gmarker/index1.html

[xxraio]

申し訳ありませんでした。
プログラミング経験も浅く、こういったＱＡサイトを使うのも初めてでしたので、お気を悪くさせたなら申し訳ありません。
テーブル内容は
テーブル名　mapinfo
mid int
place varchar(50)
url varchar(250)
longitude float
latitude float
memo varchar(250)
となっており、
longitudeとlatitudeが住所情報（緯度と経度）になっております

Dim cn As New SqlConnection("～sqlserverに接続～")
cn.Open()
Dim cmd As New SqlCommand("select * from mapinfo",cn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
　　’ここまでがＳＱＬserverにつなぐ構文
Dim hairetu(,) As String　’2次元配列を用意

ここから先がわからない状態です。
まずhairetuはstringでよいのか。
行と列の大きさはどうやって取得すればよいのか。
がわからない状態です。

[Tak1wa]

気になさらないでください。問題点というのは全てを一気に解決するのは難しいです。ひとつづつ解決していきましょう。

まずデータアクセスからですね。
cmd.ExecuteReaderでクエリ発行は行っていますので、SqlDataReaderからデータの取り出しを行いましょう。まず以下を参考にしてください。

http://jeanne.wankuma.com/tips/vb.net/sqlserver/executereader.html

SqlDataReaderインスタンスに対してRead()を繰り返し１レコードづつ値を取得していきます。ここまでOKでしょうか。

次はどういう形でデータを保持するかですが、ADO.NETであればDataSet（DataTable）またはDBテーブルと同じ構成の独自クラスを作成しList(Of XXX)というリスト形式でどんどんAddしていくのが良いと思います。

[xxraio]

ありがとうございます。DataTable型で作ってみました。
Dim T1 As New DataTable

With T1
.Columns.Add("mid")
.Columns.Add("place")
.Columns.Add("url")
.Columns.Add("longitude")
.Columns.Add("latitude")
.Columns.Add("memo")
End With

While dr.Read()
T1.Rows.Add((CType(dr("mid"), Integer)), (CType(dr("place"), String)), (CType(dr("url"), String)), (CType(dr("longitude"), Single)), (CType(dr("latitude"), Single)), (CType(dr("memo"), String)))
End While
と一行ずつ取得したあとに
MsgBox(T1.Rows.Item(0)(3))
を行ってlongitudeの中身を確認してみました。
すると本来のデータベーステーブルにはいっている中身は139.767036なのですが
Msgboxで表示してみた結果139.767となり、６桁しか表示されませんでした。
これは中身は６桁しか格納されていないのか、それとも表示だけ６桁で中身は９桁あるのでしょうか？

何度も何度も質問してしまい、申し訳ありません。

[xxraio]

申し訳ありません。singleの有効桁数が７桁ということをしりませんでした。
doubleに変更することで表示されました！ありがとうございます。