Office中国论坛/Access中国论坛

标题: 如何自动控制计算器和记事本的示例 [打印本页]

作者: tmtony 时间: 2007-12-10 11:34
标题: 如何自动控制计算器和记事本的示例
这是以前做的如何自动控制计算器和记事本的示例,今天整理资料时找到了,与大家分享
这是使用API 查找相关的非ACCESS窗体,然后控制它

作者: gdfsslec 时间: 2007-12-10 12:14
谢谢版主分享！
已购买

作者: 5988143 时间: 2007-12-10 14:08
謝謝分享!

作者: t小宝 时间: 2008-1-29 21:30
谢谢站长，已收藏

作者: tyhtyq 时间: 2008-1-29 23:35
谢谢分享,谢谢分享,

作者: goto2008 时间: 2008-1-30 08:14
谢谢分享

作者: BJZTWYQ 时间: 2008-1-30 08:33
谢谢分享

作者: abab518 时间: 2008-1-30 14:08
Thank U for sharing~

作者: wjw8216 时间: 2008-3-9 21:34
标题: 回复

学习学习

作者: sblisb 时间: 2008-3-9 21:41
不错，看看学学！谢了

作者: wwsheng 时间: 2008-3-9 23:11

好东西。要学习

作者: laiguiyou 时间: 2008-3-10 08:31
i see................

作者: liwen 时间: 2008-3-11 12:03
控制非ACCESS窗体，要收藏

作者: yedaoan 时间: 2008-4-2 14:20
22222222222222222222

作者: wjwei8216 时间: 2008-4-20 16:43
谢谢斑竹

作者: hosam 时间: 2008-4-21 14:37
谢谢分享～～看看！

作者: wwwvvv 时间: 2008-4-27 21:06
标题: e
fret

作者: chinj 时间: 2008-5-11 09:41
强列支持

作者: df 时间: 2008-6-10 23:39
谢谢版主分享！

作者: ldw1631 时间: 2008-9-17 13:08
谢谢分享

作者: szsanyo 时间: 2008-10-6 20:35
不错

作者: lirong 时间: 2008-10-7 23:11
不错，看看学学！谢了

作者: sxmzq 时间: 2008-10-10 13:39
dddddddddddddddddddddddd

作者: xyxj1974 时间: 2008-10-16 18:53
收下了,嘿嘿,好东西多谢分享

作者: hualonglan 时间: 2008-10-23 06:19
bu cuo 不错学习学习

作者: sheandme0 时间: 2008-10-28 19:52
看看啊学习下下

作者: qiangshi 时间: 2008-11-3 17:05
ddddddddddd

作者: dttxoffice 时间: 2008-11-26 14:07
看看啊

作者: njy6000 时间: 2008-12-30 21:31
和调用计算器\记事本有什么区别.

作者: njy6000 时间: 2008-12-30 21:39
怎么两个一样的,还要收费?[:29] http://www.office-cn.net/forum.php?mod=viewthread&tid=59835&highlight=%BC%C7%CA%C2

作者: wdq 时间: 2009-1-4 06:33
下载看看，谢谢。

作者: guotianxin 时间: 2009-4-19 22:23
我正好需要这东西！

作者: asklove 时间: 2009-4-23 08:43
look

作者: liuqi67 时间: 2009-6-15 23:03
学习一下

作者: chaojianan 时间: 2009-9-27 09:47
谢谢分享。

作者: dgqfcq 时间: 2009-10-6 10:16
dddddddddddddddd

作者: dgqfcq 时间: 2009-10-6 10:16
dfff

作者: dgqfcq 时间: 2009-10-6 10:16
fsdafdas

作者: 真主 时间: 2009-10-14 16:14
购买后学习一下

作者: YWM161616 时间: 2009-10-15 15:03
看看学学！谢了

作者: YWM161616 时间: 2009-10-15 15:04
看看学学！谢了

作者: 3236235 时间: 2009-10-21 13:57
学习一下

作者: 唐玉娥 时间: 2009-11-5 22:30
王站，谢谢分享。您的东西一般都是相当的贵的

作者: xiangtyAc 时间: 2010-5-13 21:16
学习学习！

作者: sagemeyou 时间: 2010-5-18 13:36
收藏

作者: duomu 时间: 2010-7-25 13:56
不错，看看学学

作者: WMY920130 时间: 2010-12-6 22:20
如何自动控制计算器和记事本

