glin_chen的博客

基于OPC基金会C#源码，自己写的OPCUA SERVER。

Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr: ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1" '这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function