session("rs").cursorlocation=3是什么意思？
一、先帮你理解set session("rs")=server.createobject("ADODB.recordset")的意思，后面的就容易理解了，这句代码是创建记录集RecordSet对象，并将它放入Session中，即由session("rs")来表示；二、session("rs").cursoLlocation=3等同于session("rs").cursorLocation=adUseClient，意思是使用由本地游标库提供的客户端游标，本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的，因此使用该设置对于那些将要启用的功能是有好处的。三、session("rs").open str2,conn,1,3 即执行SQL语句打开记录集，后面的1和3分别代表：1： 键集游标，其他用户对记录所做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中，支持分页、Recordset、BookMark。另外还有0、1、2代表其他意思。3：只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等。另外还有1、2、4代表其他意思。
rs.CursorLocation=3 是什么意思
3 就是rs.CursorLocation = adUseClient
就是代表使用客户端光标,和他对应的是 rs.CursorLocation = adUseServer 服务端光标
---------------------------
看一下,比我解释的清楚
CursorLocation 属性
设置或返回游标服务的位置。
设置和返回值
设置或返回可设置为以下某个常量的长整型值。
常量 说明
adUseNone 没有使用游标服务。（该常量已过时并且只为了向后兼容才出现）。
adUseClient 使用由本地游标库提供的客户端游标。本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的，因此使用该设置对于那些将要启用的功能是有好处的。AdUseClient 具有向后兼容性，也支持同义的 adUseClientBatch。
adUseServer 默认值。使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活，对于其他用户对数据源所作的更改具有额外的敏感性。但是，Microsoft Client Cursor Provider（如已断开关联的记录集）的某些功能无法由服务器端游标模拟，通过该设置将无法使用这些功能。
说明
该属性允许在可用于提供者的各种游标库中进行选择。通常，可以选择使用客户端游标库或位于服务器上的某个游标库。
该属性设置仅对属性已经设置后才建立的连接有影响。更改 CursorLocation 属性不会影响现有的连接。
对于 Connection 或关闭的 Recordset 该属性为读/写，而对打开的 Recordset 该属性为只读。
由 Execute 方法返回的游标继承该设置。Recordset 将自动从与之关联的连接中继承该设置。
远程数据服务用法 当用于客户端 (ADOR) Recordset 或 Connection 对象时，只能将 CursorLocation 属性设置为 adUseClient。
EXCEL中VBA怎么执行SQL SERVER 2005存储过程
您好：给您找了一段VBA的代码，请参考，未测试。Sub test()Dim strcon As StringDim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetstrcon = "Driver={SQL Server};Server=**********;UID=**;PWD=*********;DataBase=***"cn.Open strconstrsql = "exec 存储过程名 '" & Sheet2.Cells(2, 2).Value & " ','" & Sheet2.Cells(3, 2).Value & " '" '参数可选rs.Open strsql, cn, adOpenDynamic, adLockBatchOptimistic r = 6 Sheet2.Range(Cells(6, 1), Cells(50000, 20)).ClearContents For i = 0 To rs.Fields.Count - 1 Sheet2.Cells(5, i + 1).Value = rs.Fields(i).Name Next i While Not rs.EOF For i = 0 To rs.Fields.Count - 1 Sheet2.Cells(r, i + 1).Rows.Value = rs.Fields(i).Value Next i r = r + 1 rs.MoveNext WendEnd Sub
rs.CursorLocation=2
adUseClient
3使用本地游标库提供的客户端的游标。本地游标服务通常允许执行驱动程序提供的游标所不允许的许多功能，因此使用此设置可以充分利用即将启用的功能。为进行向后兼容，亦支持同义字 adUseClientBatch。adUseNone
1不使用游标服务。（此常量已作废并且只是为了向后兼容才出现。）adUseServer
2默认值。使用数据提供者或驱动程序提供的游标。这些游标有时很灵活，可以额外感知其他人对数据源所做的更改使用2就是服务器端游标,这种情况下,很多的操作不是我们决定的而是数据库服务器来决定的.
但是3就是客户机游标,这种情况下,是一定能得到recordCount的
RS是什么意思？
RS，是remote sensing的缩写，即遥感，是指非接触的，远距离的探测技术。遥感是一门对地观测综合性技术，它的实现既需要一整套的技术装备，又需要多种学科的参与和配合，因此实施遥感是一项复杂的系统工程。遥感由信息源、信息获取、信息处理、信息应用组成。信息源是需要对其探测的目标物；信息获取是运用遥感技术装备接受、记录目标物电磁波特性的探测；信息处理是运用光学仪器和计算机设备对遥感信息校正、分析解译处理技术；信息应用是专业人员按不同目的将遥感信息应用于各业务领域。扩展资料：遥感技术已广泛应用于农业、林业、地质、海洋、气象、水文、军事、环保等领域。其应用领域随着空间技术发展，尤其是地理信息系统和全球定位系统技术的发展及相互渗透。1、地理数据获取遥感影像是地球表面的“相片”，真实地展现了地球表面物体的形状、大小、颜色等信息。这比传统的地图更容易被大众接受，影像地图已经成为重要的地图种类之一。2、获取资源信息遥感影像上具有丰富的信息，多光谱数据的波谱分辨率越来越高，可以获取红边波段、黄边波段等。高光谱传感器也发展迅速，我国的环境小卫星也搭载了高光谱传感器。这些地球资源信息能在农业、林业、水利、海洋、生态环境等领域发挥重要作用。3、应急灾害资料遥感技术具有在不接触目标情况下获取信息的能力。在遭遇灾害的情况下，遥感影像是我们能够方便立刻获取的地理信息。在地图缺乏的地区，遥感影像甚至是我们能够获取的唯一信息。在5.12汶川地震中，遥感影像在灾情信息获取、救灾决策和灾害重建中发挥了重要作用。4、农业遥感监测遥感卫星能够快速准确地获取地面信息，结合地理信息系统和全球定位系统等其他现代高新技术，可以实现农情信息收集和分析的定时、定 量、定位，客观性强，不受人为干扰，方便农事决策，使发展精准农业成为可能，遥感影像可通过遥感集市云服务平台免费下载或订购的方式获取。参考资料来源：百度百科-遥感
javascript怎么与数据库连接
第一步定义连接字符串
var MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\\cs\\benlen\\gbmdb.mdb;Persist Security Info=False"
第二步创建adodb对象
var con = Server.CreateObject("ADODB.Connection");con.ActiveConnection = MM_conn_STRING;con.Open();
这下 就连接好了数据库。
第三步创建记录集
var rs = Server.CreateObject("ADODB.Recordset");rs.ActiveConnection = MM_conn_STRING;rs.Source = "SELECT * FROM admin";rs.CursorType = 0;rs.CursorLocation = 2;rs.LockType = 1;rs.Open();var rs_numRows = 0;
这样我们数据库连接就完成了
以下是示例代码：
<!--
function getCountFromDB() {
//以当前页面文件为基础，找到文件所在的绝对路径。
var filePath = location.href.substring(0, location.href.indexOf("index.html"));
var path = filePath + "MyData.mdb";
//去掉字符串中最前面的"files://"这8个字符。
path = path.substring(8);
var updateCnt = 0;
//生成查询和更新用的sql语句。
var sqlSelCnt = "SELECT * FROM [user]";
//建立连接，并生成相关字符串。
var con = new ActiveXObject("ADODB.Connection");
con.Provider = "Microsoft.Jet.OLEDB.4.0";
con.ConnectionString = "Data Source=" + path;
con.open;
var rs = new ActiveXObject("ADODB.Recordset");
rs.open (sqlSelCnt,con);
while (!rs.eof) {
var cnt = rs.Fields("content");
document.write (cnt);
rs.moveNext;
}
js 如何连接数据库
以连接ORACLE数据库为例：//创建数据库连接对象var conn = new ActiveXObject("ADODB.Connection");//创建数据集对象var rs = new ActiveXObject("ADODB.Recordset");try{ //如果不知道如何配置连接串，可以通过配置UDL文件后用文本编辑器打开获得 var connectionstring = "Provider=OraOLEDB.Oracle.1;Password=pwd;Persist Security Info=True;User ID=username;Data Source=ORA"; //打开连接 conn.open(connectionstring);//查询语句 var sql = " select * from tb_col "; //打开数据集（即执行查询语句） rs.open(sql,conn); //遍历所有记录 while(!rs.eof){ //WScript是Windows 的脚本宿主对象，详细情况请在windows帮助里查找。 //WScript.Echo输出记录的内容 WScript.Echo(rs.Fields("id") + "\t" + rs.Fields("name") + "\n"); //下一条记录 rs.moveNext(); } //关闭记录集 rs.close(); //关闭数据库连接 conn.close();} catch(e){ //异常报告 WScript.Echo(e.message);} finally{ } 数据库连接串，具体配置请参考：http://www.connectionstrings.com/
asp报错 ADODB.Recordset 错误 '800a0bb9'
<%
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open StrSQL
set connrs = server.CreateObject("adodb.recordset")
connrs.open "select * from install",conn,1,1
adv=connrs("adv")
footer=connrs("footer")
webtitle=connrs("title")
keywords=connrs("keywords")
description=connrs("description")
top=connrs("top")
menu=connrs("menu")
pagesize=connrs("pagesize")
pagelinenum=connrs("pagelinenum")
imgwh=connrs("imgwh")
softsort=connrs("softsort")
ranknum=connrs("ranknum")
connrs.close
%>
vb.net中怎样将Excel中的数据导入到datagridview中
你好,给你提供函数,非常容易的做到:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function ExportToExcel(objMsg As MSFlexGrid) As Boolean
'*********************************************************************
' 将MSFlexGrid的查询结果保存到Excel里。调用 CallExportToExcel(objMsg As MSFlexGrid)
' 完全可以保存查询的结果到Excel里。
'Purpose: Export data on grid to an Excel file
'Input :
'Output : True if successful, else return False
'Others : Global variable used:
' Module variable used:
'********************************************************************
On Error GoTo ExportToExcel_ErrorHandler
Dim objExcelApp As Object
Dim objExcelBook As Object
Dim objExcelSheet As Object
'Whether Excel exists, if not, try to create
On Error Resume Next
Set objExcelApp = GetObject(, "Excel.Application")
If Err.Number 0 Then
Set objExcelApp = CreateObject("Excel.Application")
End If
On Error GoTo ExportToExcel_ErrorHandler
Set objExcelBook = objExcelApp.Workbooks.Add
Set objExcelSheet = objExcelBook.Worksheets(1)
If Val(objExcelApp.Application.Version) >= 8 Then
Set objExcelSheet = objExcelApp.ActiveSheet
Else
Set objExcelSheet = objExcelApp
End If
Dim lngRowsCount As Long, lngColumnsCount As Long, lngRow As Long, lngColumn As Long
Dim strText As String
lngRowsCount = objMsg.Rows
lngColumnsCount = objMsg.Cols
For lngRow = 1 To lngRowsCount
For lngColumn = 1 To lngColumnsCount
strText = objMsg.TextMatrix(lngRow - 1, lngColumn - 1)
If IsNull(strText) = False And strText "" Then
objExcelSheet.Cells(lngRow, lngColumn) = strText
End If
Next
Next
objExcelApp.Visible = True
Set objExcelSheet = Nothing
Set objExcelBook = Nothing
Set objExcelApp = Nothing
ExportToExcel = True
ErrorHandler:
Exit Function
ExportToExcel_ErrorHandler:
MsgBox Err.Description
Resume ErrorHandler
End Function
VB.net/C#编程：我需要将Excel表格的部分数据导入到DataGridView进行进一步分析
DataGridView没有存储功能，不叫导入，他是显示、读取、编辑数据用的。如果你的Grid里有数据他来自哪个表啊？你就要分析哪个表与Excel表的关系，而不是Grid与Excel表的关系。用Grid可以直接连接Excel表，不需要做导入操作，估计你意思是Grid里有数据了，修改里面的数据插入Excel匹配数据项。先可以读取Excel数据，然后插入到你Grid显示的表里，而不是Grid里。OleDbConnection cnn=new OleDbConnection();cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StrartUpPath + "/Excel名称.xls;Extended Properties='Excel 8.0;HDR=YES'";cnn.Open();try{sql="Select 字段名 From [Sheet1$] where 条件表达式";OleDbDataAdapter oda=new OleDbDataAdapter(sql,cnn);DataSetds=new DataSet();oda.Fill(ds);if(ds.Tables[0].Rows.Count>0){//...继续连接数据库,也填充一个DataSet对象ds1//...把Excel数据循环遍历方式或者用跨数据库方式（或ACCESS整理方式）插入数据库dataGridView.DataSource=ds1.Tables[0];}}catch{cnn.Close();MessageBox.Show("数据库文件丢失","系统消息");}finnly{cnn.Close();}sql 为string 不知道你看懂没有
