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