请问怎么用vb语句打开mapinfo的表读取其中某一列的值

lemmontree 2003-05-17 05:28:42
用vb语句打开mapinfo的表并读取其中某一列的值
然后赋值给一个变量怎么做我写了一段代码
总是通不过请问怎么改正

Dim mapinfo As Object
Dim s As String

Private Sub Form_Load()

Set mapinfo = CreateObject("mapinfo.application")
mapinfo.Do "set application window " & Form1.hWnd
mapinfo.Do "set next Document parent " & Form1.hWnd & "style 1 "
mapinfo.Do "Open Table" & """" & "C:\My Documents\科源\data\繁昌\变电所\变电所" & """" & "Interactive "
mapinfo.Do "Browse * From 变电所"
mapinfo.Do "Fetch First From 变电所"
mapinfo.Do "s=变电所.col(6) "
Label1.Caption = s

End Sub
先谢了




...全文
54 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vansoft 2003-05-17
你用这个开发?
佩服佩服!
为何不用ADODB?
回复
gardenia 2003-05-17
mapinfo.Do "s=变电所.col(6) "
改为:
s = mapinfo.eval("变电所.col6")
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-17 05:28
社区公告
暂无公告