×

vb net 数据库 数据库 net

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

admin admin 发表于2022-09-06 14:45:23 浏览353 评论0

抢沙发发表评论

本文目录

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


1、首先打开Visual Studio 2008代码窗口，添加引用。

2、输入以下代码：Public conn1  As SqlConnection = New SqlConnection 。

3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。

4、如果SQL 数据库就在本机，则用以下代码连接。

5、如果代码太长，影响可读性，可以用空格加“_“后，回车换行即可。


vb.net操作数据库的效率问题


select
*
from
XXX
如果数据量少还可以，如果数据量一大，需要从适配器在读取到Dataset中，这个是相当耗时的。
其实，有一些程序可以采用
分段读取，多次读取。
像这样的写法，更新一条数据，就需要在重新读取所有的数据。。耗费太大资源和贷款。。
客户端也会导致很慢甚至读取数据假死。。
-----------------------------
最好的方式不管你用DataRead还是什么，这些都根本解决不了这些问题。
你需要做的就是
如何高效读取/处理数据。
BS
结构，可以采用异步加载数据和处理数据
CS结构
异步加载和分段读取数据。而不是一下子就把所有数据加载处理。这样的话，CPU和内存占用率就会抬高。。。。
---------------------------------
之前公司采用的方式就是这样的，DataSet和Fill
后来发现不好，于是就采用异步，服务器压力减少，客户端满意度提高。。
-net

vb.net的数据库怎么连接啊


Dim
sqlConnection1
As
SqlClient.SqlConnection
　Dim
strConnect
As
String=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
　　sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
　sqlConnection1.open
‘打开数据库
　　sqlConnection1.close
‘关闭连接，释放资源
1)连接Sql
Server数据库
　　Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
　Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服务器名;Uid=sa;pwd=;Database=
数据库名;”
　odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)
-数据库

vb.net的数据库连接


1·绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码：
Dim str As String = “Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password=“
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码：Dim str As String = “Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password=“
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = “Select * From Amd Where AmdName=’“ & TextBox1.Text & “’ And AmdPwd = ’“ & TextBox2.Text & “’“
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then ’判断一条记录为真
kf.Show() ’显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show(“输入信息有误！“, “提示“)
TextBox1.Text = ““
TextBox2.Text = ““
End If
-net

vb.net和数据库连接的问题


