189 8069 5689
点击修改按钮以后，相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下：
创新互联是一家企业级云计算解决方案提供商,超15年IDC数据中心运营经验。主营GPU显卡服务器，站群服务器，四川移动机房托管，海外高防服务器，大带宽服务器，动态拨号VPS，海外云手机，海外云服务器，海外服务器租用托管等。
1
2
信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例，其他的跟这个一样。
信息显示.ShowDialog()
完成修改的SQL代码如下：
1
UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件
1、首先打开Visual Studio 2008代码窗口，添加引用。
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。
Module Module1
Sub Main()
Dim conn As New System.Data.SqlClient.SqlConnection
Dim sql As String
conn.ConnectionString = "server=(local);database=pubs;uid=sa;pwd=sa"
'插入数据
sql = "insert into jobs(job_desc,max_lvl,min_lvl) values ('aaa',100,10)"
Operator(sql, conn) '自定义方法
'修改数据
sql = "update jobs set job_desc='bbb',max_lvl=100,min_lvl=11 where job_id=2"
Operator(sql, conn) '自定义方法
'删除数据
sql = "delete from jobs where job_id=2"
Operator(sql, conn) '自定义方法
End Sub
Sub Operator(ByVal strQry As String, ByVal con As System.Data.SqlClient.SqlConnection) '自定义方法
Dim com As New System.Data.SqlClient.SqlCommand
com.CommandText = strQry '获取或设置要对数据源执行的 SQL 语句或存储过程。
com.CommandType = CommandType.Text '获取或设置一个指示如何解释 CommandText 属性的值
com.Connection = con
Try
com.Connection.Open()
com.ExecuteNonQuery() '执行SQL 语句或存储过程
com.Connection.Close()
Catch ex As Exception
com.Connection.Close()
Console.WriteLine(ex.ToString())
End Try
End Sub
End Module
如想将任意文件导入Sqlserver数据库，请使用导入数据向导