2024年5月24日发(作者：)
' 连接SQL数据库的方法(一) [采用数据集]
'=================================================
=
' 在窗体上添加一个DataGrid控件命名为DataGrid1.在窗体加载事件Load里
写入以下代码：
Dim 数据库连接 As New
onnection("Provider=SQLOLEDB;User
Catalog=FKapp;data Source=.")
ID=sa;Password=;Initial
' 这里<连接字符串>"'<连接字符串>可以自动生成
(Connect Timeout=30)超时时间30秒
' 或
接.ConnectionTimeout =30
数据库连
Dim 数据适配器 As New ataAdapter("select * from tab_load",
数据库连接)
' 这里是SQL语句
Dim 数据集 As New DataSet '定义一个数据集
数据适配器.Fill(数据集, "tab_load") '加载数据到数据集
urce = 数据集.Tables("tab_load") '显示出数据
MsgBox("这是数据集中第 0 张表的 第2行的name列的数据：" & 数据
集.Tables(0).Rows(2)("name"))
MsgBox("这是数据集中第 0 张表的 第0行第0列的数据：" & 数据
集.Tables(0).Rows(0).Item(0))
MsgBox("这是数据集中tab_load表的 第1行的password列的数据：" & 数据
集.Tables("tab_load").Rows(1).Item("password"))
' 连接SQL数据库的方法(二) [采用数据读取器]
'=================================================
====
' 在窗体上添加一个ComboBox控件命名为ComboBox1.在窗体加载事件
Load里写入以下代码：
'创建连接
Dim 数据库连接 As New
onnection("Provider=SQLOLEDB;User
ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=FKapp;data Source=.")
'连接打开
发布者：admin，转转请注明出处：http://www.yc00.com/web/1716527357a2728178.html
评论列表（0条）