VB2010でプログラム開発を行っています。
VB2010は初心者で、インターネットを使って調べながら構築していますので、ほとんど意味を理解していない状態です。
この度下記の文を書いたのですが、Point1で「Cmd.Dispose() 」を入れないとPoint2で「OleDbException が発生しました エラーを特定できません」のエラーになってしまいます。
そこで2つの疑問が出てきたので教えていただけないでしょうか。
疑問１：
なぜ、Point1でDisposeしないとエラーになってしまうのか。
疑問2：
Point1でDisposeすると、内容が破棄されると思っていたのですが、そのまま処理が進むようです。
なぜ、再度「Dim Cmd As New OleDbCommand」の宣言が必要無く、トランザクションも続いているのでしょうか。
また、よりスマートな書き方があればご教授いただけるとありがたいです。
よろしくお願いします。
Module Module1
Public Con As New OleDbConnection
Public Cmd As New OleDbCommand
Public bTrans As OleDb.OleDbTransaction
Public sb As New System.Text.StringBuilder()
End Module
Private Sub Btn_Kanryo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Kanryo.Click
Dim ExResult AS Integer
'新規トランザクションの開始。
bTrans = Con.BeginTransaction
'コマンドオブジェクトにトランザクション関連付け
Cmd.Transaction = bTrans
'DB更新１
sb = New System.Text.StringBuilder
sb.AppendLine("UPDATE A ")
sb.AppendLine("SET")
sb.AppendLine(" A_AA = '1'")
sb.AppendLine(" WHERE")
sb.AppendLine(" A_BB='123'")
Cmd.Connection = Con
Cmd.CommandText = sb.ToString
ExResult = Cmd.ExecuteNonQuery()
'ストアドプロシージャ―処理
Cmd.Connection = Con
Cmd.CommandType = CommandType.StoredProcedure
Cmd.CommandText = "AAA.ABC"
Dim outPara As New OleDbParameter("ERR_FLG", OleDbType.Decimal)
outPara.Direction = ParameterDirection.Output
Cmd.Parameters.Add(outPara)
Cmd.ExecuteNonQuery()
Point1⇒ Cmd.Dispose()
'DB更新２
sb = New System.Text.StringBuilder
sb.AppendLine("DELETE ")
sb.AppendLine(" B")
sb.AppendLine(" WHERE ")
sb.AppendLine(" B_AA='1'")
Cmd.Connection = Con
Cmd.CommandText = sb.ToString
Point2⇒ ExResult = Cmd.ExecuteNonQuery()
bTrans.Commit()
End Sub
VBAです。
http://okwave.jp/qa/q1318017.html
を参考に、現在パソコンに入ってるプリンタ名の一覧を取得したいのですが
*****************************************
Sub アクティブプリンターを取得する()
Set Win = CreateObject("Shell.Application")
For Each Obj_Item In Win.Namespace(4).Items
Debug.Print Obj_Item.Name
Next
End Sub
*****************************************
を実行すると、
「Win」と「Obj_Item」が
「変数が定義されていません。」というコンパイルエラーになってします。
なので、
*****************************************
Dim Win, Obj_Item As データ型
*****************************************
で、変数を宣言すればいいと思うのですが、どのデータ型で宣言すればいいのでしょうか？
ご回答よろしくお願いします。
複数のグラフを作成しようと思い、2つのクラスを作りました。
1つ目のクラスで、下のように書き、
public class clsWave
{
public const int count = 1024;
public int[] data = new int[count];
public byte range;
public double[] realValue = new double[count];
public PictureBox pcb;
public Pen myPen;
;
public void Draw(Graphics g, int v)
{
int h = pcb.Height;
int w = pcb.Width;
int stpW = w / count; // X座標
Point[] lp = new Point[count];
for (int i = 0; i < data.Length; i++)
{
lp[i] = new Point(i * stpW, h - (int)(realValue[i] / (v * 8) * h));
}
g.DrawLines(myPen, lp);
}
}
もう一つのクラスで、グラフを下のように作りました。
clsWave BI = new clsWave();
clsWave BV = new clsWave();
clsWave CI = new clsWave();
clsWave CV = new clsWave();
clsWave EI = new clsWave();
clsWave EV = new clsWave();
clsWave SI = new clsWave();
clsWave SV = new clsWave();
この、グラフを配列にしたいのですが、私の力では、まだわかりません。
どのように作ればよいのでしょうか？教えてください。よろしくお願いいたします。
前略
・C#の初心者です。
・タスクバーは下記のプログラムで非表示とすることができますが、同時にタイトルバーも消えてしまいます。タスクバーは非表示で、右端に閉じる・最大化・最小化アイコン（"X"、 "□"、"_"）のないタイトルバーを表示したいのですが、その方法をおしえてください。
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace noTaskbar
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
this.FormBorderStyle = FormBorderStyle.None;//タイトルバー＆タスクバー非表示
this.WindowState = FormWindowState.Maximized;//
}
}
}
以上、よろしくお願いします
前略
・C#の初心者です。
・タスクバーは下記のプログラムで非表示とすることができますが、同時にタイトルバーも消えてしまいます。タスクバーは非表示で、右端に閉じる・最大化・最小化アイコン（"X"、 "□"、"_"）のないタイトルバーを表示したいのですが、その方法をおしえてください。
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace noTaskbar
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
this.FormBorderStyle = FormBorderStyle.None;//タイトルバー＆タスクバー非表示
this.WindowState = FormWindowState.Maximized;//
}
}
}
以上、よろしくお願いします
