vbnet数据库查询

㈠ VB.NET 查询数据库内容

Try
gogoodsinfo.View(" where 商品编号='" + TextBox1.Text.replace("'","''") + "'")
Catch ex As Exception
messagebox.show("错误信息："+ex.tostring(),"提示")
End Try

你试一下，把我这句给复制过去看是否报错，左边条件要有空格，右边要有取代函数！

㈡ vb.net数据库查询

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

㈢ VB.NET 查询SQL数据库

sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写

很久之前做过的，希望能帮上，试试看吧：)
另外,虚机团上产品团购,超级便宜

匿名 ??<span class="tm">7-21 02:14</span>
</p>
<div class="b bt2"><div class="bt bg1 ft"><img alt="其他答案" height="16" src="/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中如何查询MDB数据库的数据

以下是完整模块
Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Mole Mole1
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 Mole

'以下是调用方法
DataModify(" insert into aa values ('1','2')")'-------这里是数据库更新操作
Search("select bb from aa",DataGridView1)'-----------这里是数据表查询操作

㈤ vb.net 数据库查询

这是你的全部吗？
首先连接数据库连接了吗？Sqlconnection的定义，然后在后面填写你要连接的数据库，以及用户名和密码
Dim sqlcon As New SqlConnection("Data Source=WWW-9A6F5E15ECC;Initial Catalog=gj;User ID=sa;Password=123")
sqlcon.Open()
然后这是VB.NET吗？
语法就有问题
dim sql as string = "select max('id') as zd from 基本信息 where 子类='客商'"
dim sqlcmd as new sqlcommand(sql, sqlConnection1)
这些，再就是sql语句max(参数)
还有你想做什么。。你这表怎么样的。。始终觉得有点问题

㈥ VB.NET连接ACCESS数据库，读取查询并显示

给你写个例子，不明白，再问！！
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" & t1.Text & ""
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class

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

我是这样做的:
Dim ConnectionString As String = _
"Provider=Microsoft.Jet.OleDb.4.0;_DatacSource = App.Path+\temp.mdb"
Dim myconn As OleDbConnection = New OleDbConnection()
myconn.ConnectionString = ConnectionString
Dim strcom As String = "select * form 通讯录"
OleDbConnection1.Open()
Dim strdele As String="DELTEL 表 WHERE 姓名='MMM'"
Dim mycommand As OleDbCommand = New OleDbCommand(strdele, myconn)
mycommand.ExecuteNonQuery() '从数据库中删除记录
DataSet1.Tables("通讯录").Rows(mybind.Position).Delete() '逻辑删除
DataSet1.Tables("通讯录").AcceptChanges()
OleDbConnection1.Close()

㈧ VB.NET实现sql查询问题

实在看不下去了，
Const sql As String = "select * from 学生基本信息表 where 学号='" & textbox1.Text & "'"
Const searchsql As String = "insert into 学生基本信息表 values('"
Dim xh As String , name As String , sex As String , id As String , tel As String , address As String
Dim time As DateTime
Dim conn as new adodb.connection
dim ConnectionString as string

If textbox1.Text = "" Or textbox2.Text = "" Then
MsgBox "该生信息不完整"
Else
ConnectionString = "Data Source=ZX\SQLEXPRESS;Initial Catalog=studentMIS;Integrated Security=True"
conn.Open(ConnectionString)
cmd.CommandText = sql
cmd.Connection = conn
sqlda.SelectCommand = cmd
Try
dr = cmd.ExecuteReader()
Do While dr.Read()
MsgBox("该生信息已存在")
Loop
If dr.Read = False Then
xh = textbox1.Text
name = textbox2.Text
sex = cb1.SelectedItem
time = textbox3.Text
id = textbox4.Text
tel = textbox5.Text
address = textbox6.Text
searchsql = searchsql & xh & "','" & name & "','" & sex & "','" & time & "','" & id & "','" & tel & "','" & address & "')"
cmd.CommandText = searchsql
sqlda.SelectCommand = cmd
sqlda.Fill(ds, "学生基本信息表")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If

按F8一句句调试看那句不对

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

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

㈩ 关于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 ....

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