前幾天在藍色小舗看到有人問,
不好意思我是初學者...
我利用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
沒有留言:
張貼留言