Location:
Search - recordset
Search list
Description: 作者自己写的个Database和RecordSet类
Platform: |
Size: 19185 |
Author: |
Hits:
Description: 使用ODBC实现的一个动态RecordSet
Platform: |
Size: 87751 |
Author: |
Hits:
Description: 自己编写的一个数据库，连接的Database和RecordSet类-themselves prepared a database connectivity and Database category RecordSet
Platform: |
Size: 19498 |
Author: 张小强 |
Hits:
Description: 用 vsFlexGrid 时，如果用 Add 方法逐个添加数据，跟在 Excel 中用Range()设置单元格的数据一样的慢，所以需要有些技巧，举例来说：在Excel中填写一个数据区域，可以将将要填写进去的数据按单元格的排列事先加入相应的制表符以及回车符号，组合成一个大的字符串，然后帖进去，会很快。
VsFlexGrid 在需要填充的数据多时会比较慢，同样条件的前提下，VB会明显快些！
数据加载速度慢可以通过直接绑定ADO的记录集，那样会很快，只是显得没有个性。比如从后台取回的数据是个数字，在前台需要根据这个数字分情况来显示各种不同的字符，如果用RecordSet我不知道怎么搞了。。
vsFlexGrid 的慢是一个问题，也许还比较好避免，也许这并不是他本身的问题，好像很多的控件只要是逐个ADD的都不会快多少，除非用直接绑定！
更麻烦的还是从vsFlexGrid到vsPrinter的报表显示显得有点牵强~~，不过常规的报表都还可以应付，象我们的工资明细表、汇总表、储备金汇总、储备金明细、计件工资、花名册、考勤报表乃至工资条等都可以用vsFlexGrid解决，而且能做出比较漂亮的效果，尤其那个表格的合并效果，以及所见所得。。。
-with vsFlexGrid, when used individually Add method to add data with Excel using Range () set up the cell for the same data slow, there is a need in some skills, for example : Excel to fill in a data area can be filled out to be of the data into cells with the prior joining the corresponding tabs and carriage return symbols, as a large portfolio of strings, and then into TIE will soon. VsFlexGrid need to fill in the data for some time will be relatively slow and the same conditions, under the premise of VB will be significantly faster! Data loading slow through direct bonding ADO record set, as it will soon, it is not personality. For example, to recover from the background information is in the number of prospects according to the breakdown of the figures to show a variety of characters, i
Platform: |
Size: 602351 |
Author: 胡先生 |
Hits:
Description: <％@ LANGUAGE=\"VBSCRIPT\" ％>
<!--#include file=\"conn.asp\" -->
<％
ProductClass_2=request(\"ProductClass_2\")
set rs=server.createobject(\"adodb.recordset\")
sqltext=\"select * from Product\"
if request(\"Product_Name\")<>\"\" then
sqltext=sqltext &\" where Product_Name like ％\"& request(\"Product_Name\") &\"％ \"
else
sqltext=sqltext &\" where Product_Name like ％\"& \"\" &\"％ \"
end if
if request(\"Product_Class\")<>\"\" then
sqltext=sqltext &\" and Class_1 like ％\"& request(\"Product_Class\") &\"％ \"
end if
Platform: |
Size: 3531 |
Author: 金立犇 |
Hits:
Description: <％@ LANGUAGE=\"VBSCRIPT\" ％>
<!--#include file=\"conn.asp\"-->
<％
set rs=server.createobject(\"adodb.recordset\")
sqltext=\"select * from RegUser where UserId= \" & request.form(\"uid\") & \" \"
rs.open sqltext,co
Platform: |
Size: 6078 |
Author: 金立犇 |
Hits:
Description: 使用 SQL 合计函数 你可以确定数据组的各种统计。你可以把这些函数用于查询和合计表达式，条件是在具备 SQL特性的 QueryDef对象中或在创建基于SQL查询的 Recordset对象时
Platform: |
Size: 206547 |
Author: zy |
Hits:
Description: 利用ADO的recordset对象执行带参数的存储过程，并返回记录集的例子。带数据库文件。有详尽说明
Platform: |
Size: 332975 |
Author: 狼尾草 |
Hits:
Description:
我对mo安装目录下VB的MoView例子的frmIdentify窗体修改，其中添加
了1个label空件组(10个)，1个text控件组(10个)，2个command(Edit
、Save)按钮,要实现的功能是对读入的图形文件的相关记录的指定字段的
属性值，并能保存，用了Recordset对象的Edit函数、Update函数，
Platform: |
Size: 3427 |
Author: haogood |
Hits:
Description: 使用 SQL 合计函数 你可以确定数据组的各种统计。你可以把这些函数用于查询和合计表达式，条件是在具备 SQL特性的 QueryDef对象中或在创建基于SQL查询的 Recordset对象时。
Platform: |
Size: 206950 |
Author: 靳海峰 |
Hits:
Description: vc++中使用ado技术的一套模板，十分好用，
包括connection，和recordset，避免了重复输入代码
Platform: |
Size: 78734 |
Author: liuyiyu |
Hits:
Description: 实现mapx从数据库读取数据形成新图层分为两个问题：1.mapx从数据库读取数据形成新图层；2.将datatable转换为ado的recordset
Platform: |
Size: 5156 |
Author: 齐杰 |
Hits:
Description: Adding bookmark functionality is relatively easy and it enables our ADO recordset to be used with a greater number of data bound controls.
给DataBound控件增加书签功能(52KB)
Platform: |
Size: 53192 |
Author: 张玉祥 |
Hits:
Description: Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'*************************************************************
Public Function ImportPhoto(sPicFile As String, sEmpID As String) As String
Dim rcsPic As ADODB.Recordset
Dim sMax As String
Dim sInsertPic As String
Dim rcsTemp As New Recordset
Dim sTempSQL As String
If Trim(sPicFile) = "" Then Exit Function
On Error GoTo ErrorImportPhoto
Set rcsPic = New ADODB.Recordset
rcsPic.CursorType = adOpenKeyset
rcsPic.LockType = adLockOptimistic '
rcsPic.Open "T_PPICTURE ", AstDbCnt, , , adCmdTable 'astdbcnt 替换为你连接方式
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile sPicFile
rcsPic.AddNew
rcsPic.Fields("PERS").Value = sEmpID
rcsPic.Fields("PIC").Value = mstream.Read
rcsPic.Update
mstream.Close
Set mstream = Nothing
rcsPic.Close
Set rcsPic = Nothing
Exit Function
ErrorImportPhoto:
ImportPhoto = "FALSE"
End Function
'注意要将 AstDbCnt 替换为你的oracle 连接
Public Function DisplayPhoto(oPicture As PictureBox, sPicID As String)
Dim rcsDisplay As ADODB.Recordset
Set rcsDisplay = New ADODB.Recordset
Dim mstream As ADODB.Stream
Dim mc0 As String
rcsDisplay.Open "Select * from T_PPICTURE where PERS = '" & sPicID & "'", AstDbCnt, adOpenKeyset, adLockOptimistic
If rcsDisplay.EOF Then
oPicture.Picture = LoadPicture()
Exit Function
End If
If IsNull(rcsDisplay.Fields("PIC").Value) Then
oPicture.Picture = LoadPicture()
Exit Function
End If
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rcsDisplay.Fields("PIC").Value
strclose = App.Path & "\AstPhoto_temp"
DeleteFile (strclose)
mstream.SaveToFile strclose
mstream.Close
Set mstream = Nothing
rcsDisplay.Close
Set rcsDisplay = Nothing
oPicture.Picture = LoadPicture(strclose)
End Function
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=IWP2;Initial Catalog=T213;User Id=sa;Password=sql123"
Set rs = New ADODB.Recordset
rs.Open "Select * from QB_T213PMPD where DT=2006080818", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("MPI").Value
mstream.SaveToFile "P:\T213_data\ShowMPI\T213_3.mpi", adSaveCreateOverWrite
rs.Close
cn.Close
End Sub
Private Sub Command2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=;Initial Catalog=pubs;User Id=;Password="
Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile ""
rs.Fields("logo").Value = mstream.Read
rs.Update
rs.Close
cn.Close
End Sub
Platform: |
Size: 3123 |
Author: wuzhiyong_130@163.com |
Hits:
Description: 使用ODBC实现的一个动态RecordSet-Using ODBC to implement an dynamic recordset
Platform: |
Size: 88064 |
Author: 站长 |
Hits:
Description: 自己编写的一个数据库，连接的Database和RecordSet类-themselves prepared a database connectivity and Database category RecordSet
Platform: |
Size: 19456 |
Author: 张小强 |
Hits:
Description: 利用ADO的recordset对象执行带参数的存储过程，并返回记录集的例子。带数据库文件。有详尽说明-ADO
Platform: |
Size: 332800 |
Author: 狼尾草 |
Hits:
Description: vc++中使用ado技术的一套模板，十分好用，
包括connection，和recordset，避免了重复输入代码-vc++ technology used in ado a template, very easy to use, including the connection, and the recordset, to avoid duplication of input code
Platform: |
Size: 78848 |
Author: liuyiyu |
Hits:
Description: Type of communication with SQL server... Class that use asyncronouns recordset, commands and connections-Type of communication with SQL server... Class that use asyncronouns recordset, commands and connections...
Platform: |
Size: 8192 |
Author: Daniel |
Hits:
Description: recordset and combo box
Platform: |
Size: 16384 |
Author: nafis |
Hits: