godjohsn
路人甲
路人甲
  • 注册日期2005-04-15
  • 发帖数11
  • QQ
  • 铜币163枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1438回复:5

[求助]mapx+vb开发数据绑定的问题,请高手指点呀!

楼主#
更多 发布于:2005-05-21 15:12
<P><B>我想把数据库绑定到.gst格式地图的其中一个图层中,用的是VB语言,试图用两种方案:</B></P>
<P><B>(一):</B></P>
<P><B>Dim ds As Dataset
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\diming.mdb")
    Set rs = db.OpenRecordset("jinan")
    Set ds = Map1.DataSets.Add(miDataSetADO, Adodc1.Recordset, "MyDataset")</B></P>
<P><B>其中“diming.mdb”是需要挂接的数据库名,“jinan”是其下的表名,Adodc1是添加的adodc控件。</B></P>
<P><B>运行时“Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\diming.mdb")”一行显示错误:
Run-time error‘3343’:
Unrecognized database format"C:\Program Files\Microsoft Visual Studio\VB98\diming.mdb".</B></P>
<P><B>帮助文件显示:
Possible causes:
1.The specified file name is not a Microsoft Jet database.
2.The specified file name is a device name, such as a printer, a console, and so forth.
3.The .mdb file has invalid header information or an unknown sort order.
4.A commit is pending from another user, but the lock file cannot be found.
5.During a commit, you are attempting to write a Long value larger than the 2K maximum page size.
6.The database is damaged. Repair and compact the database, and then try opening it again.</B></P>
<P><B>第二种方案:</B></P>
<P><B>Dim MyDataset As Dataset
      
    Set MyDataset = Map1.DataSets.Add(miDataSetADO, Adodc1.Recordset, "MyDataset")</B></P>
<P><B>其中Adodc1控件已在其属性设置中与所需挂接的数据库连接成功。</B></P>
<P><B>运行时“Set MyDataset = Map1.DataSets.Add(miDataSetADO, Adodc1.Recordset, "MyDataset")”一行显示出错信息:</B></P>
<P><B>Run-time error‘1164’:
The specified source is not an ADO recordset object.</B></P>
<P><B>两种方案看起来都没什么问题,可就是不行,求求那位高手指点指点,我都快急疯了。
</B></P>

[此贴子已经被作者于2005-5-23 11:16:38编辑过]
喜欢0 评分0
echo2003
点子王
点子王
  • 注册日期2003-07-28
  • 发帖数2453
  • QQ76947571
  • 铜币5473枚
  • 威望1点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
1楼#
发布于:2005-05-23 18:03
应该是你连接数据库的方式不正确,你看看ADO的资料。
举报 回复(0) 喜欢(0)     评分
tj20041014
路人甲
路人甲
  • 注册日期2004-10-28
  • 发帖数45
  • QQ
  • 铜币231枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-06-26 12:46
<P>你是 用ACCESS的吗</P>
举报 回复(0) 喜欢(0)     评分
bingdian3721
路人甲
路人甲
  • 注册日期2005-07-22
  • 发帖数4
  • QQ
  • 铜币105枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-08-12 23:47
<P><B>Dim ds As Dataset<BR>Dim db As Database<BR>Dim rs As Recordset<BR>Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\diming.mdb")<BR>    Set rs = db.OpenRecordset("jinan")<BR>    Set ds = Map1.DataSets.Add(miDataSetADO, Adodc1.Recordset, "MyDataset")</B></P>
<P><STRONG>miDataSetADO有问题</STRONG></P>
<P><STRONG>这个例子不是用的ADO</STRONG></P>
<P><STRONG>是DAO</STRONG></P>
举报 回复(0) 喜欢(0)     评分
MicroMap
路人甲
路人甲
  • 注册日期2005-06-29
  • 发帖数34
  • QQ
  • 铜币207枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2005-08-13 18:01
<P>你写的也太麻烦了,而且还用DAO很累人的</P>
<P>我现在网吧,没办法给你写语句,你留言我发给你.</P>
终于明白希望还在前方,不愿停在这里回头张望..... MicroMap@163.com
举报 回复(0) 喜欢(0)     评分
godjohsn
路人甲
路人甲
  • 注册日期2005-04-15
  • 发帖数11
  • QQ
  • 铜币163枚
  • 威望0点
  • 贡献值0点
  • 银元0个
5楼#
发布于:2005-08-16 19:47
<P>我两个月前就已经做完毕业设计了。你知道怎么解决么?我的邮箱<a href="mailtzj09162001@sohu.com" target="_blank" >zj09162001@sohu.com</A>,如果你知道的话可以发给我么,我还想看一看,谢谢了</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部