[分享]vb+MAPX开发打开ACESS数据库并于里面的X,Y 数据绑定

<P> Private Sub Command5_Click()</P>
<P>   Dim dataset As MapXLib.dataset<BR>    Dim BindLyr As New MapXLib.BindLayer<BR>    Dim conn As ADODB.Connection<BR>    Dim rs As ADODB.Recordset<BR>    Dim strSql As String<BR>    <BR>    '打开mdb数据库<BR>    Set conn = New ADODB.Connection<BR>    Set rs = New ADODB.Recordset<BR>     conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" ; App.Path ; "\data\pccw.mdb"<BR>   <BR>    strSql = "select * from BINDLAYERXY"<BR>    rs.open strSql, conn, adOpenStatic, adLockReadOnly<BR>    <BR>    '绑定，引入ACCESS数据源<BR>    BindLyr.LayerType = miBindLayerTypeXY<BR>    BindLyr.RefColumn1 = "MI_SQL_X"<BR>    BindLyr.RefColumn2 = "MI_SQL_Y"<BR>    Set dataset = Map1.DataSets.Add(miDataSetADO, rs, , "MI_SQL_X", "MI_SQL_Y", BindLyr)<BR>    <BR>'    '生成专题图<BR>'    Dim cols(1 To 2) As String<BR>'    cols(1) = "popnum"<BR>'    cols(2) = "income"<BR>'    dataset.Themes.Add miThemeBarChart, cols<BR>    <BR>    rs.Close<BR>    Set rs = Nothing</P>
<P>   end sub </P>

<img src="images/post/smile/dvbbs/em06.gif" />

<img src="images/post/smile/dvbbs/em06.gif" /><img src="images/post/smile/dvbbs/em05.gif" />