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