189 8069 5689
1、首先打开Visual Studio 2008代码窗口，添加引用。
成都创新互联公司始终坚持【策划先行，效果至上】的经营理念，通过多达10多年累计超上千家客户的网站建设总结了一套系统有效的全网整合营销推广解决方案，现已广泛运用于各行各业的客户，其中包括：成都汽车玻璃修复等企业，备受客户赞美。
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。
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
以下是完整模块
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)'-----------这里是数据表查询操作
select * from 表 where
(case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end) BETWEEN 2 and 5
'各项查询条件为空的时候用 1=1来代替
'例如：
tmpSelIDStr=Trim(txtSelectId.Text)
if tmpSelIDStr="" then
tmpSelIDStr=" 1=1 "
Else
tmpSelIDStr=" 员工编号='" tmpSelIDStr "'"
End If
'同理其它的都这么处理
'最后合并起来
sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....
'不知道这样回答你是否可以理解