共 47 篇文章 |
|
Private Sub Command0_Click()Dim rec As New ADODB.RecordsetDim cn1 As New ADODB.ConnectionDim cm1 As New ADODB.CommandSet cn1 = CurrentProject.ActiveConnection = cn1Dim arrylist(5000) As String Dim b As String Dim Sfile As String Dim SS, Sname, Sdir As String Dim j As Integer Dim i, u As Integer If Me. 阅65 转0 评0 公众公开 15-05-11 10:47 |
计算个数 B = "''吕布 ;赵云 ;典韦 ;张飞 ;关羽 ;" q = ";" lngA = Len(B) ''分发部门的长度 lngB = Len(q) lngC = Len(Replace(B, q, "")) ''把符号 : 替换去掉 得带纯字符长度 ... 阅29 转0 评0 公众公开 15-04-15 15:22 |
SQL 数据库分页 删除重复记录--分页显示记录declare @start int,@end int ,@sql nvarchar(600)set @start =1set @end=50set @sql=''select top''+str(@end-@start+1)+'' * from 表单名资料表 where int not in (select top ''+str(@start-1)+'' int from 表单名资料表... 阅114 转0 评0 公众公开 15-02-09 18:21 |
ACCESS ShellExecute 打开文件ShellExecute的功能是运行一个外部程序(或者是打开一个已注册的文件、打开一个目录、打印一个文件等等),并对外部程序有一定的控制。Dim lr As LongIf IsNull(Me.路径) = False Then lr = ShellExecute(Me.hwnd, "open", Me.路径, "", "", SW_SHOW) If lr <0 Or lr >... 阅97 转0 评0 公众公开 14-12-18 09:19 |
raiserror BEGIN TRY END TRY BEGIN CATCH END CATCH;--示例4RAISERROR (N''<<%7.3s>>'', -- Message text. 10, -- Severity, 1, -- State, N''abcde''); -- First argument supplies the string.-- The message text returned is: <&l... 阅29 转0 评0 公众公开 14-12-17 09:17 |
Private Sub 生成通报图_Click()Dim A As StringDim b As StringDim i As IntegerDim j As IntegerDim k As IntegerDim x As StringDim y As StringDim arrylist(10) As StringDim shPic, shpDim time As DateDim pptAppDim pre, prSet pptApp = NothingSet pptApp = CreateObject("Powerpoint.Application")pptApp.Visible = Truej ... 阅1735 转2 评0 公众公开 14-11-14 10:51 |
阅913 转9 评0 公众公开 14-11-14 10:46 |
declare @morring1B as varchar(20) --早上上班刷卡起declare @morring2E as varchar(20) --早上下班刷卡止declare @afternoon1B as varchar(20) --下午上班刷卡起declare @afternoon2E as varchar(20) --下午下班刷卡止declare @night1B as varchar(20) --晚上上班刷卡起declare @night2E as varchar(20) --晚上上... 阅629 转1 评0 公众公开 14-11-07 16:00 |
Function IA_NullToZero(AnyValue As Variant) As VariantOn Error GoTo Er_IA_NullToZero If IsNull(AnyValue) Then IA_NullToZero = 0 Else IA_NullToZero = AnyValue End If.Function cm(AnyValue As Variant) As VariantOn Error GoTo Er_IA_NullToZero If IsNull(AnyValue) Or AnyValue = 0 Then cm =... 阅1712 转5 评0 公众公开 14-10-27 17:04 |
Access TreeView读取sql数据库表名--Access TreeView1树状图 循环读取sql数据表Private Sub str()Dim objNode As Node Dim objNewItem As ComboItem Dim rec1 As New ADODB.Recordset Dim cn1 As New ADODB.Connection Set cn1 = CurrentProject.Connection Dim i As Integer Dim strNumber As String Forms![A-SQLserver]... 阅186 转0 评0 公众公开 14-10-25 18:41 |