vb中的sql
㈠ vb中怎麼使用sql
select
*
from
成績表
where
姓名='張大保'
翻譯為中文就是
從「成績表」中選擇所有姓名是「張大保」的記錄
From
從......
From
成績表
就是「從成績表...」的意思
Form
是表格、表單的意思，用在這里是沒意義的
另外在條件前面要加上where，意思就是在什麼地方去找你要的東西
這些都是最基本的，你先把sql的語法搞清楚了再到VB中應用
㈡ 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語句，完整的使用格式應該怎麼書寫
使用adodc控制項。假設你已經連接好資料庫
ADODC1.Recordsource
="select
count(*)
as
計數
from
ck
where
mark<>0"
ADODC1.refresh
text1.text=Adodc1.Recordset.Fields(0).value
如果是sum，則ADODC1.Recordsource
="select
sum(*)
as
計數
from
ck
where
mark<>0"
㈣ 在VB中如何動態執行SQL語句
在編寫SQL語句時直接用變數替換
Connection.Open("Select * From xs Where xh in (" & n1 & ", " & n2 & ")"
如n1, n2為字元串，則用單引號包含
㈤ vb中如何寫sql查詢條件
sql="select
*
from
(表格名字)
where
id='"
&
text1.text
&
"'
and
name='"
&
text2.text
&
"'
and
age="'
&
text3.text
&
"'
order
by
id
asc"
order
by
id
asc
這句意思是按id升序排列，可寫可不寫。
㈥ 怎麼在VB中調用SQL資料庫，資料庫已經建好，越詳細越好.
Public Function ConnectString() _
As String
ConnectString = "FileDSN=info.dsn;UID=sa;PWD=23" '連接字元器，改成你自己的
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '這里是執行SQL語句，你只需要調用這個方法，把SQL查詢語句參數傳進來，最後返回一個Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & _
" 條記錄 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function
㈦ vb中用sql語句查詢資料庫
"SELECT
sno,sco
FROM
sco
WHERE
sno='"
&
text1.text
&
"'"
因為現在不弄VB6了，所以具體怎麼連接的代碼我忘了，大概就是如果得到的結果RecordSet是空的，即Bof
And
Eof，則用戶名錯誤，否則如果規定了用戶名不可重復，就有且僅有1條記錄，再比較其中的sco與Text2.Text是否相等，是則正確通過，否則密碼錯誤。
㈧ vb中的SQL語句
Set rs = db.OpenRecordset("select 機票編號 from 客戶信息表 where 機票編號 ='" & text1.text & "'")
㈨ vb如何連接sql資料庫
1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。
㈩ VB中的SQL查詢語句
select
count(icuo)
from
sheet1
where
icuo='0'//這才是統計出為0的個數然後再select
ID
from
sheet1
where
icuo='0'//這是列出為0的全部數據ID