我们需要引用ADO.具体的方法是,在“工程“ -- “引用“ 中,找到“Microsoft ActiveX Data Object *.* Library“,这里的“*.*“是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.
然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
创建这两个对象的具体方法是:
1.在引用后,使用New关键字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在没引用时,用CreateObject创建对象:
Dim Conn,Reco
Set Conn = CreateObject(“ADODB.Connection“)
Set Reco = CreateObject(“ADODB.Recordset“)
创建了对象之后,下一步我们要做的就是打开数据库了.
先看下面的代码,可以成功的打开数据库.
Conn.open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb“
这句代码打开了D盘中的Main.mdb这个数据库.
Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分“Provider= Microsoft.Jet.OLEDB.4.0“,它表示了数据库的类型.不同的数据库可能会不同.后半句“Source=d:\main.mdb“它表示了数据库所在的绝对路径.
打开数据库之后,还要打开表.假如数据库中有一个表,表名为“Users“,字段有两个,一个为用户名,一个为密码.那么看以下代码.
1.想返回“Users“中,[用户名]为“去年烟花“的[密码]
Recordset.open “Select 密码 From Users Where 用户名=’去年烟花’“,Connection,1,1
之后我们就可以把用户输入的密码进行比较,看是否允许登录.
If Recordset.eof and Recordset.bof then
Msgbox “用户不存在!“,16
Else
If PassWord =Recordset(“密码“).value then
msgbox “登录成功!“,64
Else
msgbox “密码错误!“,32
End If
End If
Recordset.Close
2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来
Recordset.open “Select * From Users“,Connection,1,1
这时,表已经被打开,我们就用以下代码把它显示出来.
Do whlie Not Recordset.eof
Print “用户名: “ & Recordset(“用户名“).value & “密码: “ & Recordset(“密码“).value
Recordset.MoveNext
Loop
Recordset.Close
由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.
Select [字段名] From 表名 [Where 条件]
这里的条件可以省略.且字段名也可以用“*“来代替所有字段.
需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset(“密码“)就没有值存在,还有可能出错.
后面的条件,可以用“=“、“》“、“《“等运算符.比如 “Where ID 》 32“.(这里假设[ID]为数字型.)
这是打开的部分.第二个很重要的部分就是查询记录.
数据库它并不是把所有记录全部放到一个变量中备用的.而是以“当前记录“的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.
定位:
移动到下一条 Recordset.MoveNext
移动到上一条 Recordset.MovePrevious
移动到最后一条 Recordset.MoveLast
移动到第一条 Recordset.MoveFrist
移动到某一条 Recordset.Move Number
筛选:
Recordset.Find “条件“
如:[用方法(2)打开表之后]
Private Sub Command1_Click()
Recordset.Find “用户名=“ & “text1.text“
If Recordset.Eof 《》 True Then
Msgbox “该用户的密码是:“ & Recordset(“密码“).value,64
Else
Msgbox “未找到该用户的资料!“,16
End If
End Sub
MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时....
而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.
Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.
第三个部分就是添加/修改记录.
修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.
比如:[(修改密码)按方法(1)打开表之后]
Recordset(“密码“).value = “123456“
Recordset.Updata
需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.
而添加记录则可以用以下代码来实现:
Recordset.addnew
Recordset(“用户名“).value = “Admin“
Recordset(“密码“).value = “Admin“
Recordset.Updata
这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.
到这里就差不多了,最后说一下上面提到的几个方法.
Recordset.Open SQL语句,数据源,游标类型,打开方法
SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据
数据源就是一个打开之后的Connection对象.
去他妈的游标类型,填1就可以了 [偷笑ing]
打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.
对应数值的意义:
1 只读 2 独占 3 可写 4 自已可写,别人可读
Connection.open 连接代码,服务器用户名,密码
这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.
-数据库

vb.net连接数据库


1、 用The SQL Server .NET Data Provider连接数据库
The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，
SqlConnection类位于名称空间System.Data.SqlClient下。
连接代码：
Dim sqlConnection1 As SqlClient.SqlConnection
Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”
sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open ‘打开数据库
sqlConnection1.close ‘关闭连接，释放资源
2、 用The OLE DB .NET Data Provider连接数据库
上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据
库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy
stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:
1)连接SQL Server数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)连接Access数据库
假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)连接Oracle数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider连接数据库
The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间
Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。
由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类
似，我就不再多讲了。
1)连接Sql Server数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
2)连接Oracle数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、总结
通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法
。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。
具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。
以上回答你满意么？
-net

vb.net 怎么操作数据库


如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！
另外
.NET
Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。
比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：
’首先导入命名空间
Imports
System.Data
Imports
System.Data.OleDb
’然后在某一个事件处理程序中写：
Dim
conn
As
New
OleDbConnection(“Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=数据库.accdb;Jet
OLEDB:Database
Password=MyDbPassword“)
Dim
command
As
New
OleDbCommand(“Select
*
From
数据表“,
conn)
conn.Open()
’打开数据库连接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
’执行SQL语句，返回OleDbDataReader
对象
Do
While
reader.Read()
’读取一条数据
textbox1.Text
+=
reader(“一些数据“)
&
VbCrLf
Loop
reader.Close()
’关闭OleDbDataReader
conn.Close()
’关闭连接
-数据库

VB.NET怎样连接数据库


Imports System.Data
Imports System.Data.SqlClient
Module 连接数据库
Public Server1 As String
Public DataBase1 As String
Public Function GetTable(ByVal sqlstr$) As DataTable
Dim SqlConn As SqlConnection = New SqlConnection(“server=“ & Server1 & “;database=“ & DataBase1 & “;integrated security=true“) ’声明这些SQL的类
Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter
Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)
facDataAdapter.SelectCommand = SqlComm
Dim dt As DataTable = New DataTable
facDataAdapter.Fill(dt)
Return dt
End Function
End Module
-net

vb.net如何实现修改数据库中的数据


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

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

完成修改的SQL代码如下：-数据库

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