VB中如何使用SQL语句与数据库表格 *** 作

Private Sub Command2_Click()

If Adodc1RecordsetEOF = False Then

c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")

If c = vbOK Then

Adodc1RecordsetDelete

Adodc1RecordSource = "select from 人员表"

Adodc1Refresh

End If

Else

MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"

End If

End Sub

这就是一个删除按钮的代码，希望对你有帮助

我教你怎么跨数据库（跨服务器都可以） *** 作多数据表：

用ACCESS，就用他的一个ODBC功能做桥接，在VB中连接ACCESS数据库照常

我就给个ADO连接ACCESS连接SQL多数据库连接表联合查询三个数据库数据表的例子：

Private Sub 控件名称_事件过程(变量)

Dim A, B, C as String

'-----------------定义变量来存字符串

Adodc1ConnectionString="Provider=MicrosoftJetOLEDB40;Data Source=" & Apppath & "\ACCESS数据库后缀"

'-----------------连接ACCESS数据库照常

A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"

B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"

C="Select 字段3 AS 名称1, 字段4 as 名称2 From 表3 IN [ODBC] [ODBC;Server=SQL Server;uid=3用户名;PWD=密码;Server=服务器IP;DataBase=数据库名3]"

Adodc1recordsoure= A & "Unoin" & B & "Unoin" & C

Adodc1Refresh

Set 电子表格DataSource=Adodc1

End Sub

具体做法：

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

上述方法同样适用于ADO对象，只需将连接字符串复制粘贴给对象所需代码。

", vbOKCancel, "删除提示信息")

If c = vbOK Then

Adodc1RecordsetDelete

Adodc1RecordSource = "select from 人员表"

Adodc1RefreshEnd IfElseMsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"End IfEnd SubPrivate Sub Command3_Click()

If Text1(0)Text = "" Or Text1(1)Text = "" Then

MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"Elsec = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")

If c = vbOK Then '如果确认修改的话进行修改 *** 作

If Text1(1)Text = "" Then

MsgBox "姓名不能为空值!", 48, "修改"Else'连接所要修改的数据库

conOpen "Provider=SQLOLEDB1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

'开始修改数据库

conExecute ("UPDATE " & s1 & " SET 姓名='" & Text1(1)Text & "',年龄=" & Text1(2)Text & ",学历='" & Text1(3)Text & "',年级=" & Text1(4)Text & ", 入学时间='" & Text1(5)Text & "' where 编号='" & Trim(Text1(0)) & "'")

MsgBox "信息修改成功", 64, "修改"conCloseAdodc1RecordSource = "select from 人员表"

Adodc1RefreshEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()

Adodc1RecordSource = "select from 人员表 where 编号='" + Text1(0)Text + "'"

Adodc1Refresh

If Adodc1RecordsetRecordCount > 0 Then

MsgBox "该信息已存在，信息保存不成功", 64, "保存"Elsecc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")

可能是ODBC方式，某些权限受到限制吧（比如不能查master表），这种方式我没用过，我现在是用vbnet，用connecting 、adapter 等访问的，这样好像没有遇到过问题。

例如：

Dim DataSource As String, sql As String

Dim conn As SQLiteSQLiteConnection

DataSource = ApplicationStartupPath + "\StoreExecldb"

' //连接数据库

conn = New SQLiteSQLiteConnection()

Dim connstr As SQLiteSQLiteConnectionStringBuilder = New SQLiteSQLiteConnectionStringBuilder()

connstrDataSource = DataSource

Try

connConnectionString = connstrToString()

connOpen()

MeRTxt1Text = "系统已连接本地数据库，成功！"

catch

endtry

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

以上就是关于VB中如何使用SQL语句与数据库表格 *** 作全部的内容，包括:VB中如何使用SQL语句与数据库表格 *** 作、vb如何设置同时 *** 作多个数据库、VB6.0如何 *** 作微软的access数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！