请问这是什么连接？

Question

Private Sub cmdDelete_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If msgList.Rows > 1 Then
        If MsgBox("真的要删除款号为" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "的记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            intCount = msgList.Row
            txtSQL = "delete from dm_wz where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
                
            Unload frmWZSetup
            frmWZSetup.txtSQL = "select * from dm_wz"
            frmWZSetup.Show
        End If
    End If
End Sub

Answer 1

具体看这个函数
ExecuteSQL
应该是ADODB
看语法应该是VB

Answer 2

Dim mrc As ADODB.Recordset
ado连接

Answer 3

ADO链接需要创建数据源嘛？

Answer 4

创建也可：那就是conn.connectstring="dsn=数据源;uid=sa;pwd=密码"的格式不创建也可:那就是conn.connectstring="provider=..;data source=..;uid=sa;pwd=.."的格式

Answer 5

ado连接数据库.不过不知道是odbc还是oledb,看那个连接函数内容