请问怎么用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
先谢了




...全文
97 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
vansoft 2003-05-17
  • 打赏
  • 举报
回复
你用这个开发?
佩服佩服!
为何不用ADODB?
gardenia 2003-05-17
  • 打赏
  • 举报
回复
mapinfo.Do "s=变电所.col(6) "
改为:
s = mapinfo.eval("变电所.col6")

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