有些场合可能需要将读取来的数据进行存储，或者从数据库中读取数据，这时候就可以用到SQL数据库，和SQL数据库的数据通讯，比较简单。
软件工具：1、visual studio
2、win10系统
3、SQL Server 、SSMS（SQL Server Management Studio）
程序主要涉及编程和SQL数据库设置。
SQL数据库简单说一下：
1、登录SQL服务器
登录名：sa ，密码：12345678（自定义）
2、添加新的数据库和新的表（名称自定义）：
右击表，选择编辑前200行，给新建的表添加一些数据，然后保存，作为测试数据使用。
打开visual studio ，新建窗体，在窗体上添加一些按钮和一个数据源控件（datagridview）。
先定义一下SQL相关的变量：
Dim sqlconn As SqlClient.SqlConnectionDim scd As SqlClient.SqlCommandDim sda As SqlClient.SqlDataAdapterDim dt As DataTable
窗体初始化时：
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Loadsqlconn = New SqlClient.SqlConnection("server=DESKTOP-MGUIPGF\WINCC;database=mtdata001;uid=sa;pwd=12345678;")scd = New SqlClient.SqlCommand("select * from Table_1", sqlconn)sda = New SqlClient.SqlDataAdapterdt = New DataTableEnd Sub
sql的连接实例化，并且输入sql服务器的相关参数，保存服务器名称、数据库名称、登录名、登录密码。这些可以在SQL数据库中查询到。
open：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clicksqlconn.Open()End Sub
就是调用sqlconnection的open方法就行了。
打开之后，对数据库进行读取，读取使用到sqlcommand的指令，具体读取那些数据，加什么过滤，可以根据sql数据表的实际数据进行操作，本例中全部读取：
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clickdt.Clear() '读取前先将datasource清0sda = New SqlClient.SqlDataAdapter(scd) '实例化sqldataadapter,传入的指令有SQLcommand中提供。sda.Fill(dt) '将读取的数据填充datatableDataGridView1.DataSource = dt '将datagridview的数据源绑定到datatableTextBox1.Text = DataGridView1.Rows.Count'记录读取的数据的行TextBox2.Text = DataGridView1.Columns.Count '纪律读取的数据的列End Sub
读取的数据就可以显示在表格中了：
读取到sql数据库的数据之后，可能会有修改的需求，这时候可以直接在窗体表格中修改，然后点击“更新”，将修改的数据更新到数据库中：
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim scb As New SqlClient.SqlCommandBuilder(sda) '实例化新的sql指令scb.GetUpdateCommand() '获取Update功能sda.Update(dt)'用于更新datatable，即存入数据库End Sub
基本上，读、写的功能就算是实现了，当然，如果有更深入的功能需求，就需要对sql数据库的操作有更深入的了解，有待后续。
关闭数据库连接：
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clickdt.Clear()sqlconn.Close()End Sub
完整程序：
Option Explicit OnPublic Class Form1Dim sqlconn As SqlClient.SqlConnectionDim scd As SqlClient.SqlCommandDim sda As SqlClient.SqlDataAdapterDim dt As DataTablePrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Loadsqlconn = New SqlClient.SqlConnection("server=DESKTOP-MGUIPGF\WINCC;database=mtdata001;uid=sa;pwd=12345678;")scd = New SqlClient.SqlCommand("select * from Table_1", sqlconn)sda = New SqlClient.SqlDataAdapterdt = New DataTableEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clicksqlconn.Open()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clickdt.Clear() '读取前先将datasource清0sda = New SqlClient.SqlDataAdapter(scd) '实例化sqldataadapter,传入的指令有SQLcommand中提供。sda.Fill(dt) '将读取的数据填充datatableDataGridView1.DataSource = dt '将datagridview的数据源绑定到datatableTextBox1.Text = DataGridView1.Rows.Count'记录读取的数据的行TextBox2.Text = DataGridView1.Columns.Count '纪律读取的数据的列End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim scb As New SqlClient.SqlCommandBuilder(sda) '实例化新的sql指令scb.GetUpdateCommand() '获取Update功能sda.Update(dt)'用于更新datatable，即存入数据库End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clickdt.Clear()sqlconn.Close()End SubEnd Class
调试效果：
