作者Peruheru (還在想)
看板Visual_Basic
標題Re: [.NET] 請問在2008該怎麼寫才出的來？
時間Sun May 31 19:40:08 2009
※ 引述《wasimingming (銘銘)》之銘言：
: vb6的時候
: FontSize = 12
: Print #1, "Max=";
: For j = 1 To crop
: For i = 1 To farm
: If i = farm And j = crop Then
: Print #1, P(j) & "*" & "x" & i & j;
: Else
: Print #1, P(j) & "*" & "x" & i & j & "+";
: End If
: Next i
: Next j
: Print #1, ";"
: Print #1, ""
: ---
: 可以直接在記事本print出(前端已經有輸入i和j的值)
: Max=1000*x11+1000*x21+1000*x31+750*x12+750*x22+750*x32
: +250*x13+250*x23+250*x33;
: ---
: 可是我現在用.net 2008 我就不知道要怎樣才能輸出上面那個值，
: 請問有版友可以幫幫我嗎？
: 程式前面寫完了，卻卡在輸出不會啊...
: 拜託各位了呀...
Dim OutputString as String ' <<你的輸出內容放進這裡面
.... '運算過程
...
..
Dim FileName as String = [你的檔案名稱] <<這沒什麼，就是excel檔名而已
Dim connStr as String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & _
";Extended Properties=Excel 8.0;" <<這是連線字串，將Excel當DB需要的字串
Dim OleConn As System.Data.OleDb.OleDbConnection <<這是連線物件
Dim OleComm As System.Data.OleDb.OleDbCommand <<這是指令物件
Dim ds As System.Data.DataSet
^^ ^^^^^^^ 這是資料集物件，但是我剛發現根本沒用到XD
Dim sb As System.Text.StringBuilder
^^ 這是建造指令的物件，功用其實跟String物件幾乎相同，只是效率較好
OleConn = New System.Data.OleDbConnection(connStr) <<製作物件並傳入連線字串
OleComm = New System.Data.OleDbCommand() <<製作指令物件
ds = New System.Data.DataSet() <<沒用的東西XD
OleComm.Connection = OleConn <<指定指令物件需要的連線物件
sb = New System.Text.StringBuilder() <<建造指令字串物件
sb.Append("CREATE TABLE Output ( {0} varchar )" , "輸出內容")
^^^^^^^^^^^^^^^^^ SQL語法，建造一張表，對你來說不重要XD
OleComm.CommandText = sb.ToString() <<設定指令物件的指令內容
OleConn.Open() <<開啟連接，準備執行指令
OleComm.ExecuteNonQuery() <<執行指令
OleConn.Close() <<關閉連接
sb.Remove(0, sb.Length) <<清除指令字串內容
sb.Append("INSERT INTO Output ( 輸出內容 ) values ( '")
^^^^^^^^^^^^^^^^^ SQL語法，插入一筆記錄到剛剛的表內
sb.Append( OutputString.ToString() ) <<這筆記錄的值
sb.Append("' )") <<語法需要得右括弧
OleComm.CommandText = sb.ToString() <<將指令內容傳給指令物件準備執行指令
OleConn.Open() <<開啟連線
OleComm.ExecuteNonQuery() <<執行指令
OleConn.Close() <<關閉連線
OK，因為你說可以用Excel
所以我就擅自幫你加上一堆用牛刀殺雞的程式碼了 XD
(其實我也沒直接使用Excel元件成功過，我只會這101招)
請笑納XD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.160.164.205
※ 編輯: Peruheru 來自: 118.160.164.205 (05/31 19:42)
1F：推 wasimingming:謝謝你，但是我看不懂呀... = =" 05/31 20:18
※ 編輯: Peruheru 來自: 118.160.164.205 (05/31 20:36)