| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 521 人关注过本帖
标题:如何在FORM里显示DB1中的两张表的内容?
只看楼主 加入收藏
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
结帖率:84.62%
收藏
 问题点数:0 回复次数:0 
如何在FORM里显示DB1中的两张表的内容?

如何在FORM里显示DB1中的两张表的内容?

Private Sub Form_Load()

Command2.Visible = False
Command12.Enabled = False
Command13.Visible = False
Dim ConString As String
ConString = "Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info = False;" _
& "Data Source =" & App.Path & "\db1.mdb;Jet OleDb:DataBase Password=123456"


Set Conn = CreateObject("ADODB.Connection")
With Conn
.ConnectionString = ConString
.Open
End With

Rst.CursorLocation = adUseClient
Rst.Open "Select * From fl2", Conn, adOpenKeyset, adLockPessimistic, adCmdText
If Rst.RecordCount > 0 Then
n.Text = Rst.Fields("n").Value & ""
。。。
。。。
。。。
???

搜索更多相关主题的帖子: FORM 
2007-08-27 09:00
快速回复:如何在FORM里显示DB1中的两张表的内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.090990 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved