' 连接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语句
数据适配器.ExecuteNonQuery() '执行-创建数据
数据库连接.Close() '关闭连接
'重新设置连接字符串
数据库连接.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password=;Initial Catalog=FKapp;data Source=.;Connect Timeout=10"
数据库连接.Open() '再次打开连接
'设置数据源执行的SQL语句
数据适配器.CommandText = "Create table tab_load(name varchar(20) not null Primary Key,password varchar(16) not null, jibie varchar(1) null)"
数据适配器.ExecuteNonQuery() '执行-创建表
'开始向表中插入记录
数据适配器.CommandText = "insert into tab_load values('Admin','admin','A')"
数据适配器.ExecuteNonQuery() '执行-插入记录
数据适配器.CommandText = "insert into tab_load values('feikeq','FK','B')"
数据适配器.ExecuteNonQuery() '执行-插入记录
数据适配器.CommandText = "insert into tab_load values('FIFA2006','2006','C')"
数据适配器.ExecuteNonQuery() '执行-插入记录
数据适配器.CommandText = "insert into tab_load values('NIIT','NIIT','C')"
数据适配器.ExecuteNonQuery() '执行-插入记录
数据库连接.Close() '关闭连接。
