mssql 某table的column存在，傳回1；column不存在，傳回0

參考引用
--

--某table的column存在，傳回1；column不存在，傳回0
select count(name) from syscolumns
where id=(select id from sysobjects where name='tableName') 

and name='columnName'

mssql 當資料重覆時,只更新一筆資料

引用來源
--

 SET ROWCOUNT 1   /*要先下此條件*/
 GO   
 UPDATE table_name   
 set field_1 = GETDATE()    

 WHERE field_2 = 'Y'

另一個方法(20140227):

UPDATE note
SET picture=@picture
WHERE user_id=@userid AND no=(SELECT TOP 1 no FROM note WHERE user_id=@userid ORDER BY no DESC)

或

UPDATE note

SET picture=@picture

WHERE user_id=@userid AND no=(SELECT max(no) FROM note WHERE user_id=@userid)

mssql 找尋table條件規則內有重覆的資料

引用來源
--

SELECT col2,col3,count(*) qty    
FROM table2   
where col2 is null   

group by col2,col3 having count(*) > 1  

mssql 取代字串裡的部份文字

引用來源
--

update USER_DATA
set email = REPLACE(email,'123' ,'456') 

where email like '%123'

mssql 更改欄位名稱

引用來源
--
 alter table TABLEA rename COLUMN columnABC to columnBCD;

mssql Update from another table / 更新資料使用別的TABLE

引用來源
--

UPDATE TABLEA
SET (b, c, d) = (SELECT b1, c1, d1 from TABLEB WHERE TABLEB.a1 = TABLEA.a and TABLEB.e1 > 40)
WHERE EXISTS (SELECT 1 from TABLEB WHERE TABLEB.a1 = TABLEA.a and TABLEB.e1 > 40)
 
update (
select a.fileld, b.fileld
from TABLEA a, TABLE b
where 
a.key = b.key 

) set fileld = fileld  

ms-sql 判斷欄位是否有中文

引用來源
--

select COLUMN2,COLUMN3
from TABLENAME 

where len(COLUMN3) != datalength(convert(varchar(1000),COLUMN3))

OPENROWSET open Access Database

參考引用:
---
SELECT top 10 *
FROM
OPENROWSET(
    'Microsoft.Jet.OLEDB.4.0',
    'C:Testdata est.mdb';
    'admin';'',Table1)

---
回答區:

This works (ODBC):


select *
  from openrowset('MSDASQL',
                             'Driver={Microsoft Access Driver (*.mdb)};Dbq=C:MBK.mdb;SystemDB=C:SECURED.MDW;Uid=me;Pwd=pw;',
                             'select * from [Mbk]')

This works (Jet.OLEDB):

select *
  from opendatasource('Microsoft.Jet.OLEDB.4.0',
  'Data Source=C:MBK.mdb;Jet OLEDBystem Database=C:SECURED.MDW;User ID=me;Password=pw;')
  ...Mbk

This won't work (Jet.OLEDB):

select *
  from openrowset('Microsoft.Jet.OLEDB.4.0',
                  'MS Access;Database=C:MBK.mdb;System Database=C:SECURED.MDW;UID=me;PWD=pw;',
                  'select * from [Mbk]')

saying ... "Wrong argument".

This won't work (Jet.OLEDB):

select *
  from openrowset('Microsoft.Jet.OLEDB.4.0',
                  'MS Access;Database=C:MBK.mdb;SystemDB=C:SECURED.MDW;UID=me;PWD=pw;',
                  'select * from [Mbk]')

TSQL OPENROWSET in SQL Server

TSQL OPENROWSET in SQL Server
OpenRowSource and OpenRowSet in SQL Server 2000
認識 OPENROWSET 與 OPENDATASOURCE 函數
使用 OpenRowset、OpenDataSource 查詢EXCEL
   

Ajax Control Toolkit

Ajax Control Toolkit
--
asp.net

Get Started with the AJAX Control Toolkit (VB)
 

access to mssql convert tools free

Welcome to Bullzip
---
好多免費的工具唷!

skype 如何加 msn 帳號

真是困擾的問題!
msn 說要停了,就急著換裝最新版 skype 下載 Windows 專用 Skype
結果:有把目前的msn 好友名單都加過來了
但後續卻遇到,要新加新的msn ... 卡住了 =.=
找不到可加 msn 帳號的地方和功能..
真是,山不轉;人自轉..
只好又把移除的msn 拿來安裝完登入後 ,把要加入的msn 好友加入後
再離線,使用skype 再登入  !
哈~~~加入好了!
 

SQL WAITFOR TIME / WAITFOR DELAY

MSDN:WAITFOR (Transact-SQL)

很多不錯的 vbnet 文章,不錯!

csdn wl58796351 有很多篇都寫得不錯
---
先收錄,有空再來習學

新上市櫃股蜜月期無限漲跌幅有幾天?

參考部分引用:
--

新上市櫃股蜜月期無限漲跌幅有幾天?
證交所規定, 新股上市上櫃五日內沒有漲跌幅限制,
所以, 前5日內不受漲跌停各7%的限制,
 但是過了五個交易日, 就開始要跟一般股票一樣,
受漲跌幅7%的限制.

vbnet 讀取 exel

參考引用:How to import exel file to sql server using VB.Net
--- 

Try
            Dim fBrowse As New OpenFileDialog
            With fBrowse
                .Filter = "Excel files(*.xls)|*.xls|All files (*.*)|*.*"
                .FilterIndex = 1
                .Title = "Import data from Excel file"
            End With
            If fBrowse.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim fname As String
                fname = fBrowse.FileName
                Dim MyConnection As System.Data.OleDb.OleDbConnection
                Dim DtSet As System.Data.DataSet
                Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
                MyConnection = New System.Data.OleDb.OleDbConnection _
                ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fname & ";" & "Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""")
                MyCommand = New System.Data.OleDb.OleDbDataAdapter("select Columns names from [sheet$]", MyConnection)
               
                MyCommand.TableMappings.Add("Table", "Ur table name.")
                DtSet = New System.Data.DataSet
                MyCommand.Fill(DtSet)
'If dataset is not empty Then write code here to insert values to DB.
                MyConnection.Close()
            End If
  Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

vbnet T-SQL

參考:Insert Master-Detail Data using Transact-SQL in VB.Net
參考:VB.NET - Execute a SQL Stored Procedure and process the results
Visual Web how to save textbox to SQL VB.net
  

 

在 .NET 應用程式中執行 T-SQL 指令碼檔

