MSFlexGrid 取得已選取的列(支援多列)

參考來源
----
真是找好久,收藏起來!!

Private Sub cmdList_Click()
' Set start_row to the smaller of MSFlexGrid1.Row
' and MSFlexGrid1.Row. Make stop_row the larger.
If MSFlexGrid1.Row > MSFlexGrid1.RowSel Then
start_row = MSFlexGrid1.RowSel
stop_row = MSFlexGrid1.Row
Else
start_row = MSFlexGrid1.Row
stop_row = MSFlexGrid1.RowSel
End If

' Loop through the selected rows.
For i = start_row To stop_row
txt = txt & MSFlexGrid1.TextMatrix(i, 0) & ": " & _
MSFlexGrid1.TextMatrix(i, 1) & vbCrLf
Next i

MsgBox txt
End Sub

VB中MsFlexGrid控件的使用细则(收集)

>> 将文本赋值给MsFlexGrid的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”
>> 在MsFlexGrid控件单元格中插入背景图形
Set MsFlexGrid.CellPicture=LoadPicture(“C:\temp\1.bmp”)
>>选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1
>>用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True
>> 添加新的一行
使用AddItem方法,用Tab字符分开不同单元格的内容
dim row as string
row=”AAA”&vbtab&”bbb”
MsFlexFrid1.addItem row
>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?
Dim i As Integer
With MSFlexGrid1
.AllowBigSelection = True ’ 设置网格样式
.FillStyle = flexFillRepeat
For i = 0 To .Rows - 1
.Row = i: .Col = .FixedCols
.ColSel = .Cols() - .FixedCols - 1
If i Mod 2 = 0 Then
.CellBackColor = &HC0C0C0 ’ 浅灰
Else
.CellBackColor = vbBlue ’ 兰色
End If
Next i
End With
>> MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1
>>如何判断msflexgrid有无滚动条
Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As
Long, lpMaxPos As Long) As Long
Public Const SB_HORZ = &H0
Public Const SB_VERT = &H1
Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见
Dim i As Long
VsScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then VsScroll = True
End Function
Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function
>>程序运行时，想动态增加MSFlexgrid的列数
在第2列后插入一列：
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub
Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub
>> 请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n
>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行
>> 如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
将MsFlexGrid控件的内容输出到文本
2004-03-19 14:25:18
'OutDataToText
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid)
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim strTemp As String
On Error GoTo Ert
Me.MousePointer = 11
On Error Resume Next
DoEvents
Dim FileNum As Integer
FileNum = FreeFile
Open "d:aa.txt" For Output As #FileNum
With Flex
k = .Rows
For i = 0 To k - 1
strTemp = ""
For j = 0 To .Cols - 1
DoEvents
strTemp = strTemp & .TextMatrix(i, j) & ","
Next j
Print #FileNum, Left(strTemp, Len(strTemp) - 1)
Next i
End With
Close #FileNum
Me.MousePointer = 0
MsgBox "导出成功"
Ert:
MsgBox Err.Description
Me.MousePointer = 0
End Sub
增加 MsFlexGrid 的编辑功能
概述
MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能。在按下一个键后，就把TextBox 移动到当前的位置，并激活。在键入回车或移动到其他网格时，就把TextBox 中的内容放到网格中。
实现步骤
1 打开 VB5，开启一个新的工程。
2 在菜单“工程” 中选择 “部件”，在列表中选中 “Microsoft FlexGrid Control ..”
3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。修改MsFlexGrid 控件的名称为 Grid1，
设置Grid1 的行，列为 4，固定行，列为 0。设置 Text1 的 Visiable 为 False， BorderStyle 为
None(0)。
4 在Form1 的代码中增加声明：
Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer
5 增加代码到 Grid_KeyPress 过程：
Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面！
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub
6 增加代码到 Text1_KeyPress 过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub
7 增加代码到 Text1_LostFocus 过程：
Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub
8 好了。按 F5 开始测试。您可以自由地在 Grid 中移动，按回车可以开始或结束编辑。
使用MsFlexGrid控件的几个函数