作者: sxb2007 时间: 2011-1-27 15:01
不错，看看学学！谢了

作者: wgh3g 时间: 2011-3-8 15:14
看看

作者: xie62 时间: 2011-5-14 07:44
谢谢分享

作者: thd3204 时间: 2011-7-2 11:19
谢谢分享

作者: accesswj 时间: 2012-3-28 21:46
okkookokkookokkook

作者: fine88888888 时间: 2012-4-12 19:57
看看

作者: godzhong 时间: 2012-4-18 12:16
非常需要!谢谢了!

作者: godzhong 时间: 2012-4-18 12:18
我想请问下版主,有没有读取记事本数据的代码呢?

作者: mclly2000 时间: 2013-1-20 17:15
谢谢

作者: 鄱湖人2012 时间: 2013-9-6 17:30
参考

作者: HKEY_CURRENT 时间: 2013-10-21 19:55
回复看看

作者: zjd7896 时间: 2013-10-22 07:49
学习一下

作者: hwhwenha01 时间: 2014-4-27 15:35
Private Sub Form_Load()
Dim rst As ADODB.Recordset
Dim strConnect As String
Dim strSQL As String
' 使用Microsoft Data Shaping Service for OLE DB provider连接到sql server.
strConnect = "

rovider=MSDataShape;Data Provider=SQLOLEDB;" _
& "Integrated Security=SSPI;Data Source=len1060;" _
& "Initial Catalog=Northwind;user id=sa;password="
'也可以使用下面的连接字符串
'strConnect = "

rovider=Microsoft.Access.OLEDB.10.0

ersist Security Info=False;Data Source=len1060;User ID=sa;Password=;Initial Catalog=Northwind;Data Provider=SQLOLEDB.1"
' 建立选择语句.
strSQL = "SELECT ContactName, CompanyName, Address, " & _
      "City FROM Customers WHERE (Region = 'SP')"
' 初始化ADO记录集.
Set rst = New ADODB.Recordset
With rst
      .ActiveConnection = strConnect
      .LockType = adLockOptimistic
      .Open strSQL
End With
' 设置表单记录集属性
Set Me.Recordset = rst
' 设置ControlSource属性
' 将表单项目与记录集字段对应.
txtContactName.ControlSource = "ContactName"
txtCompanyName.ControlSource = "CompanyName"
txtAddress.ControlSource = "Address"
txtCity.ControlSource = "City"
rst.Close
End Sub

Private Sub Form_Load()
Dim rst As ADODB.Recordset
Dim strConnect As String
Dim strSQL As String
' 使用Microsoft Data Shaping Service for OLE DB provider连接到sql server.
strConnect = "Provider=MSDataShape;Data Provider=SQLOLEDB;" _
      & "Integrated Security=SSPI;Data Source=len1060;" _
      & "Initial Catalog=Northwind;user id=sa;password="
'也可以使用下面的连接字符串
'strConnect = "Provider=Microsoft.Access.OLEDB.10.0;Persist Security Info=False;Data Source=len1060;User ID=sa;Password=;Initial Catalog=Northwind;Data Provider=SQLOLEDB.1"
' 建立选择语句.
strSQL = "SELECT ContactName, CompanyName, Address, " & _
      "City FROM Customers WHERE (Region = 'SP')"
' 初始化ADO记录集.
Set rst = New ADODB.Recordset
With rst
      .ActiveConnection = strConnect
      .LockType = adLockOptimistic
      .Open strSQL
End With
' 设置表单记录集属性
Set Me.Recordset = rst
' 设置ControlSource属性
' 将表单项目与记录集字段对应.
txtContactName.ControlSource = "ContactName"
txtCompanyName.ControlSource = "CompanyName"
txtAddress.ControlSource = "Address"
txtCity.ControlSource = "City"
rst.Close
End Sub

作者: jzbinbin5 时间: 2014-5-16 11:18
ddddddddddddddd

作者: fxl54288 时间: 2014-9-1 15:28
謝謝分享

作者: guowj_ywk_sist 时间: 2015-10-1 09:48
谢谢楼主分享！

作者: lixiaoai 时间: 2015-11-15 17:58
顶起来

作者: luohuo 时间: 2016-3-22 19:58
学习学习，

作者: 灰太郎 时间: 2024-1-15 21:26
123456

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