用vb做sql数据库的增删改查
时间: 2024-05-11 19:18:41 浏览: 5
以下是一个使用 VB 和 SQL Server 进行增删改查的示例:
1. 连接到 SQL Server 数据库:
```
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"
conn.Open
```
2. 插入记录:
```
Dim sql As String
sql = "INSERT INTO myTable (name, age) VALUES ('John', 25)"
conn.Execute sql
```
3. 更新记录:
```
Dim sql As String
sql = "UPDATE myTable SET age = 30 WHERE name = 'John'"
conn.Execute sql
```
4. 删除记录:
```
Dim sql As String
sql = "DELETE FROM myTable WHERE name = 'John'"
conn.Execute sql
```
5. 查询记录:
```
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "SELECT * FROM myTable WHERE age >= 25"
rs.Open sql, conn
Do While Not rs.EOF
Debug.Print "Name: " & rs("name").Value & ", Age: " & rs("age").Value
rs.MoveNext
Loop
rs.Close
```
注意,以上示例仅适用于使用 SQL Server 数据库的情况。对于其他类型的数据库,连接字符串和 SQL 语句可能会有所不同。