在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序
''MsFlexGrid操作函数''合并列
Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal
ColValue As String, ByVal CurrentRow As Long) As Boolean
If StartCol > EndCol or StartCol > GridObj.Cols or CurrentRow > GridObj.Rows Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeCol = False
Exit Function
End If
For I = StartCol To EndCol
GridObj.MergeCol(I) = True
GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue
GridObj.ColAlignment(I) = flexAlignCenterCenter
Next I
GridObj.MergeRow(CurrentRow) = True
MergeCol = True
End Function
''合并行
Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal
RowValue As String, ByVal CurrentCol As Long) As Boolean
If StartRow > EndRow or StartRow > GridObj.Rows or CurrentCol > GridObj.Cols Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeRow = False
Exit Function
End If
For I = StartRow To EndRow
GridObj.MergeRow(I) = True
GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue
GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter
Next I
GridObj.MergeCol(CurrentCol) = True
MergeRow = True
End Function
''转换索引
Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long
If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title faIndex = -1 Exit Function End If faIndex = row * GridObj.Cols + col End Function ''插入行 Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal SetValue As String) As Boolean If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title SetItem = False Exit Function End If GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue etItem = True End Function ''得到单元格值 Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
GetItem = ""
Exit Function
End If
GetItem = GridObj.TextArray(faIndex(GridObj, row, col))
End Function
在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技巧来方便的实现这编辑功能来扩展msflexgrid的应用（在实际应用中这是很常用的功能）。
你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能
例在窗体上放一文本框txtvalue，和一msflexgrid控件grid
‘文本框控件的keypress事件
private sub txtvalue_keypress(keyascii as integer)
‘放入一些处理过程，如只需输入数字时的处理
dim i
i=1
end sub
private sub txtvalue_change()
grid.text = txtvalue.text
end sub
'在grid的entercell事件中加入下例代码
private sub grid_entercell()
txtvalue.text = grid.text
txtvalue.selstart = 0
txtvalue.sellength = len(txtvalue.text)
end sub
'当用户输入数据时直接调用文本框的keypress事件
private sub grid_keypress(keyascii as integer)
txtvalue_keypress keyascii
end sub
ok,这样一个可编辑的msflexgrid控件就完成了，简单吧!!
原理
当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件，在这里我们对文本框进行初始化，输入当前cell格中的内容，并且选中所有文本。当用户要按下按键进行输入时，就直接调用txtvalue的事件，由文本框来处理.处理的结果同grid的当前cell同步，使用户编辑cell格就象使用文本框一样方便。

列印所選取MSFlexGrid的範圍

參考來源
---
'取得選擇區域的座標...
X1 = MSFlexGrid1.ColSel
X2 = MSFlexGrid1.Col
Y1 = MSFlexGrid1.RowSel
Y2 = MSFlexGrid1.Row
MSFlexGrid1.Col = X1
MSFlexGrid1.Row = Y1
X1 = MSFlexGrid1.CellLeft: Y1 = MSFlexGrid1.CellTop
MSFlexGrid1.Col = X2
MSFlexGrid1.Row = Y2
X2 = MSFlexGrid1.CellLeft + MSFlexGrid1.CellWidth: Y2 = MSFlexGrid1.CellTop + MSFlexGrid1.CellHeight
.....'(必要時x1,x2 y1,y2 需對調!)
'將選擇區域貼到印表機...
printer.PaintPicture MSFlexGrid1.Picture, 0, 0, X2 - X1, Y2 - Y1, X1, Y1, X2 - X1, Y2 - Y1, vbSrcCopy

sql update select

update a set a2=b.b2, a3=b.b3, ...
from b
where a.a1=b.b1

使用HTML Help Workshop製作 CHM

