vb.net查询sql表的简单介绍 _TableName

vb.net 查询sql表中某一列的数据Dim blUser As Boolean
Dim sql_conn As New SqlClient.SqlConnection("data source=.;initial catalog=test;user id=sa;password=123456;")
sql_conn.Open()
Dim sql_comm As New SqlClient.SqlCommand("Select user from table where user='123'", sql_conn)
Dim reader As SqlClient.SqlDataReader
reader = sql_comm.ExecuteReader
reader.Read()
If reader.HasRows Then
blUser = True
End If
reader.Close()
sql_conn.Close()
vb.net关于sql数据库的查询动态生成语句查询sql数据库内所有表vb.net查询sql表，通常用语句组合链接串。
如果是已经明确vb.net查询sql表的表，可以用参数方式变更。
如果是针对不同的表，自己拼合sql语句吧。
VB.net数据库连接的语句，网上太多了。
我想在vb.net的textbox里调用sql表中的数据，怎么办？分类:电脑/网络程序设计其他编程语言
解析:
Visual Basic.NET快速开发MIS系统
【摘要】本文介绍微软最新技术Visual Basic.NET在数据库开发方面的应用。结合数据库系统开发的知识，介绍了物理表操作的方法，利用Visual Basic.NET的面向对象的特征，利用类的继承知识，简化了数据库系统开发过程。
引言
以前版本的Visual Basic虽然号称自己是一种OOP（面向对象）编程语言，但却不是一个地地道道的OOP编程语言，最多只是半个面向对象的编程语言。但Visual Basic.NET已经是一种完全的面向对象的编程语言。他支持面向对象的所有基本特征：继承、多态和重载。这使得以前在Visual Basic中很难或根本实现不了的问题，在Visual Basic.NET中可以顺利的用简单的方法实现。
自定义数据操作类
定义一个数据访问的基类，并编写有关数据库操作的必要方法。
定义一个数据访问类，类名为CData 。定义连接Oracle数据库的方法ConnOracle，获取数据集的方法GetDataSet, 获取物理表的方法GetDataTable, 向物理表中插入一行数据的方法Insert, 向物理表中删除数据的方法Delete, 向物理表中更新数据的方法Update 。其实现方法不是本文的重点，在此仅给出代码，不作详细分析。代码如下：
Public Class CDataBase
Dim OleCnnDB As New OleDbConnection()
@#连接Oracle数据库，ServerName:服务器名，UserId:用户名，UserPwd:用户密码
Public Function ConnOracle(ByVal ServerName As String, ByVal UserId As String, ByVal UserPwd As String) As OleDbConnection
Dim OleCnnDB As New OleDbConnection()
With OleCnnDB
.ConnectionString = "Provider=MSDAORA.1;Password=@#"UserPwd"@#;User ID=@#"UserId"@#;Data Source=@#"ServerName"@#"
Try
.Open()
Catch er As Exception
MsgBox(er.ToString)
End Try
End With
mOleCnnDB = OleCnnDB
Return OleCnnDB
End Function
@#获取数据集。TableName：表名，strWhere：条件
Public Overloads Function GetDataSet(ByVal TableName As String, ByVal strWhere As String) As DataSet
Dim strSql As String
Dim myDataSet As New DataSet()
Dim myOleDataAdapter As New OleDbDataAdapter()
myOleDataAdapter.TableMappings.Add(TableName, TableName)
strSql = "SELECT * FROM "TableName" where "strWhere
myOleDataAdapter.SelectCommand = New OleDbCommand(strSql, mOleCnnDB)
Try
myOleDataAdapter.Fill(myDataSet)
Catch er As Exception
MsgBox(er.ToString)
End Try
Return myDataSet
End Function
@#获取物理表。TableName：表名
Public Overloads Function GetDataTable(ByVal TableName As String) As DataTable
Dim myDataSet As New DataSet()
myDataSet = GetDataSet(TableName)
Return myDataSet.Tables(0)
End Function
@#获取物理表。TableName：表名， strWhere：条件
Public Overloads Function GetDataTable(ByVal TableName As String, ByVal strWhere As String) As DataTable
Dim myDataSet As New DataSet()
myDataSet = GetDataSet(TableName, strWhere)
Return myDataSet.Tables(0)
End Function
@#向物理表中插入一行数据。TableName：表名，Value：行数据，BeginColumnIndex：开始列
Public Overloads Function Insert(ByVal TableName As String, ByVal Value As Object, Optional ByVal BeginColumnIndex As Int16 = 0) As Boolean
Dim myDataAdapter As New OleDbDataAdapter()
Dim strSql As String
Dim myDataSet As New DataSet()
Dim dRow As DataRow
Dim i, len As Int16
strSql = "SELECT * FROM "TableName
myDataAdapter.SelectCommand = New OleDbCommand(strSql, mOleCnnDB)
Dim custCB As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter)
myDataSet.Tables.Add(TableName)
myDataAdapter.Fill(myDataSet, TableName)
dRow = myDataSet.Tables(TableName).NewRow
len = Value.Length
For i = BeginColumnIndex To len - 1
If Not (IsDBNull(Value(i)) Or IsNothing(Value(i))) Then
dRow.Item(i) = Value(i)
End If
Next
myDataSet.Tables(TableName).Rows.Add(dRow)
Try
myDataAdapter.Update(myDataSet, TableName)
Catch er As Exception
【vb.net查询sql表的简单介绍】MsgBox(er.ToString)
Return False
End Try
myDataSet.Tables.Remove(TableName)
Return True
End Function
@#更新物理表的一个字段的值。strSql：查询语句，FieldName_Value：字段及与对应的值
Public Overloads Sub Update(ByVal strSql As String, ByVal FieldName_Value As String)
Dim myDataAdapter As New OleDbDataAdapter()
Dim myDataSet As New DataSet()
Dim dRow As DataRow
Dim TableName, FieldName As String
Dim Value As Object
Dim a() As String
a = strSql.Split(" ")
TableName = a(3)
a = FieldName_Value.Split("=")
FieldName = a(0).Trim
Value = https://www.04ip.com/post/a(1)
myDataAdapter.SelectCommand = New OleDbCommand(strSql, mOleCnnDB)
Dim custCB As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter)
myDataSet.Tables.Add(TableName)
myDataAdapter.Fill(myDataSet, TableName)
dRow = myDataSet.Tables(TableName).Rows(0)
If ValueNothing Then
dRow.Item(FieldName) = Value
End If
Try
myDataAdapter.Update(myDataSet, TableName)
myDataSet.Tables.Remove(TableName)
Catch er As Exception
MsgBox(er.ToString)
End Try
End Sub
@#删除物理表的数据。TableName:表名， strWhere：条件
Public Overloads Sub Delete(ByVal TableName As String, ByVal strWhere As String)
Dim myReader As OleDbDataReader
Dim myCommand As New OleDbCommand()
Dim strSql As String
strSql = "delete FROM "TableName" where "strWhere
myCommand.Connection = mOleCnnDB
myCommand.CommandText = strSql
Try
myReader = myCommand.ExecuteReader()
myReader.Close()
Catch er As Exception
MsgBox(er.ToString)
End Try
End Sub
End Class
定义一操作数据库中物理表的类CData,此类继承CDataBase,即：
Public Class CData：Inherits CDataBase
此类应该由供用户提供所操作的物理表的表名，指定了表名就可取得该表的所有性质。该表主要完成插入、删除、更新功能。定义其属性、方法如下：
申明类CData的变量:
@#所要操作的表名
Private Shared UpdateTableName As String
@#所要操作的表对象
Public Shared UpdateDataTable As New DataTable()
@#对应表的一行数据197
Public Shared ObjFields() As Object
@#表的字段数
Public Shared FieldCount As Int16
@#主关键字。我们假设每个物理表都有一个主关键字字段fSystemID
Public Shared SystemID As String
说明：Shared 关键字指示一个或多个被声明的编程元素将被共享。共享元素不关联于某类或结构的特定实例。可以通过使用类名或结构名称或者类或结构的特定实例的变量名称限定共享元素来访问它们。
申明类CData的属性UpdateTable,当向UpdateTable赋给了一个已知表的表名，就可确定表的字段数，定义出数据行。这里，先打开表，再重新定义数据行.
Public Property UpdateTable() As String
Get
UpdateTable = UpdateTableName
End Get
Set(ByVal Value As String)
UpdateTableName = Value.Trim
UpdateDataTable = DB.GetDataTable(UpdateTableName)
UpdateTableFieldNames = UpdateDataTable.Clone
FieldCount = UpdateDataTable.Columns.Count
ReDim ObjFields(FieldCount - 1)
End Set
End Property
@#删除由主关键值fSystemID指定的数据行
Public Sub Delete()
Dim strSQL As String
strSQL = "Delete from "UpdateTableName" where fSystemID="SystemID
DB.Delete(strSQL)
UpdateDataTable.Rows.Remove(GetRow)
End Sub
@#向表UpdateTableName中插入一行数据。数据由ObjFields给出
Public Function Insert() As Boolean
DB.Insert(UpdateTableName, ObjFields)
End Function
@#更新表UpdateTableName所指定的行
Public Shadows Sub Update()
Dim SetField As String
Dim i As Int16
For i = 1 To FieldCount - 1
SetField = UpdateTableFieldNames.Columns(i).ColumnName"="ObjFields(i)
UpdateField(SetField)
Next
End Sub
Public Sub UpdateField(ByVal SetField As String)
Dim StrSQL As String
StrSQL = "select * from "UpdateTableName" where fSystemID= "SystemID
DB.Update(StrSQL, SetField)
End Sub
@#填充网络数据
Public Overloads Sub FillGrid(ByVal GridName As DataGrid)
GridName.DataSource = UpdateDataTable
End Sub
@#把数据网格的当前行数据定写入到输入控件中
Public Sub DataGridToText(ByVal frm As Form)
Dim RowIndex, i As Int16
Dim value
Dim obj As Control
Dim DataGrid As New DataGrid()
If FieldCount = 0 Then Exit Sub
For Each obj In frm.Controls
If obj.GetType.Name = "DataGrid" Then
DataGrid = obj
Exit For
End If
Next
RowIndex = DataGrid.CurrentRowIndex
For i = 1 To FieldCount - 1
value = https://www.04ip.com/post/DataGrid.Item(RowIndex, i)
If IsDBNull(value) = True Then
valuehttps://www.04ip.com/post/= ""
End If
For Each obj In frm.Controls @#
If obj.TabIndex = i Then
obj.Text = value
Exit For
End If
Next
Next
End Sub
VB.NET 查询SQL数据库sql服务器上需要有装oraclevb.net查询sql表的client端(或者类似驱动)
2. 在sqlservervb.net查询sql表的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select *from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧vb.net查询sql表：)
另外,虚机团上产品团购,超级便宜
匿名 ??span class="tm"7-21 02:14/span
/p
div class="b bt2"div class="bt bg1 ft"img alt="其他答案" height="16" src="https://www.04ip.com/static/img/ico2.gif" width="16"/其他答案/div/div
p class="ft p1"1. sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select *from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧：)
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.nettsql数据库查询数据表不存在系统bug，网络问题。
1、系统bug是vb.nettsql数据库软件系统出现了问题导致数据表不存在，等待官方修复即可。
2、网络问题是自身设备连接的网络出现较大波动，导致vb.nettsql数据库软件不存在，更换网络重新打开即可。
关于vb.net查询sql表和的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net查询sql表的简单介绍

推荐阅读

计算机病毒是计算机系统中自动产生的

男人肚子大是什么原因

韩国有多大相当于中国哪里

sss重生猎人小说叫什么猎人sss 猎人故事

熬夜|熬夜或等于“熬命”，4个危害告诉你，熬夜到底有多可怕

冬至的习俗有哪些

樱桃|女子5天吃6斤车厘子中毒，吃车厘子真的有危险吗？看专家怎么说

支付宝pos机怎么申请？支付宝pos机怎么用？

如何启动企业邮箱服务器？企业邮箱怎么启动服务器

听起来轻松欢畅的歌曲有哪些？推荐几首如何？

工地标养室的配置

2021年1月结婚吉日有哪几天 2021年1月能办婚礼吗

家庭清洗皮草方法家庭清洗皮草的简易方法

婆媳关系紧张丈夫该帮谁？

爱莲说赏析关于爱莲说赏析

饥荒海难季节时间

服务器验证失败怎么解决？验证失败服务器出错怎么办

使用花露水的注意事项

脑溢血|脑溢血：一直拖延下去，可引起剧烈头痛、肢体偏瘫，需警惕

防疫口罩应该买哪种 kn95与n95的区别