把DGV数据放到datatable DataTable dt = new DataTable(); for (int j = 0; j ucgrd.Columns.Count; j++) { dt.Columns.Add(ucgrd.Columns[j].HeaderCell.Value.ToString()); } for (int j = 0; j ucgrd.Rows.Count; j++) { DataRow dr = dt...
以下是完整模块
Imports
System.Data
System.IO
System.Data.OleDb
Module
Module1
Public
cn
As
New
Source="
Application.StartupPath
"\mdb数据库名字.mdb")
'定义连接
DataBaseRST
Integer
'用来返回数据库执行结果
Function
DataModify(ByVal
str
String)
Boolean
'进行数据库修改操作
Dim
cmdinsert
OleDbCommand
Try
cmdinsert.CommandText
=
cmdinsert.Connection
If
cn.State
ConnectionState.Closed
Then
cn.Open()
cmdinsert.ExecuteNonQuery()
'用来返回执行的结果
cn.Close()
Return
True
Catch
ex
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
False
End
Search(ByVal
String,
ByVal
DGV
DataGridView)
'查询
str---查询命令,DGV---DataGridView,用来显示数据的控件
tb
DataTable
ap
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
'以下是调用方法
DataModify("
insert
into
aa
values
Search("select
bb
from
aa",DataGridView1)'-----------这里是数据表查询操作
gogoodsinfo.View(" where 商品编号='" + TextBox1.Text.replace("'","''") + "'")
Catch ex As Exception
messagebox.show("错误信息:"+ex.tostring(),"提示")
End Try
你试一下,把我这句给复制过去看是否报错,左边条件要有空格,右边要有取代函数!
select * from 表 where
(case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
dim
myselectquery
as
string
"select
*
where
姓名='小强'"
mycommand
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件,conn是你的sqlconnection对象
conn.open()'打开数据连接
myreader
sqldatareader'定义一个reader用来读数据
mycommand.executereader()'运行你的查询,结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
以上就是土嘎嘎小编为大家整理的vb.net如何查询数据相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!