快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net数据库查询 vb访问数据库

在vb.net中如何查询MDB数据库的数据

以下是完整模块

创新互联建站专业为企业提供钦北网站建设、钦北做网站、钦北网站设计、钦北网站制作等企业网站建设、网页设计与制作、钦北企业网站模板建站服务,10年钦北做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

Imports

System.Data

Imports

System.IO

Imports

System.Data.OleDb

Module

Module1

Public

cn

As

New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

Application.StartupPath

"\mdb数据库名字.mdb")

'定义连接

Public

DataBaseRST

As

Integer

'用来返回数据库执行结果

Public

Function

DataModify(ByVal

str

As

String)

As

Boolean

'进行数据库修改操作

Dim

cmdinsert

As

New

OleDbCommand

Try

cmdinsert.CommandText

=

str

cmdinsert.Connection

=

cn

If

cn.State

=

ConnectionState.Closed

Then

cn.Open()

DataBaseRST

=

cmdinsert.ExecuteNonQuery()

'用来返回执行的结果

cn.Close()

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

Public

Function

Search(ByVal

str

As

String,

ByVal

DGV

As

DataGridView)

As

Boolean

'查询

str---查询命令,DGV---DataGridView,用来显示数据的控件

Dim

tb

As

New

DataTable

Try

Dim

ap

As

New

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

=

tb

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

End

Module

'以下是调用方法

DataModify("

insert

into

aa

values

('1','2')")'-------这里是数据库更新操作

Search("select

bb

from

aa",DataGridView1)'-----------这里是数据表查询操作

如何用vb.net查询、添加、删除、修改数据库(需要很详细的代码)?

sQueryString是SQL(增删查改)语句

public

Boolean

ExecSQL(string

sQueryString)

{

SqlConnection

con

=

new

SqlConnection(ConfigurationManager.AppSettings["conStr"]);

con.Open();

SqlCommand

dbCommand

=

new

SqlCommand(sQueryString,

con);

try

{

dbCommand.ExecuteNonQuery();

con.Close();

}

catch

{

con.Close();

return

false;

}

return

true;

}

}

建立一个类,明自己取,然后调用就是了

例如:

BC=NEW

类();

STRING

ist="INSERT

INTO

XX(1,2,3)VALUES(A,B,C)";

BC.ExecSQL(ist);

就可以了

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

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

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

3、声明关键字 Public;(因为是全局变量,所以用Public 来声明)。

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

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

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 数据库查询

'各项查询条件为空的时候用 1=1来代替

'例如:

tmpSelIDStr=Trim(txtSelectId.Text)

if tmpSelIDStr="" then

tmpSelIDStr=" 1=1 "

Else

tmpSelIDStr=" 员工编号='" tmpSelIDStr "'"

End If

'同理其它的都这么处理

'最后合并起来

sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....

'不知道这样回答你是否可以理解

VB.net数据库查询

你把编程语言和T-SQL语言搞混了。

如果是单纯的T-SQL语言,应该是Select * from Data where ID in (1,2,3,4,5,6),其中(1,2,3,4,5,6)就是你所说的数组的代表。

所以你要把num(i)转化为一个(1,2,3,......)这样的字符串


当前文章:vb.net数据库查询 vb访问数据库
链接地址:http://6mz.cn/article/hehdji.html

其他资讯