請參考來源
--

vb.net datagridview 選取

參考引用:
--

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '將所選取的反過來讀取
        For i As Integer = DataGridView1.SelectedCells.Count - 1 To 0 Step -1
            MsgBox(DataGridView1.SelectedCells(i).Value)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = DataGridView1.SelectedRows.Count - 1 To 0 Step -1
            MsgBox(DataGridView1.SelectedRows(i).Cells(0).Value)
        Next
    End Sub

這兒收藏了不少資訊

Database - 彩色筆小沛的知識庫

清除 SQL Management Studio 記錄的登入帳號及密碼

SQL Server Management Studio 2008
刪除 C:\Users\%username%\AppData\Roaming\Microsoft\Microsoft SQL Server\100\Tools\Shell\SqlStudio.bin

SQL Server Management Studio 2005
刪除 C:\Users\%username%\AppData\Roaming \Microsoft\Microsoft SQL Server\90\Tools\Shell\mru.dat

dataGridView UserAddedRow event

參考來源
---
新增的事件順序:

1. Create a private module-level variable like this:

Public

Class frmMain

Private _UserAddedRowIndex As Integer = -1

...

2. Handle the UserAddedRow event like this:

Private

Sub dgvItems_UserAddedRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) Handles dgvItems.UserAddedRow

_UserAddedRowIndex = Me.dgvItems.CurrentRow.Index

End Sub

3. Handle the RowValidating event like this:

Private

Sub dgvItems_RowValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvItems.RowValidating

If e.RowIndex = _UserAddedRowIndex Then MsgBox("User just finished entering a new row")

End Sub

4. Handle the RowValidated event like this:
4. Handle the RowValidated event like this:
4. Handle the RowValidated event like this:

Private Sub dgvItems_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvItems.RowValidated

_UserAddedRowIndex = -1
End Sub

免費 收發 mail

Claws Mail 免費郵件收發軟體（正體中文免安裝版）
 Thunderbird 是可以讓您簡單設定與自訂的一套免費電子郵件軟體 - 裡面有超多超棒的功能！
免費電子郵件軟體 DreamMail 4.6.9.2 免安裝版
  

mssql DBCC MEMORYSTATUS 指令來監視記憶體使用量

MSDN:如何使用 DBCC MEMORYSTATUS 指令來監視記憶體使用量，SQL Server 2005 上
Get CPU & Memory Usage from a SQL Query
 --
SELECT cntr_value/1024 as 'MBs used'
from master.dbo.sysperfinfo
where object_name = 'MSSQL$SQLEXPRESS2008:Memory Manager' and
counter_name = 'Total Server Memory (KB)'

ms-sql 優化

MSDN:UPDATE STATISTICS (Transact-SQL)
MSDN:DBCC UPDATEUSAGE (Transact-SQL)
MSDN:sp_updatestats (Transact-SQL)
--  
(1) exec sp_updatestats
(2) DBCC UPDATEUSAGE (資料庫名稱) WITH NO_INFOMSGS

sql sp_spaceused

MSDN:sp_spaceused (Transact-SQL)
--
EXEC sp_spaceused

孔雀魚的養殖密技

孔雀魚的養殖密技
--
真是職業高手

孔雀魚的剪尾治療方法

孔雀魚的剪尾治療方法..(爛尾..車輪蟲..細菌感染.破尾.尾部缺損用)

vbnet xlsx

Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cPart As Range
        'Dim cLoc As Range
        Dim oExcel As Application = CreateObject("Excel.Application")
        Dim oBook As Workbook = oExcel.Workbooks.Open("C:\Users\ThisUser\Documents\Data.xlsx", , False)
        Dim oSheet As Worksheet
        oSheet = oBook.Worksheets("LookupLists")
        ' To find range in excel and send them to combo box(cboName)
        For Each cPart In oSheet.Range("NameRng")
            With Me.cboName
                .Items.Add(cPart.Value)
                '.AddItem(cPart.Value)
                '.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
            End With
        Next cPart
        oBook.Close()
    End Sub
End Class

vbnet xml 轉 xlsx

Working with the Compatibility Checker in Excel 2007 and Excel 2010
Application.DisplayAlerts Property
How to convert xml file to Excel file (.xlsx)
Disable the Excel 2007 compatibility check?
   

不錯的技術blog 參考

C, C++, PHP, ASP, J2ME, Struts, Hibernate, VB.net, JSP, JSP, Javascript

vb.net 匯出資料到Excel檔 (文字檔轉)

參考:VB.NET- 手動建立DataTable
參考:vb.net匯出資料到Excel檔
-- 

VB.Net 如何匯出Excel (將Excel 當成DB 來做匯出)

