Search - app - CodeBus

Search - app - List

[SQL Server] 读写SQL中的image字段.zip DL : 0: 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
Date : 2009-04-21 Size : 3.05kb User : wuzhiyong_130@163.com
[SQL Server] 200641016498311 DL : 0: 1.先建立数据库HOTEL 2.选中HOTEL数据库，选择所有任务－>还原数据库选择数据库文件中的hotelBackup，还原数据库 3.将源程序中 C***App类中构造函数中，链接数据库的帐号和密码更改为你的密码即可使用 4.本软件未完成，你可以根据需求，加入更丰富的功能。 5.Release目录下面的*.ssk 和*.dll不能删除，那是加载皮肤所需要的 -1. First establish a database HOTEL 2. HOTEL selected database, select all the tasks-
Date : 2026-01-09 Size : 561kb User : 李隆
[SQL Server] jingpinkechengxu DL : 0: 系统使用VS2005编写数据库使用SQL server 2000 或 SQL server 2005 测试前请先修改app.config 或web.config 的数据库连接字符串-VS2005 prepared using SQL server 2000 database using SQL server 2005 or before testing modified the app.config or web.config database connection string
Date : 2026-01-09 Size : 1.84mb User : 日月
[SQL Server] secure-Context-Aware-App DL : 0: 通过引入环境中的角色，我们创建了一个统一访问控制框架，可用于安全上下文感知应用。我们还提供了一个安全架构，支持使用环境角色的安全政策，来控制访问资源。-By introducing environment roles, we create a uniform access control framework that can be used to secure context-aware applications. We also present a security architecture that supports security policies that make use of environment roles to control access to resources.
Date : 2026-01-09 Size : 89kb User : 高腾
[SQL Server] Booking-calender DL : 0: Follow this step-by-step tutorial to create an online booking calendar for your ASP.NET MVC app. Code snippets,
Date : 2026-01-09 Size : 143kb User : Bestwn
[SQL Server] GoodsManager DL : 0: 基于ExtAspNet的宝贝进销存管理系统-C# app
Date : 2026-01-09 Size : 1.82mb User : yoagoa
[SQL Server] xmapp_asp_v1.0 DL : 0: 行盟APP是结合了通信和互联网的优势，加之云计算所拥有的强大信息资源，借助广大的终端传递服务，潜在的拥有巨大商机。她到底是什么，又有什么作用？她是一款手机应用软件；她是一款专门为企业服务的手机应用软件；她是一款能够将企业各种信息放入其中并进行推广传播的手机应用软件！-Union Bank combines the advantages of APP is communication and the Internet, combined with powerful cloud computing information resources owned, with the majority of the terminal delivery service, has a huge potential business opportunities. What is she in the end, what is the role? She is a mobile application software She is a dedicated mobile applications for business services She is a capable enterprise into which all kinds of information and promotion of mobile applications spread!
Date : 2026-01-09 Size : 5.64mb User : 李志强
[SQL Server] JavadocUpdaterTool-(1) DL : 0: jave update tool use to update jave app application on your windows7 64 system
Date : 2026-01-09 Size : 13kb User : john
[SQL Server] delphi7 sqlite3 DL : 1: 控制sqlite数据,增，删，改。不需要用VCL控件(sqlite database app application is append,delete,edit,save,create)
Date : 2026-01-09 Size : 746kb User : fde