SQL问题请教

冷酷的云

Private Sub Form_Load()
Dim rst As ADODB.Recordset
    Dim strConnect As String
    Dim strSQL As String
   strConnect = "Provider=sqloledb;Server=(local);Database=测试;Uid=sa;Pwd=123;"

    ' 建立选择语句.
    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"

End Sub

要怎样修改，谢谢了！

z865593849

эE

tanglf188

Set Me.Recordset = rst

冷酷的云

冷酷的云

还是不行，是否还要怎样修改？

冷酷的云

哪位高手帮忙下

limonet

Dim rst As object
set rst=createobject("adodb.recordset")

WANT-T

这与SQL没有关系，明显是对ADODB.recordset对象不会使用

冷酷的云

WANT-T 发表于 2024-10-12 09:36
这与SQL没有关系，明显是对ADODB.recordset对象不会使用

大师再帮忙看下，还是不行。

WANT-T

冷酷的云 发表于 2024-10-12 11:40
大师再帮忙看下，还是不行。

请详细描述需求