如何自动控制计算器和记事本的示例

tmtony

这是以前做的 如何自动控制计算器和记事本的示例,今天整理资料时找到了,与大家分享
这是使用API 查找相关的非ACCESS窗体,然后控制它

游客，如果您要查看本帖隐藏内容请回复

灰太郎

123456

luohuo

学习学习，

lixiaoai

顶起来

guowj_ywk_sist

谢谢楼主分享！

fxl54288

謝謝分享

jzbinbin5

ddddddddddddddd

hwhwenha01

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.0ersist 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

zjd7896

学习一下

HKEY_CURRENT

回复看看