mapx vb 實時讀取資料庫

2021-09-30 06:30:07 字數 1666 閱讀 4425

1,實現圖元根據資料庫中x,y欄位的資料變化而改變位置

2,自己要另起乙個執行緒,更改資料庫的x,y的值

private sub form_load()

'1建立圖層

dim lyr as layer

set lyr = map1.layers.createlayer("car")

set map1.layers.animationlayer = lyr                '定義為動態圖層

'2新建圖元

dim newobj as new mapxlib.feature 'stand-alone object

dim obj as mapxlib.feature  'to hold feature added to layer

dim newstyle     as new mapxlib.style

dim str as string

newobj.attach map1

with newstyle

.symboltype = misymboltypebitmap

.symbolbitmapsize = 24

.symbolbitmaptransparent = true

.symbolbitmapname = "car1-32.bmp"

end with

newobj.style = newstyle                           '設定圖元樣式

newobj.type = mifeaturetypesymbol                 '設定圖元型別

set obj = map1.layers(1).addfeature(newobj)

obj.update

end sub

private sub timer1_timer()

timer1.interval = 1000

dim lyr as mapxlib.layer

set lyr = map1.layers("car")

dim ftr as new mapxlib.feature

dim ftrs as new mapxlib.features

set ftr = lyr.allfeatures.item(1)

' **********************連線資料庫        

set conn = new adodb.connection          

set rs = new adodb.recordset

conn.connectionstring = "driver=;server=127.0.0.1;uid=sa;pwd=password;database=databasename"

conn.connectiontimeout = 10

conn.open

rs.open "select x,y from x_y", conn, adopenstatic, adlockreadonly, adcmdtext  

' **********************連線資料庫       

ftr.point.set rs.fields("x").value, rs.fields("y").value         '設定圖元位置

ftr.update

end sub

資料庫實時錯誤

利用access資料庫開發的網路應用程式,在許多情況都有可能出現 實時錯誤3043,磁碟或網路錯誤 從而不同程度地破壞access資料庫。一 造成出現 實時錯誤3034,磁碟或網路錯誤 的原因 1 硬體環境 它包括網絡卡是否有個別的針頭損壞 網線是否破壞或網線的容量是否滿足網路應用程式的要求 如網路...

springboot Ajax實時讀取資料庫

最近有個專案需要實現採集資訊在web端的實時顯示,由於採集器與web端之間唯一的互動途徑就是通過資料庫,而採集器端會定時上傳採集到的資訊到資料庫,所以想到一種方法就是讓web端也定時的讀取資料庫,並且通過資料庫操作 將採集時間進行逆序排序並取最新的乙個 獲得最新採集到的資料,並通過ajax在不重新整...

Access資料庫到Mysql資料庫實時更新

專案目標 首先是將access資料庫中的大量資料 已經存好的原有百萬級資料 轉存到mysql資料庫中,然後,隨著access中資料的增加,要同步更新mysql資料庫,更新週期自定。思路 一開始的轉存前篇部落格已經講過,這裡就忽略了,主要是實現access資料更新後同步到mysql中。思路是 1.用m...