VB与SQL数据库的连接程序
Private Function Selectsql(SQL As String) As ADODB.Recordset
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1"
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1"
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
文件大小：2.44KB
评论区