你干嘛把程序发两次阿
成都创新互联公司专注于延津网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供延津营销型网站建设，延津网站制作、延津网页设计、延津网站官网定制、重庆小程序开发服务，打造延津网络公司原创品牌,更为您提供延津网站排名全网营销落地服务。
访问数据库简单来说，先建立一个数据库SqlClient.SqlConnection
连接，再建立一个数据命令SqlClient.SqlCommand，然后打开连接执行命令得到结果并关闭连接。就这么简单。给你个例子吧。
Public
Function
SqlAccess()
{
strSqlConn
As
String
=
"
连接字符串";
//连接字符串
strSqlCmd
As
string
=
"sql查询字符串";
//sql查询字符串
sqlConn
As
SqlClient.SqlConnection;
//申明一个连接
sqlCmd
As
SqlClient.SqlCommand;
//申明一个SqlCommand
Try
sqlConn
=
New
SqlClient.SqlConnection;
//建立连接
sqlConn.ConnectionString
=
strSqlConn;
sqlCmd
=
New
SqlClient.SqlCommand(strSqlCmd
,sqlConn);//建立查询
sqlConn.Open()
//打开连接
sqlCmd.ExcuteScalar()
//执行查询，并返回结果，这里你可以设一个变量来获取结果，比如
tmp
=
sqlCmd.ExcuteScalar()，我这里省略了
Catch
ex
As
Exception
MsbBox(ex.ToString)
//显示错误信息
Finally
sqlConn.Close()
//关闭连接
End
Try
}
点击修改按钮以后，相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下：
1
2
信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例，其他的跟这个一样。
信息显示.ShowDialog()
完成修改的SQL代码如下：
1
UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件
Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable
sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="数据库sa用户"; Password="数据库密码""
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" test2 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
界面上控件
DataGridView1.DataSource = dr
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小强'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件，conn是你的sqlconnection对象
conn.open()'打开数据连接
dim
myreader
as
sqldatareader'定义一个reader用来读数据
myreader
=
mycommand.executereader()'运行你的查询，结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
if
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
在SQL数据库里已有一个现成的空数据表（只有字段、没有数据），请问高手，怎样在VB.NET中用SQL语句把该数据库中的那个表复制一个到该数据库（字段不变、数据为空）只是把数据表的名改了？
谢谢！谢谢！
解析:
select * into 新表 from 旧表
使用 SELECT INTO 插入行
SELECT INTO 语句创建一个新表，并用 SELECT 的结果集填充该表。新表的结构由选择列表中表达式的特性定义，例如：
SELECT Shippers.*, Link.Address, Link.City,
Link.Region, Link.PostalCode
INTO NewShippers
FROM Shippers
JOIN LinkServer.DB.dbo.Shippers AS Link
ON (Shippers.ShipperID = Link.ShipperID)
SELECT INTO 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。
比如有个asp.net(vb.net)连接sql server 2000数据库的连接模块(module)：
Module MdlCommon
Public txtSQL As String '存放SQL语句
Public DBSet As DataSet '查询得到的记录集
Public ErrorMsg As String '存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim SplitSQL() As String
errMsg = ""
Try
SplitSQL = Split(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Else
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = rst
End If
Catch ex As Exception
errMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try
End Function End Module
调用时在asp.net后台写上txtSQL="SELECT * FROM user";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。
重庆分公司
重庆分公司
