'VB.net 连接 SQL 数据库的方法(一) [采用数据集]
'==================================================
' 在窗体上添加一个 DataGrid 控件命名为 DataGrid1.在窗体加载事件 Load 里写入以下代码:
Dim 数 据 库 连 接 As New OleDb.OleDbConnection("Provider=SQLOLEDB;User
ID=sa;Password=;Initial Catalog=FKapp;data Source=.")
' 这里<连接字符串>"'<连接字符串>可以自动生成 (Connect
Timeout=30)超时时间 30 秒
'或 数 据 库 连 接 .ConnectionTimeout
=30
Dim 数据适配器 As New OleDb.OleDbDataAdapter("select * from tab_load", 数据库连接)
' 这里是 SQL 语句
Dim 数据集 As New DataSet'定义一个数据集
数据适配器.Fill(数据集, "tab_load") '加载数据到数据集
DataGrid1.DataSource = 数据集.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"))
'VB.net 连接 SQL 数据库的方法(二) [采用数据读取器]
'=====================================================
' 在窗体上添加一个 ComboBox 控件命名为 ComboBox1.在窗体加载事件 Load 里写入以下代
码:
'创建连接
Dim 数 据 库 连 接 As New OleDb.OleDbConnection("Provider=SQLOLEDB;User
ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=FKapp;data Source=.")
'连接打开
数据库连接.Open()
'定义 SQL 查询语句
Dim SQL 语 句 As OleDb.OleDbCommand = New OleDb.OleDbCommand("select *
from tab_load", 数据库连接)
'读取数据源行记录
Dim 数据读取器 As OleDb.OleDbDataReader
数据读取器 = SQL 语句.ExecuteReader '发送 SQL 语句
Do While 数据读取器.Read'循环获得记录
FRMLoadMain.ComboBox1.Items.Add(Trim(数据读取器.Item("name")))
评论4