邏輯生活: 12月 2012

2012年12月31日星期一

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 更改欄位名稱

引用來源
--
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))

2012年12月26日星期三

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

2012年12月25日星期二

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
---
好多免費的工具唷!

2012年12月24日星期一

skype 如何加 msn 帳號

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

2012年12月22日星期六

SQL WAITFOR TIME / WAITFOR DELAY

MSDN:WAITFOR (Transact-SQL)

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

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

2012年12月21日星期五

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

參考部分引用:
--

新上市櫃股蜜月期無限漲跌幅有幾天?
證交所規定, 新股上市上櫃五日內沒有漲跌幅限制,
所以, 前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 指令碼檔

請參考來源
--

2012年12月19日星期三

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 免安裝版

2012年12月18日星期二

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

2012年12月16日星期日

孔雀魚的養殖密技

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

2012年12月14日星期五

孔雀魚的剪尾治療方法

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

2012年12月13日星期四

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

2012年12月12日星期三

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

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

請參考來源
--

2012年12月11日星期二

2012年12月10日星期一

使用開源免費類庫在.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

2012年12月9日星期日

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()

2012年12月8日星期六

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 如何設定中一刀報表
--

2012年12月6日星期四

貸款分期試算

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

2012年12月5日星期三

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;
放在頁腳;

2012年12月4日星期二

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" 了...

2012年12月3日星期一

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!

訂閱：文章 (Atom)

2012年12月31日 星期一

2012年12月26日 星期三

2012年12月25日 星期二

2012年12月24日 星期一

2012年12月22日 星期六

2012年12月21日 星期五

2012年12月19日 星期三

2012年12月18日 星期二

2012年12月16日 星期日

2012年12月14日 星期五

2012年12月13日 星期四

2012年12月12日 星期三

2012年12月11日 星期二

2012年12月10日 星期一

2012年12月9日 星期日

2012年12月8日 星期六

2012年12月6日 星期四

2012年12月5日 星期三

2012年12月4日 星期二

2012年12月3日 星期一

熱門文章

2012年12月31日星期一

2012年12月26日星期三

2012年12月25日星期二

2012年12月24日星期一

2012年12月22日星期六

2012年12月21日星期五

2012年12月19日星期三

2012年12月18日星期二

2012年12月16日星期日

2012年12月14日星期五

2012年12月13日星期四

2012年12月12日星期三

2012年12月11日星期二

2012年12月10日星期一

2012年12月9日星期日

2012年12月8日星期六

2012年12月6日星期四

2012年12月5日星期三

2012年12月4日星期二

2012年12月3日星期一