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...