ADO问题:分级游标和数据构形

linfeng 2000-07-03 09:17:00
在VB6的"数据环境设计者"中,能用SQL server作为数据源,生成数据构形命令(shape)。用命令行语句怎么写? data Provider=? Provider=?
...全文
114 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
linfeng 2000-07-04
  • 打赏
  • 举报
回复
谢谢
我用SQL server作为数据来源,不通过ODBC连接,怎么写?
playyuer 2000-07-04
  • 打赏
  • 举报
回复
Dim adoConnectionX As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'adoConnectionX.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Tree.mdb;Persist Security Info=False"
'adoConnectionX.Open "Provider=MSDataShape;Data Provider=MSDAORA.1;Password=1;User ID=YUDEMO1;Data Source=NAMEPIPE1;Persist Security Info=True"
adoConnectionX.Open "Provider=MSDataShape;Data Provider=MSDASQL.1;User ID=dba;Password = sql;driver=Adaptive Server Anywhere 6.0;Database=" & App.Path & "\TREE.db"
adoRecordset.Open "SHAPE{SELECT Classid as 类别编码,Classname as 类别名称 FROM TREE where parentid='root'}APPEND((SHAPE{SELECT Classid as 类别编码,Classname as 类别名称,Parentid as 上级编码 FROM TREE}APPEND((SHAPE{SELECT Classid as 类别编码,Classname as 类别名称,Parentid as 上级编码 FROM TREE}APPEND({SELECT Classid as 类别编码,Classname as 类别名称,Parentid as 上级编码 FROM TREE}RELATE 类别编码 TO 上级编码))RELATE 类别编码 TO 上级编码)AS AB)RELATE 类别编码 TO 上级编码)AS AA ", adoConnectionX
Set MSHFlexGrid1.DataSource = adoRecordset
MSHFlexGrid1.AllowUserResizing = flexResizeColumns
MSHFlexGrid1.AllowBigSelection = True

7,759

社区成员

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

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