- 博客(40)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 个人所得税公式
=MAX((J2-SUM(K2:L2)-5000)*{3,10,20,25,30,35,45}%-{0,210,1410,2660,4410,7160,15160},0)
2024-01-07 23:48:16
332
原创 ~军训感想~
记起第一次站军姿的那天，在烈日下站着站着，腿脚打颤，两眼一黑，差点晕倒。随着一天又一天的磨练，我的脸更黑了，我的意志更坚定了，心态更积极了，作风更严肃了。不仅仅是教官，老师，还是同学的引导，更是个人的初心，让我不断超越自我，而永不言弃。当我们女生做第一排时报数声不够大时，张教官选择相信我们并给我们机会，而我也喊出了前所未有的最大的声音。炽热的阳光下，红色的塑胶跑道上，是青涩又坚毅的面庞，神采奕奕又自信坚定的目光，是洪亮有力的口号，铿锵有力的步伐，整齐划一的动作，是豆大的汗珠，也是嘴角扬起的微笑。
2023-11-30 22:24:34
46
原创 我的外公朱相一
1958年前后，为支援北大荒建设，十四万转业官兵、十万知识分子陆续来到北大荒创业，开荒地，种粮实，义无反顾投身于这场人类历史上伟大的拓荒事业，这是北大荒开发史上最壮丽的一页。十几年前，各地方也响应退耕还林的呼号，让黑土地“歇一歇”，如今这里生态良好，粮食充裕，民风淳朴，外婆外公每年冬天来无锡过年，春天再回去。1958年的秋天，外公8岁，也到了该上学的年纪了。1950年正月初七，一个寒冷但又热闹的冬天的日子里，外公朱相一出生在山东日照黄墩镇粮山口村一个普通的家庭，成为朱家大哥，家中后又有两个弟弟，两个妹妹。
2023-10-06 19:11:20
62
原创 原来SQL也可以递归
create table f0307(id int,productname varchar(64),parentid int)insert into f0307 values(1,'汽车',null)insert into f0307 values(2,'车身',1)insert into f0307 values(3,'发动机',1)insert into f0307 values(4,'车门',2)insert into f0307 values(5,'驾驶舱',2)insert.
2022-03-22 23:03:03
283
原创 台式机win7连接蓝牙耳机
想在台式机上安装无线的蓝牙耳机，试过千月，但是评估版，音质差，还要付钱。不服气啊，摸索了两天，现在安装成功，没想到如此简单，还有立体音效，现将安装过程分享如下：一、准备工作：1、蓝牙耳机：这里我买的是漫步者lollipods，172.5元，以前用的是10块钱的杂牌，不太稳定；2、蓝牙接收器：这里我买的是绿联的蓝牙适配器，29块钱，京东送到家，我晚上下单，第二天一大早就到了。特别说明的是，大多数台式机的主板没有蓝牙功能，所以一定不能省；3、驱动程序：买接收器附有一个小光盘，里面有，如果找不
2021-10-17 08:53:52
3547
原创 学习笔记bytetopicture
Sub ReadRstPic() Dim BtArr() As Byte Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim myPath As String Dim myTable As String Dim SQL As String myPath = ThisWorkbook.Path & "\员工管理.accdb" myTable = "员工档案...
2021-09-09 09:00:49
225
原创 Excel VBA 用字典方法做先进先出法
多年前，一家外包公司帮我司一物业公司做仓库收发存管理软件，我方要求先进先出法，该外包公司称那需要加入批次管理，每次出库选择好批次才能实现先进先出。我以为，这完全是谬论，既然是先进先出，那就已经设定好了规律和逻辑，不需要再指定批次，否则那还叫什么先进先出。最近，闲来无事，用EXCEL编了个小程序，经调试，是可以做到先进先出的。上图：备注：出入库按入正出负的原则制订上部分代码：ublic Crr() As Integer, StartingPosition%Sub FirstInFir.
2021-07-18 09:08:01
2041
4
原创 Excel Sql union与union all，工作中出错教我做人
之前听说union与union all在并库时会有“是”与“否”去重的区别，之前一直没有关注到，直接在一次提交工作结果时，与接受方数据核对时发现差异，才发现
2021-05-31 08:39:07
375
原创 VB：按“ESC”退出窗体
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress If Asc(e.KeyChar) = 27 Then Me.Close() End If End Sub
2017-11-18 11:36:13
4700
1
原创 ExcelVBA:批量更改文件后缀名
Sub rename() Dim oldname$,zz$, newname$ oldname = Dir("c:\*.*") Do While oldname zz = Left(oldname, InStr(1, oldname, ".") - 1) newname = zz & ".jpg"
2017-10-17 21:28:44
4913
原创 MSSQL:ADO openschema提取数据库结构
1、提取的数据库结构Con.ConnectionString = "Driver={sql server};server=192.168.1.112;uid=sa;pwd=;database=db_2008"Con.OpenSet Rs = Con.OpenSchema(20)Set MS1.DataSource = Rs
2017-06-25 08:38:46
588
原创 MSSQL：VB连接数据库更清晰的写法
Dim Sqldatabaseip$, Sqldatabaseuid$, Sqldatabasepwd$, Sqldatabase$Sqldatabaseip = "192.168.1.112"Sqldatabaseuid = "sa"Sqldatabasepwd = ""Sqldatabase = "db_2008"Con.ConnectionString = "Dr
2017-06-25 08:05:05
456
原创 MSSQL:VB录入数据
Con.Execute ("insert into test values(" & Text2 & ",'" & Text3 & "')")注意：1、text2对应的是数字型数据，所以不需要加单引号；2、text3对应的是文本值，在SQL里录入时是要加单引号的，如insert into test values(2,'a')。所以在对应的VB表达式里就要多加一个单引号括起
2017-06-24 23:27:43
332
原创 MSSQL：vb数据查询
1、combobox通过additem增加候选项2、批量将字段加入combobox的方法是： For i = 0 To 9 Combo1.AddItem Rs.Fields(i).Name Next3、按条件查询搜索Private Sub Command1_Click()Adodc1.RecordSource = "select * f
2017-06-24 09:22:12
392
原创 MSSQL：使用表格多页浏览数据库
1、引用：ado2.62、部件：Microsoft DataGrid Control 6.03、部件：Microsoft ADO Data Control 6.0Private Sub Form_Load() Adodc1.ConnectionString = "Driver={sql server};server=192.168.1.112;uid=
2017-06-22 06:40:00
232
原创 MSSQL:通过表格单页浏览数据库
1、引用：ado2.62、部件：Microsoft DataGrid Control 6.03、部件：Microsoft ADO Data Control 6.0Private Sub Form_Load() Adodc1.Conne
2017-06-20 06:40:59
253
原创 MSSQL:通过文本框浏览数据
Dim Con As New ADODB.ConnectionDim Rs As New ADODB.RecordsetDim i%Private Sub Form_Load()Con.ConnectionString = "Driver={sql server};server=wjpc;uid=sa;pwd=;database=db_2008"Con.OpenRs
2017-06-20 06:15:50
226
原创 vb6控件数组在vba中如何套用
以textbox为例：在VB6中以textbox(i)在表示在VBA中以Me.Controls("TextBox" & 1).Object.Text 或 Me.OLEObjects("TextBox" & 1).Object.Text 表示
2017-06-19 06:47:53
1820
原创 重装电脑后，sqlserver各种不服
情况介绍：我有两台电脑，A和B，A是xp+sql2008，B是win7+sql2014，之前两台电脑是可以互连的；B电脑重装后，各种连不上现已解决，备忘如下：1、A电脑启动服务超时解决办法：sqlserver网络配置，关闭VIA2、B电脑sa登录不了解决办法：设置混合模式登录，同时启用SA3、两台电脑互ping可以，但就是连不上解决办法有二：（1）两台电脑同时关闭防
2017-06-15 22:53:51
310
原创 MSSQL:DAO连接数据库
注意点如下：1、{sql server}中间要加空格，这个地方卡了很久；2、textmatrix.0代表标题行33、MS1.cols要比rs.fields.count多一列，因为左边有一列是序号列，不过经测试，用MS1.TextMatrix(0, n - 1) = Rs.Fields(n - 1).Name和MS1.TextMatrix(j, i - 1) = Rs.Field
2017-06-07 23:19:45
384
原创 MSSQL：ADO连接数据库
1、VB6连接SQLSERVER2014：Dim Con As New ADODB.ConnectionDim Rs As New ADODB.RecordsetPrivate Sub Form_Load() Con.ConnectionString = "Driver={sql server};server=192.168.1.104;uid=sa;pwd=;d
2017-06-04 09:42:00
438
原创 MSSQL：用openrowset增改查xlsx
注意：1、首先要允许使用ACE及动态参数2、excel12.0应写为“excel 12.0” 1、查--允许在进程中使用ACE.OLEDB.12 EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'AllowInProcess', 1 --允许动态参数 E
2017-06-04 00:27:45
545
1
原创 MSSQL:用opendatasource增删改查ACCESS
要点：1、选择的驱动程序一定要对--jet4.0具体如下：1、查select * from opendatasource('Microsoft.Jet.OLEDB.4.0','data source=D:\我的文档\access\素材\Northwind.mdb')...运货商2、增insert into opendatasource('Microsoft.Jet.
2017-06-03 23:57:31
610
原创 MSSQL:用opendatasource增删改查SQLSERVER
要点：1、".dbo."这个不能少！2、用opendatasource方法时，不需要用sp_addlinkedserver提前建立链接数据库1、查select * from opendatasource('sqloledb','data source=192.168.1.104;user id=sa;password=').db_2008.dbo.test2、增in
2017-06-03 23:31:36
1039
原创 MSSQL：用openrowset增改查xls
1、查：select * from openrowset('Microsoft.Jet.OLEDB.4.0','Excel 5.0;Database=d:/excel.xls;User ID=;Password=;','select * from [sheet1$]'2、修改：（注意要先把ad hoc distributed queries 设为1）exec
2017-06-03 22:54:26
374
原创 MSSQL：连接EXCEL
exec sp_addlinkedserver @server='excel',@srvproduct='excel',@provider='Microsoft.Jet.OLEDB.4.0',@datasrc='d:\excel.xls',@provstr= 'excel 5.0'exec sp_addlinkedsrvlogin@rmtsrvname= '
2017-06-03 22:45:13
376
原创 MSSQL:映射登录
环境： 本地：SQL2014 目标：SQL2008 已建链接服务器：192.168.1.104总结：1、useself 为true时，rmtuser和rmtpassword可以为空2、useself为false时，rmtuser和smtpassword必须设为远程服务器的登录名和登录密码代码如下：exec sp_addlinkedsrvlogi
2017-06-03 21:09:46
445
原创 MSSQL：链接服务器
环境： 本地：SQLSERVER2014 目的地：SQLSERVER2008注意要点：本地在登录时，用SQLSERVER验证，用“SA”登录变化：1、@srvproduct='' 可以变化为 @srvproduct='SQLSERVER'；2、@location='sa' 可以变化为 @location=''；3、@pr
2017-06-03 20:35:50
441
原创 MSSQL：全文检索-同时检索多行
注意：contains中“*”的运用举例：select * from aa where not contains(*,'"汁" or "瓶"')
2017-05-30 09:38:37
561
原创 MSSQL：触发器
关注对inserted的应用create trigger [dbo].[trigger_dmployee]on [dbo].[dmployee]after insertasbegin declare @after_id int declare @after_name char(50) declare @after_sex char(2) declare @a
2017-05-29 21:40:50
478
转载 MSSQL按年龄段统计销售业绩
create table #t(Uname varchar(10),age int)insert #tselect '啊啊',19 union all select '信息',23 union all select '宝宝',31 union all select '喔喔',21 union all select '米米',6 select nnd as
2017-05-29 19:19:49
618
原创 MSSQL：完整引用目标表
目标表完整表达：[jxc]...[产品]记住：中间是三个点举例：select * into [db_2008].[dbo].[aa] from [jxc]...[产品]
2017-05-29 18:55:10
283
原创 MSSQL起手式
use db_2008goif object_id(N'dbo.test',N'u') is not nulldrop table dbo.testgocreate table test (ascii_id int,chara nvarchar)goinsert into test values(1,1),(2,2) endgoselect *
2017-05-29 18:15:42
262
原创 T-SQL:用字符*显示一个三角形
declare @n int=20,@i int=1,@j int=1while @i begin print replicate(' ',@n-@i)+replicate('*',2*@i-1) set @i=@i+1 end
2017-05-29 13:16:05
2320
原创 MSSQL2008配套参数
sql server代理：network servicesql server database engine: systemsql server analysis services:network servicesql server reporting services:network servicesql server integration services:network s
2017-05-29 13:01:04
415
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人