当前位置:首页 » 编程语言 » vb如何调sql函数
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

vb如何调sql函数

发布时间: 2022-04-28 23:21:01

㈠ vb中怎么使用sql

select
*
from
成绩表
where
姓名='张大保'
翻译为中文就是
从“成绩表”中选择所有姓名是“张大保”的记录
From
从......
From
成绩表
就是“从成绩表...”的意思
Form
是表格、表单的意思,用在这里是没意义的
另外在条件前面要加上where,意思就是在什么地方去找你要的东西
这些都是最基本的,你先把sql的语法搞清楚了再到VB中应用

㈡ vb怎么执行sql语句

先是定义一个字符串变量,然后把你要写的SQL语句赋给它。这时如果要把一些VB控件里的数据加进去也一样就是一个字符串联接而以,唯一要注意的是标点符号的使用如:' 这个符号,因为很多时候要用到这个,我碰到好多人都是这里出错了。例如:Dim strsql As String
strsql = "select * from TblSystemData"
If dh.Text <> " " Then '单号
strsql = strsql & " where ChrCode like " & "'" & dh.Text & "'"
End If
当然你也可以把第一个它移到前面去。但我是单独放出来,这样更清楚一点。
接着是执行了。这个你可以看一下二楼的。例如:rst3.Open strsqlm con1_offer, adOpenKeyset, adLockOptimistic, adCmdText

㈢ vb.net引用sql server中的函数

VB.NET中可以直接通过sql语句来如:cmd.selectcomand="select count(year(参加工作时间) ) from 表 “
现在建议你使用Linq ,lumbda来做
sql的函数再复杂好用,也没有你在应用程序中写的函数复杂。不要把数据库当业务逻辑来弄,我觉得这不是一个好的思路。

㈣ VB如何调SQL函数

dim db as database
dim rs as recordset
dim sqlstr as string

'利用 DAO
private sub form_load()
set db=opendatabase(app.path & "\db.mdb")
end sub

'使用SQL语句
private sub command_click()
'1创建表
'sqlstr="create table " & 表名 & "(字段1 text,字段2 text)" 'SQL语句
'查询
'sqlstr="select * from 表名" 'SQL语句

db.execute sqlstr '执行SQL语句
end sub

㈤ vb 连sql,其中数据库里的function函数怎么调用

若optionbutton为数组控件,opt(0 - 26)
private sub opt_click(index as integer)
dim sql as string
sql ="select * from tb "
if index<opt.ubound then
sql =sql &" where dbo. f_GetPy(sname) ='" & opt(index).caption & "'"
endif

这样得到的是一个sql句,
你用这个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的储存过程

我给你两种简单的方法:
1.
过程
CREATE PROCEDURE cyPFindWaitExecSO
----按货品编码查出没有执行销售订单(不包括 CANCEL 作废, stoped 中止)
@GOODSCODE VARCHAR(100)
AS
SELECT SO.WDATE,so.BILLCODE,a.QTY,a.EXEQTY,a.QTY-a.EXEQTY WaitExec,c.CLIENTNO,a.USERDEF1
FROM
(SELECT * FROM S_ORDERd WHERE EXEQTY< qty AND STOPED=0 AND canceled=0 AND GOODSID=
(SELECT GOODSID FROM GOODS g WHERE CODE = @GOODSCODE))AS a
LEFT JOIN S_ORDER so ON so.BILLID= A.BILLID
LEFT JOIN CLIENT c ON c.CLIENTID=so.CLIENTID
调用
cyPFindWaitExecSO是一个查询存储过程, GOODSCODE 是一个参数
Tsql = "exec cyPFindWaitExecSO '" & goodscode & "'"
Rs.Open Tsql, DBcn1
cyPFindWaitExecSO是一个查询存储过程, GOODSCODE 是一个参数

2. 过程
CREATE PROC ConfirmIDcardUsering
@card_id NVARCHAR(16),
@emp_id NVARCHAR(12),
@outStr NVARCHAR(50) OUTPUT
AS

IF EXISTS(SELECT Etime FROM KQID k WHERE k.card_id=@card_id AND etime IS NULL)
SET @outStr = '卡在正常使用中'
ELSE if exists(SELECT Etime FROM KQID k WHERE k.emp_id= @emp_id AND etime IS NULL)
SET @outStr = '该员工已有卡在用'
else
SET @outStr= ''
GO

调用:

Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = dbcn '数据连接字符串
.CommandType = 4
.CommandText = "ConfirmIDcardUsering" '过程名'
.Parameters.Item("@card_id").Value = Card_id '参数一'
.Parameters.Item("@emp_id").Value = emp_id '参数二'
.Execute
TestS = .Parameters.Item("@outStr").Value '反回的函数'
End With
Set Cmd = Nothing

㈧ vb6.0如何调用SQL数据库

在窗体上加一个adodc 控件,然后属性,可以手工设置数据库的类型及一些参数(如:用户名,口令),设置好后,点测试连接,会有提示成功与否。当然,你得会一些sql 语法。

㈨ VB中调用SQL语句的问题

改成这样就可以了 ,你掉了单引号
ssql = "insert into login(UserName,PassWord) values ('" & TxtUserName.Text & "','" & TxtPW.Text & "')"

PassWord这个词是 access 的关键字,你在Login中 将它改为UserPassWord,再把程序中的PassWord改为UserPassWord , 就可以了