标题:如何在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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-165647-1-1.html




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

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