對一個RD來說,要寫一份完整的HELP真是個痛苦的開始
但不寫,誰又怎知道怎操作呢!
在這過程中,每位RD就會想找個便利又輕鬆的工具來製作軟體操作手冊(包括我自己)
繞了一大圈又一圈,反覆掙扎內心交戰...
我最後放棄了一些網路製作CHM的工具了,回歸微軟懷抱!
因為:
1.會有亂碼問題
2.偶爾會出問題
3.試用版時間到了
4.試用版無法儲存
-------
底下來試試最簡單又不出錯的 HTML Help Workshop 製作CHM

取得目前執行的所在目錄

1.常用
Application.StartupPath
2.少用
Environment.CurrentDirectory

Windows系統內建的常見環境變數

Windows系統內建的常見環境變數

%SystemDrive%：系統磁碟機，預設是C:
%SystemRoot%：系統根目錄，預設是C:\WINNT或C:\WINDOWS
%SystemDirectory%：系統目錄，預設是C:\WINNT\System32或C:\WINDOWS\System32
%WinDir%：Windows目錄，預設是C:\WINNT或C:\WINDOWS
%ProgramFiles%：應用程式目錄，預設是C:\Program Files
%Temp%、%Tmp%：暫存檔目錄 %HomeDrive%：使用者目錄的磁碟機
%HomePath%：使用者家目錄

（以上環境變數可以『檔案總管』試之，或在DOS視窗以echo指令顯示其值；以下的環境變數只能以DOS視窗以echo指令顯示其值）

%OS%：作業系統名稱，其值固定為Windows_NT
%UserDomain%：包含使用者帳號的網域名稱，或者電腦名稱
%UserName%：使用者帳號名稱
-----------
在vbnet開發,可以使用:
Environment.ExpandEnvironmentVariables("%SystemRoot%")
來取值

當軟體開發到要控制或掌握目前環境時,就可運用到

輕鬆取電腦所有的磁碟機代號

---

TextBox1.Text = ""
For i As Integer = 0 To Environment.GetLogicalDrives().Count() - 1
TextBox1.Text += Environment.GetLogicalDrives(i).ToString & vbCrLf
Next

datatable item相加

大家维护过这么神奇的代码吗？谁给个解药给我？
-------------
討論寫法,真是有趣!!
If Not dr Is Nothing Then
If dr.Tables.Count > 0 Then
If dr.Tables(0).Rows.Count > 0 Then
'do nothing
Query_Price = Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(0)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(0))))
Query_Price = Query_Price + Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(1)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(1))))
Else
Query_Price = 0
End If
Else
Query_Price = 0
End If
Else
Query_Price = 0
End If
-----
縮減過:
Query_Price = 0
If dr Isnot Nothing andalso dr.Tables.Count>0 andalso dr.Tables(0).Rows.Count > 0 Then
Query_Price = Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(0)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(0))))
Query_Price = Query_Price + Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(1)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(1))))
End If

SQL OPENROWSET 權限開啟和使用方式

1.先將 SQL Server Management Studio 權限打開

----------------------------
指令:
SELECT comp_id FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','C:\新資料夾\pos_test.mdb';'admin';'',employee)

百度文庫,真是寶

百度文庫
--
所有各業休閒技術都有的文庫
收藏起來,有空來挖寶

CRC32、CRC16、CRC原理和算法

CRC32、CRC16、CRC原理和算法
---
值得研究一下唷

JSP Tutorials

JSP Tutorials,EJB Tutorial,JDBC Tutorials,Free Java Servlets Tutorials, WAP Tutorials, Spring Framework Tutorials, J2EE Tutorials, BioInformatics Tutorials, Java Server Faces Tutorials, Jboss Tutorials, Hibernate Tutorials, XML and MySQL Tutorials
--
篇篇都不錯的,有時間可以慢慢學習和增加技能!!

AP service autoupdate

