'VB 连接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 连接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")))
            '添加数据项目到ComboBox列表中
        Loop
        数据库连接.Close() '关闭连接





'VB 添加、删除、修复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() '关闭连接





'VB  数据库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() '关闭连接

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。