vb.net操作sql的简单介绍

刚刚入手VB.NET,对于SQL数据库操作遇到些小问题,请知情者帮忙.在线等~~~

你干嘛把程序发两次阿

成都创新互联公司专注于延津网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供延津营销型网站建设，延津网站制作、延津网页设计、延津网站官网定制、重庆小程序开发服务，打造延津网络公司原创品牌,更为您提供延津网站排名全网营销落地服务。

访问数据库简单来说，先建立一个数据库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

}

VB.net 如何修改SQL数据

点击修改按钮以后，相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下：

1

2

信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例，其他的跟这个一样。

信息显示.ShowDialog()

完成修改的SQL代码如下：

1

UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件

请问：VB.NET怎么连接SQL？

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

vb.net 中如何使用SQL语句查询数据库

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

VB.NET中如何用SQL语句建表（复制表）？谢谢了！

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

在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 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。

vb.net 连接sql数据库模块,如何使用？

比如有个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返回结果了。