首先要添加引用 Project-Reference-Microsoft ActiveX Data Object 2.X Library一般X大于5,如果不是的话,建议安装微软数据库引擎Mdac_Type.exe
dim cn as new adodb.connection dim rs as new adodb.recordset cn.connectstring="......" cn.open rs.open "Select ....",?,? rs.close set rs=nothing cn.colse set cn=nothing
請問樓下一個問題 dim rs as new adodb.recordset 和 set rs=new adodb.recordset 有什麼相同與不相同,謝謝
我用下面的语句建立DBF文件,但字段名超过10个字节,怎么办?? Dim condb As ADODB.Connection strcondb = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro_ Driver;SourceDB=" & App.Path & ";SourceType=DBF;" Set condb = New ADODB.Connection condb.Open strcondb Sqlcreat = "create table " condb.Execute Sqlcreat 由于VF是基于DOS的系统,所以它不能超过10个字符做字段,固出错。VF8.0应用一个附加的部件从而实现超过10个字符,这里怎么办呢?
dim rs as new adodb.recordset 和 dim rs as adodb.recordset set rs=new adodb.recordset 我想是一样的, 第一种是一定义就建立对象 第二种 的set rs=new adodb.recordset 这句话可以在某过过程里进行, 如果这个过程不执行, 就不在内存中建立rs对象,第二中方法的思想更好些吧这个是我的看法
dim cn as adodb.connection dim rs as adodb.recordset set cn=new adodb.connection set rs=new adodb.recordset cn.connectstring="......" cn.open rs.CursorLocation = adUseClient rs.open "Select ....",?,? rs.close set rs=nothing cn.colse set cn=nothing
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From 表"
Adodc1.Refresh
set datagrid1.datasource=adodc1.recordset
Project-Reference-Microsoft ActiveX Data Object 2.X Library一般X大于5,如果不是的话,建议安装微软数据库引擎Mdac_Type.exe
dim rs as new adodb.recordset
cn.connectstring="......"
cn.open
rs.open "Select ....",?,?
rs.close
set rs=nothing
cn.colse
set cn=nothing
dim rs as new adodb.recordset 和
set rs=new adodb.recordset 有什麼相同與不相同,謝謝
Dim condb As ADODB.Connection
strcondb = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro_ Driver;SourceDB=" & App.Path & ";SourceType=DBF;"
Set condb = New ADODB.Connection
condb.Open strcondb
Sqlcreat = "create table "
condb.Execute Sqlcreat
由于VF是基于DOS的系统,所以它不能超过10个字符做字段,固出错。VF8.0应用一个附加的部件从而实现超过10个字符,这里怎么办呢?
dim rs as adodb.recordset
set rs=new adodb.recordset 我想是一样的, 第一种是一定义就建立对象
第二种 的set rs=new adodb.recordset 这句话可以在某过过程里进行, 如果这个过程不执行, 就不在内存中建立rs对象,第二中方法的思想更好些吧这个是我的看法
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
cn.connectstring="......"
cn.open
rs.CursorLocation = adUseClient
rs.open "Select ....",?,?
rs.close
set rs=nothing
cn.colse
set cn=nothing
1, rs.cursorlocation=aduseclient 这句起什么作用?具我了解是客户游标,但具体起什么作用,什么时候用?一无所知
2, Screen.MousePointer = vbHourglass 这句是使MOUSE起漏斗状,但具体起什么作用,什么时候用?也是一无所知。
设置或返回游标服务的位置。设置和返回值设置或返回可设置为以下某个常量的长整型值。常量 说明
adUseNone 没有使用游标服务。(该常量已过时并且只为了向后兼容才出现)。
adUseClient 使用由本地游标库提供的客户端游标。本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的,因此使用该设置对于那些将要启用的功能是有好处的。AdUseClient 具有向后兼容性,也支持同义的 adUseClientBatch。
adUseServer 默认值。使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活,对于其他用户对数据源所作的更改具有额外的敏感性。但是,Microsoft Client Cursor Provider(如已断开关联的记录集)的某些功能无法由服务器端游标模拟,通过该设置将无法使用这些功能。
说明该属性允许在可用于提供者的各种游标库中进行选择。通常,可以选择使用客户端游标库或位于服务器上的某个游标库。该属性设置仅对属性已经设置后才建立的连接有影响。更改 CursorLocation 属性不会影响现有的连接。对于 Connection 或关闭的 Recordset 该属性为读/写,而对打开的 Recordset 该属性为只读。由 Execute 方法返回的游标继承该设置。Recordset 将自动从与之关联的连接中继承该设置。远程数据服务用法 当用于客户端 (ADOR) Recordset 或 Connection 对象时,只能将 CursorLocation 属性设置为 adUseClient。
.....(一大段代码)
Screen.MousePointer = vbDefault
起了提示等待作用。