vbsql查询语句
1、首先打开Visual Studio 2008代码窗口，添加引用。
Ⅱ VB数据库SQL语句查询
唉 你在"and"的前面 多加一个空格吧
Ⅲ vb中用sql语句查询数据库
"SELECT
sno,sco
FROM
sco
WHERE
sno='"
&
text1.text
&
"'"
因为现在不弄VB6了，所以具体怎么连接的代码我忘了，大概就是如果得到的结果RecordSet是空的，即Bof
And
Eof，则用户名错误，否则如果规定了用户名不可重复，就有且仅有1条记录，再比较其中的sco与Text2.Text是否相等，是则正确通过，否则密码错误。
Ⅳ VB中SQL查询数据库语句问题。
select
*
from
"
&
Combo1.Text
&
"
where
"
&
Combo2.Text
&
"
=
'"
&
Text1.text
&
"'
不知道你是不是像要这样
你说的Combo2.Text是表的属性
属性是字段的意思吗
如果是
你是不是像查找出
该属性里等于Text1.text内容的记录
Ⅳ VB中的SQL查询语句
select
count(icuo)
from
sheet1
where
icuo='0'//这才是统计出为0的个数然后再select
ID
from
sheet1
where
icuo='0'//这是列出为0的全部数据ID
Ⅵ VB中查询语句如何使用
一）操纵数据库，VB必须正确使用SQL结构化查询语句，将其赋值给ADO数据控件的RecordSource属性。
二）拼接SQL结构化查询语句的条件部分的判断语句结构应该是简洁有效。
已将原按钮的Click事件代码修改为能有效给ADO数据控件RecordSource属性，去完成数据查询。
SQL结构化查询语句
结构化查询语言(Structured Query Language)简称SQL(发音：/ˈes kjuː ˈel/ "S-Q-L")，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。
结构化查询语言是高级的非过程化编程语言，允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式，所以具有完全不同底层结构的不同数据库系统, 可以使用相同的结构化查询语言作为数据输入与管理的接口。结构化查询语言语句可以嵌套，这使它具有极大的灵活性和强大的功能。
OptionExplicit
DimstrsqlAsString
PrivateSubfind_Click()
IfTrim(name_find.Text)<>""AndTrim(phone_find.Text)<>""Then
strsql="select*fromphonewhere"+"电话号码='"&Trim(phone_find.Text)&"'"+"and姓名='"&Trim(name_find.Text)&"'"
EndIf
Adodc1.RecordSource=strsql
Debug.PrintAdodc1.RecordSource
EndSub
立即窗口显示正确的SQL语句。
Ⅶ VB中如何运用SQL查询语句
通过部件adbc部件，可以直接连库，一般我通过adbc部件生成sql连接字符串，然后新建conn对象，连接数据库
set conn=Server.Create("Adodb.Connection")
conn.Open "连接字符串"
再新建set rs=Server.Create("Adodb.RecordSet")
然后通过执行sql语句，把取得的记录集存到rs对象中，以便调用
rs.Open (sql,conn,3,3,-1)
open函数（或者叫方法）第一个参数是要执行的sql语句，第二个参数是操作哪个数据库，根据connection对象确定数据库，第三第四第五个参数是表示通过什么类型的游标，应用什么锁，最后一个忘了，不过默认是-1，不用管，不重要
如果不需要返回记录集的话，比如update ，insert 可以通过数据库连接对象的方法直接执行sql语句
conn.Execute(sql)
就可以执行了
Ⅷ vb的sql语句
结构化查询语言(Structured Query Language)简称SQL(发音：/ˈes kjuː ˈel/ "S-Q-L")，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
VB可将Sql查询语句赋值给Adodc数据控件的属性或提供给Ado数据对象，完成存取数据以及查询、更新和管理关系数据库系统。
Ⅸ vb中sql查询语句
1. For j = 1 To rs.RecordCount 改成 For j = 0 To rs.RecordCount - 1
2. .Data = rs(i).Value 改成 rs.Fields(i).Value
Ⅹ vb中连接SQL查询语句代码
‘模块中的代码
Public Function connectstr() As String
sqlpath = App.Path & "\数据库.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sqlpath & "" ‘access数据库
End Function
Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回记录集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo run_error
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
run_error:
MsgBox Err.Description
End Function
’窗体中的代码.................
Private Sub Combo1_Change()
Dim mrc As New ADODB.Recordset
Set mrc = runselect("select * from 表 where 字段='" & Trim(Combo1.Text) & "'")
Set DataGrid1.DataSource = mrc '显示在 datagrid 中
End Sub