VBnet数据库操作

' 连接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"))

' 连接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 '循环获得记录

boBox1.Items.Add(Trim(数据读取器.Item("name")))

'添加数据项目到ComboBox列表中

Loop

数据库连接.Close() '关闭连接

' 添加、删除、修复SQL数据记录的方法(直接型)

'======================================================

'连接到一个数据库

Dim 数据库连接As New OleDb.OleDbConnection("Provider=SQLOLEDB;User ID=sa;Password=;Initial Catalog=FKapp;data Source=.")

数据库连接.Open() '打开连接

'删除SQL数据记录的方法(直接删除)'数据源执行的SQL语句

'--------------------------------------------------------------------------------------------

Dim 数据适配器As New OleDb.OleDbCommand("delete from tab_load where name='nba'", 数据库连接)

'---------------------------------------------------------------------------------------------

'从数据库中删除指定记录

数据适配器.ExecuteNonQuery() '执行

数据库连接.Close() '关闭连接

' 数据库OleDb.OleDbCommand语句定义

=======================================================

'更新SQL数据记录的方法(直接更新)'数据源执行的SQL语句

Dim 数据适配器As New OleDb.OleDbCommand("Update tab_load SET name='ok',password='no',jibie='B' where name='admin'", 数据库连接)

'插入SQL数据记录的方法(直接插入)'数据源执行的SQL语句

Dim 数据适配器As New OleDb.OleDbCommand("Insert INTO tab_load(name,password,jibie)VALUES('1555','2','3')", 数据库连接)

'OleDbCommand里可写常用的SQL语句-例：创建数据库等

'连接到一个数据库

Dim 数据库连接As New OleDb.OleDbConnection("Provider=SQLOLEDB;User ID=sa;Password=;data Source=.;Connect Timeout=10")

数据库连接.Open() '打开连接

'从数据库中修改指定记录

Dim 数据适配器As New OleDb.OleDbCommand("Create DATABASE FKapp", 数据库连接) '数据源执行的SQL语句