库VB程序实现对MS SQL数据库的修改

Visual Basic (VB) 是一种允许用户编写交互式、桌面利用程序的编程语言。它可以用于创建灵活、安全和强大的 Windows 程序和利用程序，并可以访问具有 Microsoft SQL Server 数据库的 Microsoft Windows 后端服务器。

要与 Microsoft SQL Server 数据库通讯，我们需要援用 Microsoft 数据库引擎 Object Library ， 就像我们在其他支持 COM 库一样。我们可使用 Microsoft数据库引擎/ODBC 数据源库，从而实现对 Microsoft SQL Server 数据库的读写访问。

在开始下一步之前，一定要要有一个数据库可以访问。因此，在 SQL Server 上要建立一个名称叫做 “myDB” 的数据库：

CREATE DATABASE myDB;

现在，我们可以创建一个包括两个列（ID 和 Name） 的表。我们将在这个表中添加一些数据，以便演示从 VB 中修改 Microsoft SQL Server 数据库的进程：

USE myDB;

CREATE TABLE testTable (

ID INT,

Name VARCHAR(255)

);

INSERT INTO testTable (ID, Name) VALUES

(1, ‘John’),

(2, ‘Michael’),

(3, ‘Steven’);

以后，现在，我们可以用 VB 程序，来访问 Microsoft SQL Server 数据库并履行查询或修改操作：

Function ConnectToDB()

Dim cStrConnection As String ‘创建用 isql 连接的字符串

cStrConnection = “PROVIDER=SQLOLEDB.1; UID=username; PWD=password; SERVER=ServerName; Initial Catalog=myDB”

connString.Open (cStrConnection)

connString.CursorLocation = adUseClient

End Function

Sub UpdateDB()

Dim connString As ADODB.Connection

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

Set connString = ConnectToDB()

Dim Sql String As String

Sql String= “UPDATE testTable SET Name = ‘Robert’ WHERE id = 2”

rst.Open (Sql String, connString, adOpenKeyset, adLockOptimistic)

rst.Close

Set rst = Nothing

connString.Close

Set connString = Nothing

End Sub

这段代码中，包括 ConnectToDB 函数和 UpdateDB 子程序，它们是实现对 MS SQL Server 数据库的修改所一定要的。ConnectToDB() 函数连接到数据库，然后 UpdateDB 子程序履行了一条 SQL 语句：UPDATE testTable SET Name = ‘Robert’ WHERE id = 2，用于修改已存在的记录。

总结，VB 程序实现 MS SQL Server 数据库的修改非常容易，只需要编写一些简单的代码便可实现。通过援用 Microsoft 数据库引擎及 ODBC 驱动程序，用户可使用 VB 来实现对 MS SQL Server 数据库的读写访问，从而实现数据的修改。

本文来源：https://www.yuntue.com/post/228378.html | 云服务器网，转载请注明出处！