Catch ex As Exception '例外処理 MsgBox(Err.Number & ":" & Err.Description, MsgBoxStyle.Critical, "B_connect") B_connect = False End Try
Return B_connect
End Function
③--------------------------------------------------------------------------------------- Public Function A_reader(ByVal sqldata As String, ByVal dsname As String) As DataSet
Dim dtSet As DataSet = New DataSet(dsname)
AAdp = New OleDb.OleDbDataAdapter(sqldata, AConnection)
Try 'SQL実行 AAdp.Fill(dtSet, dsname)
Catch ex As Exception '例外処理実行 MsgBox(ex.Message, MsgBoxStyle.Critical, "A_reader") End Try
③--------------------------------------------------------------------------------------- Public Function A_reader(ByVal sqldata As String, ByVal dsname As String) As DataSet
Dim dtSet As DataSet = New DataSet(dsname)
AAdp = New OleDb.OleDbDataAdapter(sqldata, AConnection)
Try 'SQL実行 AAdp.Fill(dtSet, dsname)
Catch ex As Exception '例外処理実行 MsgBox(ex.Message, MsgBoxStyle.Critical, "A_reader") End Try
■No25489に返信(sodane-matigatterukamosirenaikeredoさんの記事) > GROUP関数が無いのにGROUP区を利用しているからエラーになっているのだと思うのですが・・・ それは大丈夫でしょう。 SELECT COL1 FROM TABLE1 GROUP BY COL1 は、単に SELECT DISTINCT COL1 FROM TABLE1 と解釈されるだけでしょうから。
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
こんにちは
現在、異なるDBのテーブルをリンクさせ
データを抽出しようとおもっています。
しかし、DBが違うせいなのか"テーブルが存在しません"というエラーが返って
きてしまいます。
どういう書き方をすればいいのかが分からなくなっています。
何方かご教授の程、宜しくお願い致します。
すみませんが、ご確認お願いします。
環境=oracle
開発言語=VB.NET
DB名=hogeA…テーブル名=hoge_AA
DB名=hogeB…テーブル名=hoge_BB
'A用DB接続
If Aobj.A_connect = False Then Exit Sub⇒①
'B用DB接続
If Bobj.B_connect = False Then Exit Sub⇒②
sqldata = "SELECT B.MON FROM hoge_AA A,hoge_BB B " & _
"WHERE A.FRI = B.FRI " & _
"GROUP BY B.MON"
dtTbl = Aobj.A_reader(sqldata, "get").Tables("get")⇒③へ
↑
この文でエラーが返ってきます。
①---------------------------------------------------------------------------------------
Public Function A_connect() As Boolean
A_connect = True
'Microsoft OLE DB Provider for Oracle
AConnection = New OleDb.OleDbConnection
'###ConnectionStirng(テスト用)###
AConnection.ConnectionString = "Provider = *****;Password=*****;User ID=*****;Data Source=*****;Persist Security Info=False"
Try
'DB接続処理
AConnection.Open()
Catch ex As Exception
'例外処理
MsgBox(Err.Number & ":" & Err.Description, MsgBoxStyle.Critical, "A_connect")
A_connect = False
End Try
Return A_connect
End Function
②---------------------------------------------------------------------------------------
Public Function B_connect() As Boolean
B_connect = True
'Microsoft OLE DB Provider for Oracle
BConnection = New OleDb.OleDbConnection
'###ConnectionStirng(テスト用)###
BConnection.ConnectionString = "Provider = *****;Password=*****;User ID=*****;Data Source=*****;Persist Security Info=False"
Try
'DB接続処理
BConnection.Open()
Catch ex As Exception
'例外処理
MsgBox(Err.Number & ":" & Err.Description, MsgBoxStyle.Critical, "B_connect")
B_connect = False
End Try
Return B_connect
End Function
③---------------------------------------------------------------------------------------
Public Function A_reader(ByVal sqldata As String, ByVal dsname As String) As DataSet
Dim dtSet As DataSet = New DataSet(dsname)
AAdp = New OleDb.OleDbDataAdapter(sqldata, AConnection)
Try
'SQL実行
AAdp.Fill(dtSet, dsname)
Catch ex As Exception
'例外処理実行
MsgBox(ex.Message, MsgBoxStyle.Critical, "A_reader")
End Try
A_reader = dtSet
AAdp.Dispose()
AAdp = Nothing
dtSet.Dispose()
dtSet = Nothing
'検索結果データ返還
Return A_reader
End Function