如何使用VB透過Access搜尋資料!!


前幾天在藍色小舗看到有人問,

不好意思我是初學者...
我利用Access建立了一個資料庫~內容有經度的起點(Start_Longitude)和終點(End_Longitude)以及緯度的起點(Start_Latitude)和終點(End_Latitude)~我也利用這個分了許多區域
請問我要如何在VB的兩個textbox裡面輸入經緯度~讓他在第三個textbox裡顯示正確的範圍呢???
感謝^^


-------------------------------程式碼-------------------------------

Imports System.Data.OleDb

Public Class Form1

    Sub xyPST()
        '設定連線     
        Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DB\Map.mdb")

        '使用 sql 語法查詢座標:TextBox1 緯度,TextBox2 經度
        Dim cmd As New OleDbCommand("Select PSTname From PSTtable Where xPST='" & TextBox1.Text & "' AND yPST='" & TextBox2.Text & "'", cn)

        '將結果指定給資料庫連接,並預計要用來填入 DataSe
        Dim da As New OleDbDataAdapter
        Dim ds As New DataSet
        da.SelectCommand = cmd
        da.Fill(ds, "PSTtable")

        '如果撈出的筆數只有一筆,則帶到 TextBox3 顯示
        If ds.Tables("PSTtable").Rows.Count = 1 Then TextBox3.Text = ds.Tables("PSTtable").Rows(0).Item(0)
    End Sub
End Class

沒有留言:

張貼留言