建立了一个存储过程:
create procedure mmm
as
select * from patiinhosinfo在程序怎么执行它?
create procedure mmm
as
select * from patiinhosinfo在程序怎么执行它?
解决方案 »
- ComBox 的Change 事件怎么无效
- VB vaL函数问题,急切
- 100高分求:如何用VB打造FLV本地播放器?
- [求助]请大家给个Install Shield 程序及教程的下载地址
- 如何提前GOOGLE搜索排名?据说是使用技术手段,通常都使用什么办法可以提前自己网站在GOOGLE中的排名?
- 巨难的问题,delphi区无人能解,只好到vb区求助,分不够再加。
- 兼容性问题 在98/2000下使用正常,有些XP下提示 系统错误,找不到模块 在线等,急!
- 在VB6中怎样调用Web Service?
- 高手请进!!高手请进!!高手请进!!高手请进!!高手请进!!
- 求救!!!!!
- 如何去处TEXT中的回车键!
- 关于三层体系中类的构造,释放等问题,希望各位高手进来指点,讨论一下!
@job_id smallint,
@job_lvl tinyint
AS
SELECT *
FROM employee
WHERE job_id < @job_id
AND job_lvl > @job_lvl
---- 2. 在VB中生成一个新的工程,工程有一窗体,一个COMMAND(NAME:COMMAND1) 按钮,一个 MSFlexGrid(NAME:MSFlexGrid1)控件。
---- 3. 创建连接ADO connection; ---- 4. 创建命令ADO command; ---- 5. 创建参数并设置各个参数的属性; ---- 6. 执行ADO command; ---- 7. 对数据进行处理;MSFlexGrid显示查询到的数据 ---- 8. 释放连接,退出程序。 ---- 其中代码如下: 在窗体中声明以下变量:
Dim cnn1 As ADODB.Connection ‘连接
Dim mycommand As ADODB.Command ‘命令
Dim parm_jobid As ADODB.Parameter ‘参数1
Dim parm_joblvl As ADODB.Parameter ‘参数2
Dim rstByQuery As ADODB.Recordset ‘结果集
Dim strCnn As String ‘连接字符串在窗体的LOAD事件中加入如下代码:
Set cnn1 = New ADODB.Connection
‘生成一个连接
strCnn = "DSN=MYDSN;uid=sa;pwd="
‘创建的系统数据源MYDSN指向PUBS数据库
cnn1.Open strCnn ‘打开连接
在窗体的UNLOAD中的加入代码如下:
cnn1.Close ‘关闭连接
Set cnn1 = Nothing ‘释放连接在按钮中的代码如下:
Dim i As integer
Dim j as integer
Set parm_jobid = New ADODB.Parameter
Set mycommand = New ADODB.Command
' parm_jobid.Name = "name1"
this line can be ommited
parm_jobid.Type = adInteger ‘
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "mmm", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs