Office中国论坛/Access中国论坛

标题: [求助]关于子窗体数据源的设置方式 [打印本页]

作者: delin 时间: 2007-7-19 18:42
标题: [求助]关于子窗体数据源的设置方式
<

>我没有计算机专业基础知识,正在自学Access.<o:p></o:p>
<

>以SQL Server 作数据库,用Access编程.<o:p></o:p>
<

>在窗体A(员工登记表)中有子窗体B(员工家庭成员表).(关系字段为工号)<o:p></o:p>
用ADO读取SQL Server数据,显示在Access窗体中:<o:p></o:p>
Set con = New ADODB.Connection<o:p></o:p>
Set rst = New ADODB.Recordset<o:p></o:p>
‘更新主窗体<o:p></o:p>
con.Open "provider=SQLOLEDB;database=数据库sql;server=主机;uid=wdl;pwd=123456;"<o:p></o:p>
sql = "select * from员工登记表 where 工号=" & me.选择工号.value ‘主窗体A数据源<o:p></o:p>
Set rst = con.Execute(sql)<o:p></o:p>
rst.MoveFirst<o:p></o:p>
Do Until rst.EOF = True<o:p></o:p>
 For Each fil In rst.Fields<o:p></o:p>
 For Each ctl In Me.Controls<o:p></o:p>
 If ctl.name=fil.name then<o:p></o:p>
 Ctl.value=rst(“fil.name”)<o:p></o:p>
 End if<o:p></o:p>
 Next ctl<o:p></o:p>
 Next fil<o:p></o:p>
 rst.MoveNext<o:p></o:p>
<st1:place w:st="on">Loop</st1:place><o:p></o:p>
‘更新子窗体<o:p></o:p>
sql = "select * from员工家庭成员表where 工号=" & me.选择工号.value<o:p></o:p>
me.B.Form.RecordSource=sql ‘更新子窗体B数据源<o:p></o:p>
me.B.Requery ‘刷新子窗体B<o:p></o:p>
rst.Close<o:p></o:p>
con.Close<o:p></o:p>
Set rst = Nothing<o:p></o:p>
Set con = Nothing<o:p></o:p>
<o:p> </o:p>
以上当Access窗体,文件菜单,连接(T)….与SQL Server”主机”的”数据库sql”处于连接状态时, 子窗体数据正常显示.<o:p></o:p>
问题发生在:当Access窗体,文件菜单,连接(T)….与SQL Server”主机”的”数据库sql”处于非连接状态时,子窗体数据没有显示.更改子窗体的sql为rst仿照主窗体方式时,仅仅显示出(非绑定)子窗体的最后一行数据.更进一步,此时,甚至连报表和子报表也无法用sql来提供其数据.<o:p></o:p>
<o:p> </o:p>
请教:当Access窗体,

作者: 谢健 时间: 2007-7-19 19:25
这么长的代码看不懂呀，上传你的示例吧！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)