來源
---
Dim client As New WebClient()
' 下载dll
Dim data = client.DownloadFile("http://youserver/version_1_0_0_1/xxx.dll")
' 可能还有些备份等工作
' 直接保存下载的dll到目标位置
File.WriteAllBytes("[现有服务的工作路径]/xxx.dll", data)
' 重启服务
Dim service = New ServiceController(serviceName)
service.Start()
service.WaitForStatus(ServiceControllerStatus.Running, timeout)
' 退出
Environment.Exit(0)
--
參考..

sql select to csv

利用 SQL Server Management Studio 的查詢,將結果儲存為 csv檔
--

欄位補固定符號

一般要補的均會是條碼類為多
底下為操作:

使用OpenRowSet操作Excel

來源
--
有两种接口可供选择：Microsoft.Jet.OLEDB.4.0（以下简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（以下简称 ACE 引擎）。

Jet 引擎大家都很熟悉，可以访问 Office 97-2003，但不能访问 Office 2007。

ACE 引擎是随 Office 2007 一起发布的数据库连接组件，既可以访问 Office 2007，也可以访问 Office 97-2003。

另外：Microsoft.ACE.OLEDB.12.0 可以访问正在打开的 Excel 文件，而 Microsoft.Jet.OLEDB.4.0 是不可以的。



语法举例：

--> Jet 引擎访问 Excel 97-2003

select * from OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls', 'select * from [Sheet1$]')
select * from OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls', [Sheet1$])
select * from OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls')...[Sheet1$]
select * from OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source=D:\97-2003.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"')...[Sheet1$]


--> ACE 引擎访问 Excel 97-2003

select * from OpenRowSet('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls', 'select * from [Sheet1$]')
select * from OpenRowSet('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls', [Sheet1$])
select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\97-2003.xls')...[Sheet1$]
select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Data Source=D:\97-2003.xls;Extended Properties="Excel 12.0;HDR=Yes;IMEX=1"')...[Sheet1$]

--> ACE 引擎访问 Excel 2007

select * from OpenRowSet('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\2007.xlsx', 'select * from [Sheet1$]')
select * from OpenRowSet('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\2007.xlsx', [Sheet1$])
select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=D:\2007.xlsx')...[Sheet1$]
select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Data Source=D:\2007.xlsx;Extended Properties="Excel 12.0;HDR=Yes;IMEX=1"')...[Sheet1$]
注：

Excel 2007 工作簿文件的扩展名是：xlsx

HDR=Yes/No

可选参数，指定 Excel 表的第一行是否列名，缺省为 Yes，可以在注册表中修改缺省的行为。

IMEX=1

可选参数，将 Excel 表中混合 Intermixed 数据类型的列强制解析为文本。

SQL to Excel 三种方法