參考引用 
----

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            '建立暫存Table!!
            Dim dt As New DataTable
            dt.Columns.Add(New DataColumn("tItem", System.Type.GetType("System.String")))
            dt.Columns.Add(New DataColumn("tDescription", System.Type.GetType("System.String")))
            dt.Columns.Add(New DataColumn("tMemon", System.Type.GetType("System.String")))
            '建立暫存資料!!
            Dim dr As DataRow = dt.NewRow
            dr.Item("tItem") = "1"
            dr.Item("tDescription") = "你好嗎?"
            dr.Item("tMemon") = "...."
            dt.Rows.Add(dr)
            '建立暫存資料!!
            dr = dt.NewRow
            dr.Item("tItem") = "2"
            dr.Item("tDescription") = "你是誰?"
            dr.Item("tMemon") = ",,,,,"
            dt.Rows.Add(dr)
            '呼叫匯出Excel Function
            If Not ExportExcel(dt, "c:\temp\123.xls", "測試") Then
                MessageBox.Show("匯出Excel 時發生錯誤!!")
            Else
                MessageBox.Show("匯出Excel 成功!!")
            End If
        Catch ex As Exception
            '錯誤則秀出錯誤訊息!!
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    'DT: Data Table
    'FullFileName: 匯出Excel 的完整路徑 Ex: C:\123.xls
    'TableName: 匯出Excel 的Sheet Name
    Private Function ExportExcel(ByVal DT As DataTable, ByVal FullFileName As String, ByVal TableName As String) As Boolean
        Dim connection As New Data.OleDb.OleDbConnection(String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=""Excel 8.0""", FullFileName))
        Try
            '建立Excel Connection
            connection.Open()
            '產生Table
            Dim strCreate As String
            For i As Int32 = 0 To DT.Columns.Count - 1
                strCreate += String.Format(",{0} Text(255)", DT.Columns(i).ColumnName)
            Next
            strCreate = String.Format("Create Table [{0}] ({1})", TableName, strCreate.Substring(1))
            Dim command As New Data.OleDb.OleDbCommand(strCreate, connection)
            command.ExecuteNonQuery()
 
            '讀取Excel Table (Sheet)
            Dim queryString As String = String.Format("Select * From [{0}]", TableName)
            '建立Excel 配接器
            Dim adapter As New Data.OleDb.OleDbDataAdapter()
            '宣告一個Dataset 
            Dim ds As New DataSet
            adapter.SelectCommand = New Data.OleDb.OleDbCommand(queryString, connection)
            Dim builder As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(adapter)
            '產生新增語法
            adapter.Fill(ds, TableName)
            For i As Int32 = 0 To DT.Rows.Count - 1
                Dim dr As DataRow = ds.Tables(TableName).NewRow
                For j As Int32 = 0 To DT.Columns.Count - 1
                    dr.Item(DT.Columns(j).ColumnName) = DT.Rows(i).Item(j)
                Next
                ds.Tables(TableName).Rows.Add(dr)
            Next
 
            builder.GetInsertCommand(True)
            '執行新增語法
            adapter.Update(ds, TableName)
            Return True
        Catch ex As Exception
            '擲出錯誤!!
            Throw ex
        Finally
            '關閉連線
            connection.Close()
        End Try 

    End Function

寫一個簡單的新增刪除修改查詢的程式

請參考來源
--

vbnet 複製 DataSet 內容

MSDN:複製 DataSet 內容
如何使用 Visual Basic.NET 的通用值之間複製資料行
--

How to: Select distinct values from Dataset

參考1
參考2
--
 

vb.net dataset group by

HOW TO： 在 Visual Basic.NET 中實作由協助程式類別的資料集群組
--

使用開源免費類庫在.net中操作Excel

請參考來源
--

excellibrary

excellibrary 官網
--
使用方式:
//Create the data set and table
DataSet ds = new DataSet("New_DataSet");
DataTable dt = new DataTable("New_DataTable");

//Set the locale for each
ds.Locale = System.Threading.Thread.CurrentThread.CurrentCulture;
dt.Locale = System.Threading.Thread.CurrentThread.CurrentCulture;

//Open a DB connection (in this example with OleDB)
OleDbConnection con = new OleDbConnection(dbConnectionString);
con.Open();

//Create a query and fill the data table with the data from the DB
string sql = "SELECT Whatever FROM MyDBTable;";
OleDbCommand cmd = new OleDbCommand(sql, con);
OleDbDataAdapter adptr = new OleDbDataAdapter();

adptr.SelectCommand = cmd;
adptr.Fill(dt);
con.Close();

//Add the table to the data set
ds.Tables.Add(dt);

//Here's the easy part. Create the Excel worksheet from the data set
ExcelLibrary.DataSetHelper.CreateWorkbook("MyExcelFile.xls", ds);

NPOI

npoi 官網
--

DataSet Group Implementing In VB.NET

請參考來源
--

巴菲特投資名言集錦

引用來源
---
 巴菲特投資名言集錦
．絕不投資財報令人看不懂的公司。
．財報只是評估企業價值的起點，而非最終的結果。
．不要把所有雞蛋放在一個籃子裡的說法是錯誤的，我們應像馬克吐溫所說的：把所有雞蛋放在一個籃子裡，然而看好他們。
．我不投資科技股絕非迷信不迷信的問題，而是我對科技業並不具有獨到的眼光，因此我寧願投資我懂的東西。
．蓋茲是我的好友，他絕頂聰明，但我對那個小東西（電腦）有什麼用，一點兒都不清楚。
．我從未想過預測股市未來，而股市短期未來走勢的預測更是有如毒藥，應該讓其遠離投資人。
．投資不僅要買得早，還要賣得早。
．許多人盲目投資，等於是通宵玩牌，卻從未看清自己手中的牌。
．別人同意你的說法，並非表示你是對的，只有你根據正確的事實做出正確的判斷，才代表你是對的。
．你必須隨時擁有充裕的資金，如果你想射中大象，你就必須隨時把槍帶在身上。
．股市與上帝一樣，不同的是股市不會原諒不知道自己在做些什麼的人。
．沒有公式能判定股票價值，唯一的方法就是澈底了解這家公司。
．風險來自於你不知道自己在做什麼。
．我偏愛的投資期限是永遠。
．只有退潮時，你才知道誰在裸泳。
．投資的密訣的是，看到別人貪心的時候要害怕，別人害怕的時候要貪心。

水晶报表CrystalReport的分页与打印

請參考來源
--

Crystal Report 報表於Web顯示時，可設定不分頁

設定Crystal Report Viewer的屬性

SeparatePages=false

vb.net中從datatable讀取數據到Excel

引用來源
---
 原文地址:http://hi.baidu.com/hiochou/item/5aedd2f0418056cea835a2dc
最近用這個比較多，所以到網上找了些相關的資料，自己做了個簡單的示例，記錄下來以防以後又忘記了。。。下面是完整代碼(用的是Northwind數據庫中的Products表)：
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office
Public Class Form1

    Private Sub btnExpert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExpert.Click
        Dim connStr As String = "Data Source=PC-201104071256\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=True"
        Dim conn As SqlConnection = New SqlConnection(connStr)
        Dim sqlstr As String = "select top 10 * from dbo.Products"

        Dim adapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn)
        Dim ds As DataSet = New DataSet
        Dim myTable As DataTable
        adapter.Fill(ds, "productsTable")
        myTable = ds.Tables("productsTable")

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim chartRange As Excel.Range
        Dim rcount, ccount As Integer
        rcount = myTable.Rows.Count()
        ccount = myTable.Columns.Count()

        xlApp = New Excel.Application()
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")
       '表頭
        xlWorkSheet.Cells(1, 1) = "產品ID"
        xlWorkSheet.Cells(1, 2) = "產品名"
        xlWorkSheet.Cells(1, 3) = "供應商ID"
        xlWorkSheet.Cells(1, 4) = "分類ID"
        xlWorkSheet.Cells(1, 5) = "單元數量"
        xlWorkSheet.Cells(1, 6) = "單價"
        xlWorkSheet.Cells(1, 7) = "單位庫存"
        xlWorkSheet.Cells(1, 8) = "訂購單位"
        xlWorkSheet.Cells(1, 9) = "再訂購庫存量"
        xlWorkSheet.Cells(1, 10) = "停止使用"

        chartRange = xlWorkSheet.UsedRange
        For rCnt = 2 To rcount + 1
            For cCnt = 1 To ccount
                xlWorkSheet.Cells(rCnt, cCnt) = CStr(myTable.Rows(rCnt - 2)(cCnt - 1).ToString)
            Next
        Next

        '格式化單元格
        chartRange.HorizontalAlignment = 3
        chartRange.VerticalAlignment = 3
        chartRange = xlWorkSheet.Range("A1", "J1")
        chartRange.Font.Bold = True
        chartRange = xlWorkSheet.Range("A2", "J11")
        chartRange.Font.ColorIndex = 5

        xlWorkSheet.SaveAs("E:\Test\products.xls")
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MsgBox("成功保存文件products.xls在E:\Test中...")
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

Official Visual Studio 2008 VB.NET Samples

MSDN:Official Visual Studio 2008 VB.NET Samples
--

Excel 2010: Export Data to PDF or XPS Using the Excel.ExportAsFixedFormat Method

請參考MSDN
--

Export Gridview Data to pdf format in VB.NET

請參考來源
--

VB.NET: Write/Create an Excel File

引用來源
--
Dim OutputArray(200, 200) As String
Dim strFileName As String = "MyExl.xls"

'set ur OutputArray here

Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
Dim wBook As Microsoft.Office.Interop.Excel.Workbook
Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet

wBook = excel.Workbooks.Add()
Try
    wSheet = wBook.ActiveSheet()
    Dim Range As Microsoft.Office.Interop.Excel.Range = wSheet.Range("A1", wSheet.Cells(200, 200))
    Range.Value2 = OutputArray
    wBook.SaveAs(strFileName)
Catch ex As Exception
    msgbox("Some Error Occured !!!")
Finally
    wBook.Close()
    excel.Quit()
    excel = Nothing
End Try

FTP File Upload in VB.NET

引用來源
--
Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://myftpsite/abc.txt"), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential("username", "password")
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
clsRequest.UsePassive = False
' read in file...
Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\abc.txt")
' upload file...
Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()

Creating Reports in VB.NET using Crystal Reports with Xml data Definitions

請參考來源: Creating Reports in VB.NET using Crystal Reports with Xml data Definitions

Step by Step help for creating a simple Crystal Reports in VB.NET

請參考來源:Step by Step help for creating a simple Crystal Reports in VB.NET

客戶端重設中一刀

Windows XP 如何設定中一刀報表
--

貸款分期試算

歡迎光臨國泰世華銀行-個人金融服務-貸款分期試算
--

Visual Basic 6 報表設計 - 進階 craxdrt.report

請參考來源


Dim x as string, y as string, z as string

x = Printers(l).DriverName
y = Printers(l).DeviceName
z = Printers(l).Port

crpReport.SelectPrinter x, y, z

VB6 指定印表機

Private Sub Command1_Click()
For I = 0 To Printers.Count - 1
List1.AddItem Printers(I).DeviceName '所有印表機
Next
End Sub

Private Sub List1_Click()
Set printer = Printers(List1.ListIndex) '指定印表機
End Sub

水晶報表本頁小計

引用來源
--
 水晶報表本頁小計
完全按照這種方法做,就可以做到本頁小計
其步驟如下:

需要建3個公式變量,

先建一個公式變量:
WhilePrintingRecords;
NumberVar Amount := 0;
放到頁首，
然後，再建一個公式變量，
WhilePrintingRecords;
numberVar Amount;
Amount := Amount + {要累加的字段};
放在DETAIL;
最後再建一個公式變量:
WhilePrintingRecords;
NumberVar Amount;
放在頁腳;

VB.NET Unicode Big5

--
看了一下別人的寫法,我這兒是單純化;全中文的轉換
若要完整,需再加一些英數,符號的處理

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        Dim a As String = TextBox3.Text
        Dim b As String = ""

        For i As Integer = 0 To a.Length - 1
            b = a.Substring(i, 1)
            TextBox1.Text += AscW(b).ToString
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = ""
        For i As Integer = 0 To TextBox1.TextLength Step 5
            If i <> TextBox1.TextLength Then
                TextBox2.Text += ChrW(TextBox1.Text.Substring(i, 5))
            End If          
        Next
    End Sub
End Class

SQL 變更欄位型態

ALTER TABLE book ALTER COLUMN bk_sname NVARCHAR(30) NULL
ALTER TABLE book ALTER COLUMN bk_sname VARCHAR(30) NULL

vb6 秀 unicode

參考引用
--
Public Declare Function MessageBoxW Lib "User32.dll" (ByVal hWnd as DWORD, ByVal lpText as Long, ByVal lpCaption as Long, ByVal uType as DWORD) as Long

Dim s as String
Dim ptr as Long

s = "t" & ChrW(22531) & "a"
ptr = StrPtr(s)
MessageBox 0, ptr, ptr, vbOkOnly

訊息視窗就會顯示 "t堃a" 了...

epson LQ系列..自動撕紙的設定auto tear

參考來源
--
1.AUTO TEAR OF 把它設為ON,就會自動定頁撕紙

TEAR OF 燈亮閃爍表示ON(或變更設定值)

2.調整紙張預設位置

按PAUSE鍵不放(三秒之上),閃爍時,表示可微調了

使用LF/FF和LOAD/EJECT二 鍵來調整

PS.要注意,可能有進紙前的調整和印完後的調整


3.
LF/FF 開電源是自偶測試,紙張選擇桿要調在紙的方向

按住TEAR OF鍵不放,開電源可調設定值

4.這種機器使用歩進馬達,如要手動進退紙張時,最好先關閉電源

5.使用久時,或不順時,請使用針車油,點几滴,在你打開蓋字時,看到的白色鐵桿

6.字印不清楚時,而且使用很久時,可不換印字頭,直接買一台,大約3千多

7.你說的洞洞單,有時會有很多的小洞洞掉在印表機內,可倒立搖一搖,或用吸塵器

---
***重點***

 按住TEAR OF鍵不放,開電源可調設定值,設成on
要記得關機,再開,才會生效

如何設定中一刀報表

參考來源
--

點陣式列表機如何設定好中一刀格式呢?

引用來源
--
 新增中一刀格式如同一顆爛蔥所說的步驟，但是有2個地方要注意：
1.新增了中一刀格式，也要選用中一刀才行，否則一直用內訂的a4大小當然是不會準，中一刀格式請以英吋為單位，寬8.5吋，長5.5吋
2.lq-300 硬體是不支援中一刀的，lq-300+ 才有支援喔!
ps.自動定頁撕紙功能則是在印表機的設定裡面，需要從印表機上面操作，照印出來的文件切換燈號，將auto tear off 功能改為on!

sql 橫向顯示

SELECT id_num, MAX(score_chinese) AS '國文成績', MAX(score_english) AS '英文成績', MAX(score_math) AS '數學成績'
FROM(
SELECT id_num,
CASE WHEN subject='國文' THEN score END AS score_chinese,
CASE WHEN subject='英文' THEN score END AS score_english,
CASE WHEN subject='數學' THEN scree END AS score_math
FROM score_table
) AS score_table_tmp
GROUP BY id_num

VB 如何轉存文字檔案為 UTF-8 編碼格式

Function SaveTextAsUTF8(filePath, Text)
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2

        'Create Stream object
        Dim TextStream
        Set TextStream = CreateObject("ADODB.Stream")
        With TextStream
                .Open
                .CharSet = "UTF-8"
                .Position = TextStream.Size
                .WriteText Text
                .SaveToFile filePath, adSaveCreateOverWrite
                .Close
        End With
        Set TextStream = Nothing
       
End Function

平均報酬率

怪老子理財:落實資產配置 退休沒煩惱

機型錢箱指令

機型錢箱指令
發票機Espon rpu420 openbox=Chr$(27) + "p0" + Chr$(50) + Chr$(250)
發票機WP-520 openbox=Chr(27) + "G"

我的IP位址查詢

我的IP位址查詢

設定 Outlook 使用 POP3 / IMAP 來接收 Gmail 信件

引用來源
--


要在 Outlook 設定 POP3 / IMAP 去接收 Gmail 信件, 要如何做?


Outlook 設定 POP3 / IMAP 去接收 Gmail 信件
官方說明: Outlook 2003 - Gmail說明
簡易步驟
在您的 Gmail中啟用 POP
設定 Outlook 2003 用戶端
詳細步驟
登入Gmail, 輸入帳號、密碼
選擇 畫面右上角的 "設定"
點選 "轉寄和 POP/IMAP", 選擇 "對所有郵件啟用 POP 功能 (包括已經下載的郵件)", 按 "儲存變更"
開啟 Outlook -> 帳號設定, 依下述步驟設定:
POP3 設定為 pop.gmail.com
SMTP 設定為 smtp.gmail.com
帳號要輸入完整的 Email 信箱: ex: abc@example.com
選擇 "其它設定" -> "外寄伺服器" -> 勾選 "我的外寄伺服器(SMTP)需要驗證"
選擇 "進階", 勾選 "內送伺服器及外寄伺服器的加密連線(SSL);POP3=995, SMTP=465"
這樣子 Outlook帳號設定 就完成囉~

windows7「您可能沒有權限使用網絡資源」和「windows打印機無法連接」解決方法

1.打開受訪者的guest權限

2. 開始--運行--gpedit.msc

3.windows設置---安全設置--本地策略--用戶權利指派--在右邊找到''拒絕從網絡訪問這台計算機''雙擊打開,把裡面的guest帳戶刪除

4. windows設置---安全設置--本地策略--安全選項--右邊找到''網絡訪問:本地帳戶的共享和安全模式"雙擊改成"經典:本地用戶自己的身份驗證"

5.windows設置---安全設置--本地策略--安全選項--右邊找到''帳戶:''使用空白密碼的本地用戶只允許進行控制台登陸"把它設置為"禁用"

for each split

詳細請參考來源
--
 引用:


' We want to split this input string
Dim s As String = "there is a cat"

' Split string based on spaces
Dim words As String() = s.Split(New Char() {" "c})

' Use For Each loop over words and display them
Dim word As String
For Each word In words
   Console.WriteLine(word)
Next

超多程式語言文章

最全面的网站教程

ActiveReport 預覽正常但打印輸出空白頁的解決方案

引用
--

最近在做項目時，使用ActiveReport(以下簡稱AR)做報表輸出，具體的場景與問題如下：

場景：

紙張尺寸：8.5in*5.5in

邊距：上下左右全設為0.1in

在打印某些單據資料時，遇到以下問題：

打印機是EPSON LQ-300K+ /II ESC/P 2，在打印某個單據(其它單據可以正常，Detail備註欄內容比較多且密，預覽只有一頁，且沒有紅邊)時，使用AR本身的自定紙張尺寸(即直接設置報表的尺寸)，總是會多出一張空白頁。嘗試使用Windows的自定紙張格式(新建了一個A8紙(8.5*5.5)，應用這個紙張打印可以正常輸出。



問題思考：

根據與現場顧問確認，相同的單據與報表，使用其它型號的打印機輸出是OK的。

初步分析，可能與以下3點有關：

1.打印機的分辨率設置

2.AR.PrintWith設置不對

3.AR的邊距設得太小



嘗試：

1.在AR.Run()之前，把設置其PrintWidth屬性：

     AR.PrintWidth = AR.PageSettings.PaperWidth - AR.PageSettings.Margins.Left - AR.PageSettings.Margins.Right - 0.1f;

2.把AR的邊距加大。

    AR.PageSettings.Margins.Left=0.39in;

    AR.PageSettings.Margins.Right=0.39in;

    AR.PageSettings.Margins.Top=0.3in;

    AR.PageSettings.Margins.Bottom=0.3in;



經過以上設置，問題得以解決。 目前測試了一些單據，還未發現問題。

Active Report多打空白頁得問題

引用來源
-- 
 如果製作ActiveReport得報表，那麼經常會在瀏覽器裡面看到右邊得紅線和下面得版權信息。先來解釋一下兩個紅色提示得分別得作用：

1。底部得紅色得版權信息，表示你得報表軟件還未經過註冊，應該購買正版軟件。經過我測試，該紅色字體不會在打印得時候打印到紙上。我記得文檔提示應該是，此時可以進行開發但是不能進行分發。

2。右邊得豎線，表示你的報表當前頁的範圍已經超過了一頁紙，實際打印的時候會打印兩張紙。解決辦法，調整報表的全局設置裡面的左右邊距設置，或通過報表的某種相應事件，在事件處理程序中進行邊距的設置。

現在可以解釋未什麼會打印的時候多打空白頁的問題了，右邊紅色豎線的存在。關鍵問題在於可能有時候紅線存在，但是在報表的邊上並不明顯，開發者沒看到。所以開發者就誤以為調整到了合理的範圍了，其實還是超出了單頁紙張的範圍的，解決辦法就是調整報表的左右邊距。



PS:當時同事幫我查找的資料，看了後解決的此問題。發現以前在vb下使用該報表的人還挺多的。解決方案也是從一個vb論壇過來的。

EPSON-PRU-420 列印

引用來源
---

Private Sub Command35_Click()
   Dim CMD As String, EJECT As String, OPENDRAW As String
   Dim Data As String
   'OPENDRAW = Chr(27) + Chr(27)  '<==RP-U420的開錢櫃命令不是這樣子的,請查RP-U420的命令手冊
   Data = Chr(27) + "c0" + Chr(2)  '<==只列印收執聯命令只要下一次即可,其後就保持在同一狀態
   Data = Data & "日期:2008/12/11 機號:1" & Chr(13) & Chr(10)
   Data = Data & "----------------------" & Chr(13) & Chr(10)
   Data = Data & "筆記型電腦    1  12500" & Chr(13) & Chr(10)
   Data = Data & "液晶螢幕      1  12000" & Chr(13) & Chr(10)
   Data = Data & "----------------------" & Chr(13) & Chr(10)
   Data = Data & "合計:            24500" & Chr(13) & Chr(10)
   Data = Data & "收現:35000 找零:500   " & Chr(13) & Chr(10)
   '要保持9列空白以讓資料出至裁切之後
   Data = Data & CHR(27) & "d" & CHR(9)  '<==跳9列空白,只要一道指定即可(詳情請看RP-U420命令手冊)
   Data = Data & Chr(29) + Chr(86) + Chr(1) '切紙
   Call Send2Driver(Data, "Epson LQ-300 ESC/P 2") 

End Sub

VB.NET 抓IP 和 MacAddress

Imports System.Net.NetworkInformation

Function getMacAddress()
        Dim nics() As NetworkInterface = _
              NetworkInterface.GetAllNetworkInterfaces
        Return nics(0).GetPhysicalAddress.ToString
End Function


System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces() 可取得所有 NIC 的 NetworkInterface
NetworkInterface.GetPhysicalAddress() 可取得 MAC
NetworkInterface.GetIPProperties() 可取得 IP

'NetworkInterface.GetPhysicalAddress() 回傳 PhysicalAddress 型態, 可以用
dim MacAdd as String= BitConver.ToString(NetworkInterface.GetPhysicalAddress().GetAddressBytes())
'NetworkInterface.GetIPProperties() 回傳 IPInterfaceProperties 型態, 可以用
dim prop as IPInterfaceProperties = NetworkInterface.GetIPProperties()
dim ip as string = prop.UnicastAddresses[0].Address.ToString()

成功名言

名人名言/成功 - 實用查詢

單利與複利 計算

一般存款都是單利.信用卡都是以複利計算的.現金卡每間銀行不同

單利:本金5000*(1+2%)=5100.下次還是5000*(1+2%)=5100一樣以5000計息

複利:本金5000*(1+2%)=5100.下次是5100*(1+2%)=5202

vb6 win8

參考來源
--
2012年2月時，微軟更進一步宣布，將在Windows 8中內建VB 6核心Runtime ，
讓VB 6開發的程式碼可以繼續在Windows 8中執行，而且對VB的支援將延長到Windows 8的產品生命周期。

所以放心開發吧! vb6 加油!

證券交易所得課稅制度-2013.2014 該選哪一種?

商業周刊-專欄部落格-財經新聞儀點通-證所稅懶人包整理，你該怎麼做 (1/1)
--
部分引用來源,詳細請參考來源:

「核實課徵」制是指證券交易時，全年度賣出證券所得扣掉買入成本再扣掉必要費用後，賺的錢需要被課徵證所稅，其證所稅率為15%，倘若持股滿一年以上則稅率減半為7.5%，購買IPO股票持有超過3年則稅率再減半為3.75%。

核實課稅制度在2015年起增加了交易滿十億元以上，有賺錢才需要繳稅的條款，但是在2013年與2014年間，則是有賺錢就面臨繳交15%的稅率。而設算所得，則是大盤指數到達8500點以上時，無論您的賺賠，則皆要繳千分之0.2或以上的稅率。

不錯的 blog 文章

研發記錄簿-Paladin

【-Ma の 筆記本-】

Blogger , 有記錄不錯的經驗文章;有空可參考參考

SQL Server 判斷某個Table是否存在

if exists(
select * from dbo.sysobjects where id=object_id(N'[COMPANYDATEPROD]') and OBJECTPROPERTY(id,N'IsUserTable')=1
)
select 1
else
select 0

--所有資料表
select * from dbo.sysobjects

---------
 --方法一-透過INFORMATION_SCHEMA.TABLES
select *
from INFORMATION_SCHEMA.TABLES
where TABLE_TYPE='BASE TABLE'
and TABLE_NAME='RubSpec'

--方法二-透過sys.tables
select *
from sys.tables
where name='RubSpec'

--方法三-使用OBJECT_ID
select OBJECT_ID('RubSpec')
----若為暫存表格，因存放於tempdb，語法改寫為
select OBJECT_ID('tempdb..RubSpec')

--如果表格存在要一併刪除，可使用下述語法
IF (select OBJECT_ID('RubSpec')) IS NOT NULL Drop Table RubSpec

crystal report的群組分頁頁碼問題

請參考來源
--
這是很好的範例說明,收錄起來

(第一頁)
台灣               page : 1/2
A     B     C     D
------------------------
1     Z     X     W
2     U     V     L
 
(第二頁)
台灣               page : 2/2
A     B     C     D
-------------------------
1     H     I     Y
2     E     S     N
3     Q     E     V
4     I     O     W
 
(第三頁)
中國               page : 1/3         
A     B     C     D
------------------------
1     G     E     W
2     B     E     S
3     I     W     M
 
(第四頁)
中國               page : 2/3
A     B     C     D
------------------------
1     G     E     W
2     B     E     S
3     I     W     M
 
(第五頁)
中國               page : 3/3
A     B     C     D
------------------------
1     C     E     W
2     H     E     S 

在區段專家裡面群組尾的地方設定
「在之後重設頁碼」就可以了~

How to Fill a ListView with any ADO.Net Dataset

好多個範例,值得參考
--

出貨單 中一刀格式

金湧 ERP 後台系統 - 出貨單 中一刀格式
歡迎至 http://gr.erptw.com/ 池龍工作室 參考系統影片

配息配股計算

配息:
公司去年度盈餘 以現金發放給股東叫配發現金股利--市場術語配息 計算方式:每股配發金額*持有的股數 以一張(1000股)計算 就是0.8*1000=800元

配股:
公司去年度盈餘以股票發放給股東叫配發股票股利--市場術語配股 計算方式:每股配發金額*持有的股數再除以10 以一張(1000股)計算 就是0.88*1000/10=88股

其2算法:


1)您可以拿多少錢＝您持有的股數 x 配息金額 － 10元匯費
　如：您有中鋼3張(即3000股)，配息0.8元，則您能拿到的錢為：
　　　3000股 x 0.8元 － 10元匯費 ＝ 實領2390元

2)您可以拿多少股＝您持有的股數 x 配息金額 / 10
　如：您有中鋼3張(即3000股)，配股0.5元，則您能拿到的股為：
　　　3000股 x 0.5元 / 10 ＝ 實領150股

2013行事曆

請參考:2013人事行政局102年公務人員行事曆

快速移除 Windows XP 內建的舊版 Windows Messenger 4.7

引用來源
--
「開始」->「執行」-> 在空格內輸入以下指令:
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove

不知明的蟲

當發現時,魚都爛尾...掛掉了;隔離也掛掉
1種是有腳的~像蜘蛛
另一種圓黑小小隻的
有誰知道呢??

常見的魚缸問題

請參考來源
--

公文登記管理系統(單機)

適用各機構公司企業的收公文登記;取代簿記方式
操作簡易,3-5分鐘即可上手!
未註冊,限制 100 筆!

下載試用:
 公文登記管理系統(單機) 試用版

--

Access - 重置自動編號欄位數值

請參考來源
--

Base64 encoder/decoder in Visual Basic

請參考來源
--

Crear un Link desde Visual Basic.

請參考來源
--

vb6 ADODB 運用

Dim oDb As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim sSql As String

oDb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=C:\Data\MyAccessDB.mdb;Jet"
sSql = "SELECT DISTINCT([LastName]) FROM [Authors] ORDER BY LastName ASC"


oRS.Open sSql, oDB, adOpenForwardOnly, adLockReadOnly

Do While not oRS.EOF
    With cboMyCombo
        .AddItem trim$(oRS("LastName").Value)
    End With
    oRS.MoveNext
Loop
oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

vb6 民國年格式

format (now,"EE/MM/DD")

Sql Server 中提供了begin tran，commit tran和rollback tran

Sql Server 中提供了begin tran，commit tran和rollback tran來使用事務。begin tran表示開始事務，    commit tran表示提交事務，rollback tran表示回滾事務。具體用法如下：
-- =============================================
--
--
--
-- =============================================
-- EXEC TEST_PROC '文綜','包括歷史，地理，政治','政治','文綜的一門'
CREATE PROCEDURE [dbo].[TEST_PROC]
@A_Name NVARCHAR(20),         -- A表姓名
@A_Remark NVARCHAR(4000), -- A表備註
@B_Name NVARCHAR(20),         -- B表姓名
@B_Remark NVARCHAR(4000) -- B表備註
AS
BEGIN TRY
     BEGIN TRAN
-- 在A表中插入數據
         INSERT INTO [dbo].[A]
              ( [A_Name]
               , [A_Remark] )
         VALUES
              ( @A_Name
              , @A_Remark )
-- 在B表中插入數據
         INSERT INTO [dbo].[B]
              ( [A_ID]
             , [B_Name]
             , [B_Remark] )
         VALUES
             ( @@IDENTITY              -- 返回最後插入的標識值
             , @B_Name
             , @B_Remark )
     COMMIT TRAN
END TRY
BEGIN CATCH
     ROLLBACK TRAN
          INSERT INTO [dbo].[ErrorLog]
              ( [EL_Procedure]            -- 異常存儲過程名稱
              , [EL_OperateTime] )      -- 報異常時間
          VALUES
              ( 'TEST_PROC'
             , CONVERT(DATETIME,GETDATE(),20) )
END CATCH
註：1. @@IDENTITY的作用是返回最後插入的標識值。
        2. 我在rollback tran中加入一個專門記錄異常的表，以便產於異常發生的時間和確定報異常的存儲過程的名稱。

BEGIN TRAN 說明

在Transact-SQL的交易是使用BEGIN TRAN指令開始，如果交易成功，就使用交付交易COMMIT TRAN指令結束，如下所示：
程式1：commit in Transact-SQL
BEGIN TRAN AA
DELETE FROM Students WHERE sid = 'S001';
COMMIT TRAN AA　【確定執行,無法再rollback】

如果交易失敗，復原是使用ROLLBACK TRAN指令結束，如下所示：
程式2：rollback in Transact-SQL
BEGIN TRAN
DELETE FROM Students WHERE sid = 'S001';
ROLLBACK TRAN AA   【回覆上次動作】


-------------範例如下------------

SELECT         *
FROM             Orders
WHERE         (OrderID = '10248')


begin tran aa
update orders
set ShipAddress=
'KARAAAES' WHERE (OrderID = '10248')
COMMIT TRAN aa


rollback tran aa

數字系統轉換 十進位轉十六進位

參考引用
--

朋友的水蚤+綠水

第2,3批孔雀仔魚

註冊為 allowDefinition ... 的區段發生錯誤

參考
--- 
(Bind)程式所在目錄及其子目錄，所以兩個 web.config檔會產生衝突，產生〔在應用程式層級之外使用註冊為 allowDefinition='MachineToApplication' 的區段發生錯誤〕錯誤訊息。

將 web.config 刪除

第1批仔魚長大了

白子第2胎了,有野生+白子混生

養綠水實驗

綠水培養1-2週,即可完成!

 條件:陽光日晒,早晚攪拌培養的綠水

初期水+料:施肥的花樹肥料(增葉根類)+缸水+魚便

(培養方式很多種,如:尿+自來水 , 自來水+尿素肥料 , 自來水+蘋果螺 , 綠種+花寶4號 ...等)


2012/10/25 到2012/10/30 的圖:

下次時間:2012/11/1

下次時間:2012/11/8

VB6 的字串函數string 在vb.net為哪個函數

參考引用
--
 Dim str As String = New String(Chr(n), nLength)

如果只是要個空間，可以用

Dim str As New StringBuilder(nLength)

到水族館買回來的黃尾禮服1對

真是興奮,終於購買黃尾禮服!!
但,真是納悶;怎買回來是病厭厭呢..完全沒活力....
結果隔離,母的卻跳出桶..公的也不行掛了...唉,真是不該買的;還是顧好自家的全紅白子!!

白子判斷要生產的圖

ARGOX OS-2130D 套印

--

Setting DataGridView Row Height

datagridview.row(i).height = NN
'或
datagridview.row(i).height = datagridview.row(i).height * 2  ' 依原本高度 x 2

此作法,只適用少筆資料;若是大量資料,不宜! 因要使用迴圈來設定高度 

螞蟻的 CSS

螞蟻的 CSS

很多 css 的範例唷

朋友的白子仔魚,1,2,3批+水蚤

微軟 MVC2 線上 MSDN 參考

ASP.NET MVC 2
--

MVC 學習的網址記錄

都是C# 的!

我的Coding之路

demoshop

mrkt 的程式學習筆記

ASP.NET MVC3 安裝失敗問題解決方式

參考引用
--
 ASP.NET MVC3 安裝失敗問題解決方式
安裝 ASP.NET MVC3 時發生錯誤訊息如下:

OS Version = 6.0.6000, Platform 2
OS Description = Vista - x64 Ultimate Edition
CommandLine = i:\temp\ext47334\setup.exe
Using Simultaneous Download and Install mechanism
Operation: Installing
Package Name = Microsoft ASP.NET MVC 3
Package Version = 3.0.20105.0
User Experience Data Collection Policy: AlwaysUploaded
Number of applicable items: 6
Exe (i:\temp\ext47334\VS10-KB2483190-x86.exe) failed with 0x80070643 - 安裝時發生嚴重錯誤。 .
Final Result: Installation failed with error code: (0x80070643), "安裝時發生嚴重錯誤。 " (Elapsed time: 0 00:00:29).

這個問題在於 VS10-KB2483190-x86.exe 這一個檔案有可能已經安裝過了, 尤其當已經是 VS 2010 SP1 安裝.


要修正這個安裝 MVC3 的錯誤, 請用 7zip 或是 zip 的解壓縮程式將已經下載的AspNetMVC3Setup.exe 解壓到一個目錄中, 然後找出目錄底下的 parameterinfo.xml , 修改這一個檔案中的:

                     DownloadSize="18858336"
             HashValue="2CA4541D0AC789977E2B21A7238E400D4ADB2DE089839E9BAE0FED9F8537DA89"
             EstimatedInstallTime="849920"
             InstalledProductSize="12645888"
             Name="VS10-KB2483190-x86.exe"
             UninstallCommandLine="/q /norestart"
             RepairCommandLine="/q /norestart"
             Rollback="true"
             SystemDriveSize="100"
             InstallCommandLine="/q /norestart">
           
               
           
           
               
                   
                       
                           
                               
                           
                           
                               
                           
                       
                       
                           
                       
                   
                   
                       
                   
               
           
           
               
               
               
           
       
       
        將這一個 ... 拿掉後存檔, 這樣就可以執行這個目錄底下的 setup.exe 完成安裝.    

MVC 2, 3 教學

MVC 2, 3 教學
--
MVC 2,3 的教學在打開連結後的最底下

ASP.NET MVC 3 RTM 下載

ASP.NET MVC 3 RTM
ASP.NET MVC 3 RTM Tools Update
 

微軟 ASP.NET MVC 書面的教學課程

微軟:ASP.NET MVC 書面的教學課程

ASP.NET NVC3 教學

ASP.NET MVC 4 下載和MVC4教學

ASP.NET MVC 4 下載安裝 For Vs2010 Sp1

微軟:ASP.NET MVC 4 for Visual Studio 2010 SP1 與 Visual Web Developer 2010 SP1

insert into select

ms-sql 和 access 的寫法是不一樣的!
 參考來源
--
access:
 insert INTO [tablename] Select * FROM [savedquery]

ms-sql :
insert INTO [tablename]  (Select * FROM [savedquery] )

MS-SQL 好的統計方法

引用來源
---
 create table #temp(
    person_id int,
    work_year int
)

insert into #temp(person_id,work_year)
select 2110020 ,4  union
select 2110067 ,5  union
select 2112274 ,6  union
select 2113775 ,7  union
select 2113841 ,8  union
select 2114508 ,9  union
select 2114870 ,10 union
select 2115337 ,11 union
select 2115408 ,7  union
select 2115431 ,5 union
select 2115432 ,6;

select distinct work_year as 工作年限,
    count(work_year) over(partition by work_year) as 工作年限人数,
    count(person_id) over () 总人数,
    cast(
        cast(
            (count(work_year) over(partition by work_year))
            /
            cast((count(person_id) over ()) as decimal(18,2))*100  as int)
        as varchar(50)
    ) + '%' as 占比
from #temp
order by 工作年限

truncate table #temp
drop table #temp


(11 row(s) affected)
工作年限        工作年限人数      总人数         占比
----------- ----------- ----------- ---------------------------------------------------
4           1           11          9%
5           2           11          18%
6           2           11          18%
7           2           11          18%
8           1           11          9%
9           1           11          9%
10          1           11          9%
11          1           11          9%

(8 row(s) affected)

vbnet 同步時間

此範例是和區域內某一台的時間同步的方法:
參考引用:
 
  Dim p As New System.Diagnostics.Process
  Dim pinfo As New System.Diagnostics.ProcessStartInfo
  Dim pout As String
  pinfo.FileName = ("C:\WINDOWS\system32\net.exe")
  pinfo.Arguments = ("time \\computername")
  pinfo.RedirectStandardOutput = True
  pinfo.UseShellExecute = False
  pinfo.CreateNoWindow = True
  p = Diagnostics.Process.Start(pinfo)
  p.WaitForExit()
  pout = p.StandardOutput.ReadLine
  MsgBox(pout)

漫畫小說店品餐計時

漫畫小說店,在e化電子書的衝擊下;近2-3年是越經營越下跌
月收要打平已不容易,很努力經營的店扣除所有開支獲利約3-10萬
有些店頭腦動得快的,均已紛紛加入複合式的經營了!
池龍工作室 http://wushi.myftp.org  Estory 租書軟體了除租書外特別嵌入品餐計時的功能,
來因應目前市場的需求!  底下為加值的功能,預設免費為2個包廂(餐桌);每加1包廂1千元整.
單機版 28,000 網路版(可使用2台,最多4台) 3,8000
歡迎有興趣的,可至本工作室下載試用版! 相關聯絡均在網站內,或電洽!