cursorlocation,cursorlocation=3

http://www.itjxue.com  2023-01-07 04:50  来源:未知  点击次数: 

在VB代码中"rs.CursorLocation = adUseClient"表示什么意思?请详细分析回答,尽快!多谢!

rs.CursorLocation

=

adUseClient

使用客户端光标

rs.CursorLocation

=

adUseServer

使用服务端光标

CursorLocation

属性

设置或返回游标服务的位置。

设置或返回可设置为adUseNone、adUseClient、adUseServer三种常量的长整型值。

adUseNone

没有使用游标服务。(该常量已过时并且只为了向后兼容才出现)。

adUseClient

使用由本地游标库提供的客户端游标。本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的,因此使用该设置对于那些将要启用的功能是有好处的。AdUseClient

具有向后兼容性,也支持同义的

adUseClientBatch。

adUseServer

默认值。使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活,对于其他用户对数据源所作的更改具有额外的敏感性

打开数据库的命令是什么

你好一共有这几种

MS

Access数据库连接

用DSN连接并且没有用户名和密码:

%

set

conn

=

Server.CreateObject("ADODB.Connection")

conn.open

"YourDSNName"

%

用DSN连接并且有用户名和密码:

%

set

conn

=

Server.CreateObject("ADODB.Connection")

conn.open

"YourDSNName","username","password"

%

用实际的数据库绝对路径连接:

%

Set

conn

=

Server.CreateObject("ADODB.Connection")

Strconn="DRIVER={Microsoft

Access

Driver

(*.mdb)};

"

Strconn=Strconn

"DBQ=e:\yanhang\database.mdb"

conn.Open

Strconn

%

用实际的数据库相对路径连接:

%

Set

conn

=

Server.CreateObject("ADODB.Connection")

Strconn="DRIVER={Microsoft

Access

Driver

(*.mdb)};

"

Strconn=Strconn

"DBQ="

Server.MapPath("/database/yanhang.mdb")

conn.Open

Strconn

%

MS

SQL

Server数据库连接

用DSN连接:

%

set

conn

=

Server.CreateObject("ADODB.Connection")

conn.open

"DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"

%

不用DSN连接:

%

Set

conn

=

Server.CreateObject("ADODB.Connection")

DSNtemp="DRIVER={SQL

Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"

conn.open

DSNtemp

%

FoxPro数据库连接

%

Set

Conn

=

Server.CreateObject("ADODB.connection")

ConnStr=

"Driver=Microsoft

Visual

Foxpro

Driver;

UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"

Conn.Open

ConnStr

%

Oracle数据库连接:

%

set

conn=server.createobject("adodb.connection")

conn.cursorlocation=adUseClient

DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User

ID=yanhang;Data

Source=xxx.world"

conn.open

DSNtemp

%

Rs.Cursorlocation=3 Rs.open strSql,Conn,2,2,1 这两句是什么意思啊

Rs.Cursorlocation=3

数据集rs返回的游标位置为3

Rs.open strSql,Conn,2,2,1

从数据库读取记入,并存入rs中,其中strsql是自定义的SQL语句

Conn是数据库链接对象,2,2,1依次为记录集的游标类型,锁定类型,常量参数

access如何让在窗体中输入记录后保存到表当中?

Private Sub 入库_click()

'默认你的后面的textbox的名称就是前面的名称

'这里的数据类型可能要转换,比如价格可能要转换成double(CDbl()),购买日期转行成日期时间型(CDate())

'假设你的数据表是aa,字段名和界面显示是一样的

Dim Rs As ADODB.Recordset

'在插入前建议你在aa表里查查这条记录是否已经存在,如果已经存在则给出提示(查询条件看你怎么设置的主键了)

Rs = objADO.GetRs("insert into aa (书名,定价,作者,图书类别,出版社,介质,购买日期,内容简介) values (" 书名.Text "," vbCrLf _

"定价.text ", " 作者.text ", " 图书类别.text ", " 出版社.text ", " 介质.text ", " 购买日期.text ", " 内容简介.text ")

'这里如果表aa的字段多于界面显示的也没关系,只会给你aa后面括号里的字段赋值,这里后面values的顺序必须和前面的对应

'正确插入后建议给个提示,同时看看有没有必要把界面的所有值清空(图书类别.text = "")

'这里的objADO建议这么定义Public objADO As SqlServer,有别的查询也可以直接用,你自己怎么定义的就换成你自己的

'GetRs的定义在下面,你也可能是dim strsql as string,然后strsql = (上面的插入语句),然后用下面Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly的方法,都行的,就看你自己怎么写的了

End Sub

Public Function GetRs(ByVal strSql As String) As ADODB.Recordset '通过执行SQL语句返回记录集

Dim Rs As ADODB.Recordset

On Error GoTo Err0

If Not OpenDB Then

Exit Function

End If

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseClient '使用本地(客户端)游标,这样Rs.RecordCount属性才能正确返回记录集行数

DoEvents

Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly

Set GetRs = Rs

Exit Function

Err0:

If InStr(1, Err.Description, "通讯链接失败") 0 Then

Set Conn = New ADODB.Connection

LocalStat = "断开" '设置本地数据库连接状态

End If

MsgBox Err.Description

End Function

(责任编辑:IT教学网)

更多