來源
--
　　方法1。使用CopyFromRecordset(适用于Access,SQL)
　　第一次：49
　　第二次：45
　　第三次：43
　　第四次：43
　　第五次：42
　　方法2：使用QueryTable(适用于Access,SQL)
　　第一次：10
　　第二次：6
　　第三次：3
　　第四次：4
　　第五次：4
　　方法3：使用bcp(适用于SQL)
　　从命令行直接运行时间为701毫秒，从VB中返回时间为0
　　测试代码如下：
　　方法1：
　　Option Explicit
　　Private Sub Command1_Click()
　　 Dim t1 As Date
　　 t1 = Now()
　　
　　
　　 Dim strConn As String
　　 strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
　　Security Info=False;Initial Catalog=mlog;Data Source=SZ09"
　　
　　 Dim cn As ADODB.Connection
　　 Dim rs As ADODB.Recordset
　　
　　
　　 Set cn = CreateObject("ADODB.Connection")
　　 cn.Open strConn
　　 cn.CursorLocation = adUseServer
　　 Set rs = cn.Execute("table1", , adCmdTable)
　　
　　 Dim oExcel As Excel.Application
　　 Dim oBook As Excel.Workbook
　　 Dim oSheet As Object
　　 Set oExcel = CreateObject("Excel.Application")
　　 Set oBook = oExcel.Workbooks.Add
　　 Set oSheet = oBook.Worksheets(1)
　　
　　 oSheet.Range("A1").CopyFromRecordset rs
　　
　　 oBook.SaveAs "d:\1.xls"
　　 oExcel.Quit
　　 Set oSheet = Nothing
　　 Set oBook = Nothing
　　 Set oExcel = Nothing
　　
　　 rs.Close
　　 Set rs = Nothing
　　
　　 cn.Close
　　 Set cn = Nothing
　　
　　 MsgBox (DateDiff("s", t1, Now()))
　　
　　End Sub
　　方法 2：
　　Option Explicit
　　Private Sub Command1_Click()
　　 Dim t1 As Date
　　 t1 = Now()
　　
　　 'Create a new workbook in Excel
　　 Dim oExcel As Object
　　 Dim oBook As Object
　　 Dim oSheet As Object
　　 Set oExcel = CreateObject("Excel.Application")
　　 Set oBook = oExcel.Workbooks.Add
　　 Set oSheet = oBook.Worksheets(1)
　　
　　 Dim strConn As String
　　 strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
　　Security Info=False;Initial Catalog=mlog;Data Source=SZ09"
　　
　　 'Create the QueryTable
　　
　　 Dim oQryTable As Object
　　 Set oQryTable = oSheet.QueryTables.Add( _
　　 "OLEDB;" & strConn & ";", oSheet.Range("A1"), "Select * from table1")
　　 oQryTable.RefreshStyle = xlInsertEntireRows
　　 oQryTable.Refresh False
　　
　　 'Save the Workbook and Quit Excel
　　 oBook.SaveAs "d:\1.xls"
　　 oExcel.Quit
　　 Set oSheet = Nothing
　　 Set oBook = Nothing
　　 Set oExcel = Nothing
　　
　　 MsgBox (DateDiff("s", t1, Now()))
　　End Sub
　　方法3：
　　Private Sub Command1_Click()
　　 Dim t1 As Date
　　 t1 = Now()
　　
　　 Dim sCmd As String
　　 sCmd = "bcp mlog..table1 out d:\1.csv -w -t , -r \n -S sz09 -P
　　kenfil"
　　 Dim WSH As Object
　　 Set WSH = CreateObject("WScript.Shell")
　　 WSH.Run sCmd, True
　　
　　 MsgBox (DateDiff("s", t1, Now()))
　　End Sub
　　Note: cvs本身是一个可以被excel使用的文件（你可以直接在excel中打开这个文
　　件),如果你希望将这个文件转换成xls文件，很简单：
　　 Dim oExcel As Object
　　 Dim oBook As Object
　　 Dim oSheet As Object
　　 Set oExcel = CreateObject("Excel.Application")
　　
　　 Set oBook = oExcel.Workbooks.Open("d:\1.csv")
　　
　　 'Save as Excel workbook and Quit Excel
　　 oBook.SaveAs "d:\1.xls", xlWorkbookNormal
　　 oExcel.Quit(王朝网络 wangchao.net.cn)
-

瀏覽器相容性問題的困擾

依般我習慣使用IE 當作開發測試的環境
結果,客戶使用Chrome or firefox ; 結果呈現的卻有差異性
最常見的是:寬,高問題;和一些指令問題
到底該依何者為標準? 真是萬般困擾...

計數器,防止重新整理後加1

參考
---
基本運作,主要是靠 session 來處;這是最簡單的方式!!
除非瀏覽器關閉

vb6 Visual Component Manager vs2010

相同的問題
----
果然有人跟我遇到相同的問題了.
當vb6安裝後,再安裝 VS 2010/SP1 後;此時開啟 VB6 卻會出現要安裝 VS 2010 的視窗
只好按取消,然後在VB6內的增益集選項內的:Visual Component Manager 6.0 先取消不載入和啟定後;才有辦法正常!!
但...都怪怪的,無法複製元件...
怎解決呢?

update select

update a,b set a.pic=b.pic where a.name=b.name