0

ismy code ----の下のクエリを使用して、すべてのテーブルで共通フィールドを検索したいクエリがあります。

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'Dim da As OleDb.OleDbDataAdapter
            Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;"
            Me.con = New OleDb.OleDbConnection
            Dim sqlquery As String = "SELECT * FROM **mba mca mscit** WHERE urno='" & TextBox2.Text & "';"
            Dim command As New OleDb.OleDbCommand(sqlquery, con)
            Dim reader As OleDb.OleDbDataReader
            con.ConnectionString = dbprovider
            con.Open()

            reader = command.ExecuteReader()
            reader.Read()
            TextBox1.Text = reader(1).ToString
            TextBox2.Text = reader(2).ToString
            TextBox3.Text = reader(3).ToString
            TextBox4.Text = reader(4).ToString
            TextBox5.Text = reader(5).ToString
        Catch ex As Exception
            MsgBox("Not Found")
            con.Close()
        End Try

同じ名前のフィールドを持つすべてのテーブルでurnoを検索したい...？

4

1 に答える 1

0

テーブル mba、mca、および mscit に同じ列があると仮定すると、

SELECT * FROM mba
WHERE urno=@urno
UNION
SELECT * FROM mca
WHERE urno=@urno
UNION
SELECT * FROM mscit
WHERE urno=@urno

@urno に SQL パラメータ (qv) を指定します。

于 2013-02-21T20:48:39.443 に答える