路要修到啥时候呢?

路?单行道?何时完工?我也想知道  

查询端口的所在进程

例如要查找80端口所在进程

在运行 cmd 里》输入:netstat -aon | findstr “80”

Apple Mobile Device服务不能启动

找不到设备原因是,Apple Mobile Device服务没有启动 控制面板-管理(或管理工具)-服务(或服务和应用程序):在右侧的服务列表中,找到Apple Mobiel Device Service ,

双击,把 启动类型 设为 自动,然后 启动,确定。Apple Mobile Device服务就启动了。

 如果启动Apple Mobile Device服务又弹出服务停止框,不要急,下面我教你从根本上解决Apple Mobile Device服务启动后又停止的问题

Apple Mobile Device服务不能启动

 原因,该服务依赖的TCP/IP 协议有问题

 解决办法:

1、开始——运行——regedit.exe,打开注册表编辑器,删除以下两个键:      

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock      

 HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock2

 2、找到 C:\Windows\inf\nettcpip.inf文件 该文件为 tcp/ip协议文件,记住此文件的路径。

3、控制面板-网络共享中心-更改适配器设置-右击本地连接-属性-TCP/IPv6-安装-协议-从磁盘安装-

浏览找到 2中的文件路径,nettcpip.inf 然后选择“TCP/IPv6”
对于ipv4协议重复同样的操作,最后选择TCP/IPv4 即:

TCP/IPv4-安装-协议-从磁盘安装-

浏览找到 2中的文件路径,nettcpip.inf 然后选择“TCP/IPv4”

Vba和mssql如何建立数据库连接

MyServer = “192.168.1.22,1433” ‘存放数据的SQL Server 服务器
mydata = “CR_YPPF10” ‘存放数据的SQL Server 数据库

‘***********************修改结束*********************************************************

Set conn = CreateObject(“ADODB.Connection”) ‘建立ADODB连接对象
Set rs = CreateObject(“ADODB.recordset”) ‘建立收集器对象

conn.connectionstring = “Driver={sql server};” _
& “server=” & MyServer & “;” _
& “uid=11;pwd=11;” _
& “database=” & mydata _
& “;AutoTranslate=False”
‘服务器是:WISE-THINK
conn.Open ‘打开连接SQL server

将数组 写入数据库中

For i = 1 To UBound(MyArr1) – 1
For j = 1 To UBound(MyArr4) – 1
If Sheets(“Sheet1”).Cells(i + 1, 6).Value = “完成” Then
GoTo down:
End If
mystr = ” Values( ”
‘mystr = mystr & “‘” & MyArr1(i) & “‘,'” & MyArr2(i) & “‘,'” & MyArr3(j) & “‘,'” & MyArr4(i) & “‘,'” & MyArr5(i) & “‘)”
mystr = mystr & “‘000’,'” & MyArr2(i) & “‘,’销售客户’,'” & MyArr4(j) & “‘,’包含’)”
‘添加数据的SQL语句

SQL = “Insert into sp_kz ” & Arr & ” ” & mystr
conn.Execute SQL
Next j
Sheets(“Sheet1”).Cells(i + 1, 6).Value = “完成”
Next i
MsgBox “数据添加成功!”, vbInformation

将excel表格数据写入数组


x = Range(“A65536”).End(3).Row ‘x的值为A列中最后一个非空单元格行号
ReDim a(x) ‘重新定义数组a,使之上限为x
For i = 1 To x ‘i从A1依次往下循环,直到最后一行

a(i – 1) = Range(“A” & i) ‘将A列单元格值依次存放于数组中

Next

MyArr1 = a()

sql server2008 安装提示重启,重启后安装还是提示重启

sql server2008 检查是否需要挂起计算机重新启动。挂起重新启动会导致安装程序失败。

安装提示重启,重启后安装还是提示重启的解决办法:

进入注册表编辑器,通过修改注册表的方法来解决。除了删除SQL安装时遗留下的LJ文件,还必须进行以下操作: 在”开始”-”运行”中输入regedit,进入注册表编辑器,依次查找 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager,找到“PendingFileRenameOperations”值,并删除其中所有数据,之后就可以正常安装SQL Server

 

 

图片批量加水印软件

有些图片需要加水印或电子章,一张张加确实麻烦 ,有这个个批量工具就简单多了,可以批量加水印、改大小、压缩等。

软件下载

office 的excel、word、powerpoint一关闭就报错“Microsoft Office Word 遇到问题需要关闭

office 的excel、word、powerpoint一关闭就报错“Microsoft Office Word 遇到问题需要关闭。我们对此引起的不便表示抱歉”。

解决方法:

方法1)、把C:\Documents and Settings\hua\Application data\Microsoft\Templates 下的Normal.dot删除掉。

方法2)、修改注册表

HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\PowerPoint,只需要将PowerPoint更名为PowerPoint1。
另外找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\PowerPoint\Addins将PowerPoint下的addins 重命名为addins1

 

 

excel如何按某列筛选自动打印

当你某一列里的数据很多,需要按这一列的筛选数据分列打印时,这个自动打印的功能非常省事。

Sub autoprint()
Dim d
Dim arr
Dim i%, nrow%, s%
nrow = Range(“A65536”).End(3).Row   ‘第1列最后可见非空单元行号(A列分类)
arr = Range(“A3:A” & nrow)    ‘创建数组,标题行在第2行
s = UBound(arr)    ‘一维数组最后项数

Set d = CreateObject(“Scripting.Dictionary”)    ‘创建字典对象

For i = 1 To s    ‘循环数组各项
    d(arr(i, 1)) = “”    ‘纳入字典
Next
Range(“1:1”).AutoFilter    ‘选择第2行自动筛选(标题行在第2行)

For i = 1 To d.Count    ‘循环字典项
    Selection.AutoFilter Field:=1, Criteria1:=Application.Index(d.keys, 0, i)    ‘以字典各项自动筛选
    ActiveWindow.SelectedSheets.PrintOut   ‘打印当前表
Next

Selection.AutoFilter    ‘取消自动筛选,全部显示
End Sub

按列A分类打印 实现自动打印的功能 非常方便。

自动分类筛选打印
自动分类筛选打印

什么是服务器的FBWC与BBWC

FBWC  “Flash Backed Write Cache”
一种异常掉电时的缓存写入技术。
在系统掉电时,利用一组“超级电容”中存储的电量,在较短的时间内(大约1分钟),将缓存中的数据备份到RAID卡上的大容量FLASH闪存中,下次开机再把数据回写到硬盘中

 

BBWC  “Battery Backed Write Cache”  (电池备份写高速缓存)  用来提高服务器I/O性能。

服务器合并,大量的多媒体程序,实时响应程序,以及大量的存储空间请求,这些东西使得磁盘I/O性能成为服务器系统中的一道瓶颈。减轻负担的一个办法是增加一个BBWC(电池备份写高速缓存)模块。