作者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)