阅读:1607回复:5
[求助]mapx+vb开发数据绑定的问题,请高手指点呀!
<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编辑过]
|
|
1楼#
发布于:2005-05-23 18:03
应该是你连接数据库的方式不正确,你看看ADO的资料。
|
|
2楼#
发布于:2005-06-26 12:46
<P>你是 用ACCESS的吗</P>
|
|
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> |
|
4楼#
发布于:2005-08-13 18:01
<P>你写的也太麻烦了,而且还用DAO很累人的</P>
<P>我现在网吧,没办法给你写语句,你留言我发给你.</P> |
|
|
5楼#
发布于:2005-08-16 19:47
<P>我两个月前就已经做完毕业设计了。你知道怎么解决么?我的邮箱<a href="mailtzj09162001@sohu.com" target="_blank" >zj09162001@sohu.com</A>,如果你知道的话可以发给我么,我还想看一看,谢谢了</P>
|
|