重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
点击修改按钮以后,相对的数据显示到 信息显示 窗口的相对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数据库,请使用导入数据向导