ADO封装连接sqlserver查改增删
时间: 2023-07-25 22:16:10 浏览: 53
好的,这是一个比较常见的需求,以下是一个简单的示例代码:
```vb
'引用ADO库
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'连接字符串
Dim strConn As String
strConn = "Provider=SQLOLEDB;Data Source=yourServerName;Initial Catalog=yourDatabaseName;User ID=yourUserName;Password=yourPassword"
'打开连接
conn.Open strConn
'查询数据
Dim sql As String
sql = "SELECT * FROM yourTableName"
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
'遍历结果集
Do While Not rs.EOF
Debug.Print rs("columnName1"), rs("columnName2")
rs.MoveNext
Loop
'插入数据
sql = "INSERT INTO yourTableName (columnName1, columnName2) VALUES ('value1', 'value2')"
conn.Execute sql
'更新数据
sql = "UPDATE yourTableName SET columnName1 = 'newValue1' WHERE columnName2 = 'value2'"
conn.Execute sql
'删除数据
sql = "DELETE FROM yourTableName WHERE columnName1 = 'value1'"
conn.Execute sql
'关闭连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
```
请注意替换代码中的数据库连接信息和 SQL 语句中的表名、列名和值。此外,还需要确保已经正确引用了 ADO 库。