cursorlocation,cursorlocation=3
在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