質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
XML

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

Visual Basic .NET

Microsoft Visual Basic .NET (VB.NET)とはオブジェクト志向のプログラム言語です。 Microsoft"s Visual Basic 6 のバージョンアップとしてみることができますが、Microsoft.NET Frameworktによって動かされています。

ASP.NET

ASP.NETは動的なWebサイトやWebアプリケーション、そしてWebサービスを構築出来るようにする為、Microsoftによって開発されたウェブアプリケーション開発フレームワークです。

解決済

Visual Basicで、DataSetに格納したデータをXMLとして変数に格納、値を返したい

kn0ws_dev
kn0ws_dev

総合スコア0

XML

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

Visual Basic .NET

Microsoft Visual Basic .NET (VB.NET)とはオブジェクト志向のプログラム言語です。 Microsoft"s Visual Basic 6 のバージョンアップとしてみることができますが、Microsoft.NET Frameworktによって動かされています。

ASP.NET

ASP.NETは動的なWebサイトやWebアプリケーション、そしてWebサービスを構築出来るようにする為、Microsoftによって開発されたウェブアプリケーション開発フレームワークです。

1回答

0評価

0クリップ

3184閲覧

投稿2019/04/18 07:32

編集2022/01/12 10:58

前提・実現したいこと

Visual Basic初心者です。

Visual Basicで、MySQLから取ってきた情報をDataSetに
格納し、XMLデータとして変数に出力し、XMLデータを返したいと考えています。

現状では、ローカルフォルダに.xmlファイルを生成し、それを読み込み、XMLデータを
返すようになっていますが、この一連の流れをxmlファイルを生成せず、プログラム上
でのみ実現したいです。

現状: MySQLからデータを取る→DataSetに格納→格納されたデータをXMLとして書き込む→
書き込んだxmlファイルを読み込む→値を返す

理想: MySQLからデータを取る→DataSetに格納→格納されたデータを変数Aに書き込む→
書き込んだ変数Aを読み込む→値を返す

発生している問題・エラーメッセージ

ソースコードにある通り、出来そうなことは試してみましたが、どうしてもうまくいきません。

該当のソースコード

VB

Public Function Func1(ByVal sql As String) As XmlDocument Dim constr As String = "userid=root;password=mysql;host=localhost" Dim conn As MySqlConnection = New MySqlConnection(constr) Dim da As MySqlDataAdapter Dim ds As DataSet Dim filePath As String Dim result As XmlDocument Try conn.Open() filePath = String.Format("C:\Users\admin\Documents\data.xml") da = New MySqlDataAdapter(sql, conn) ds = New DataSet("user") da.FillSchema(ds, SchemaType.Source, "user") da.Fill(ds) ds.WriteXml(filePath) conn.Close() Dim xdoc As New XmlDocument() xdoc.Load(filePath) result = xdoc Catch ex As Exception End Try Return result End Function

試したこと

VisualBasic

Public Function Func1(ByVal sql As String) As XmlDocument Dim constr As String = "userid=root;password=mysql;host=localhost" Dim conn As MySqlConnection = New MySqlConnection(constr) Dim da As MySqlDataAdapter Dim ds As DataSet 'Dim filePath As String Dim xmlStr As String = "" Dim result As XmlDocument Try conn.Open() 'filePath = String.Format("C:\Users\admin\Documents\data.xml") da = New MySqlDataAdapter(sql, conn) ds = New DataSet("user") da.FillSchema(ds, SchemaType.Source, "user") da.Fill(ds) 'ds.WriteXml(filePath) ds.WriteXml(xmlStr) conn.Close() Dim xdoc As New XmlDocument() 'xdoc.Load(filePath) xdoc.Load(xmlStr) 'xdoc.LoadXml(xmlStr)も試しました result = xdoc Catch ex As Exception End Try Return result End Function

補足情報(FW/ツールのバージョンなど)

Visual Studio 2015
ASP.NET Webサービス

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

SurferOnWww
SurferOnWww

2019/04/18 07:37

Web Forms か MVC かどっちですか? \.NET のバージョン、MVC ならそのバージョンを書いてください。
kn0ws_dev
kn0ws_dev

2019/04/18 07:49

申し訳ありません。まだ触って間もない為、記述を忘れておりました。 WebFormsで、\.NETのバージョンは4\.5\.2です。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

XML

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

Visual Basic .NET

Microsoft Visual Basic .NET (VB.NET)とはオブジェクト志向のプログラム言語です。 Microsoft"s Visual Basic 6 のバージョンアップとしてみることができますが、Microsoft.NET Frameworktによって動かされています。

ASP.NET

ASP.NETは動的なWebサイトやWebアプリケーション、そしてWebサービスを構築出来るようにする為、Microsoftによって開発されたウェブアプリケーション開発フレームワークです。