- PR -

VB.NETで構造体の入れ子を行うには

参照元記事 | 同じ記事を参照しているスレッド一覧
«前のページへ 1|2|3
投稿者投稿内容
まゆうめ
会議室デビュー日: 2004/02/09
投稿数: 3
投稿日時: 2004-02-10 19:16
一郎様　返答、有難うございます。手取り、足取りで済みませんが
指導頂けないでしょうか。

書込みのルーチンは以下のような内容で四苦八苦　試しています。

Sub xButton1_Click(x1 as object,x2 as Eventargs)
'++++++++++++++++++++++++++++++++++++++++++++++++++
'+ [送信] ボタン (データーの書込み)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Dim xSQL as String = "Insert Into BBSXPF(ADD) Values ('" & ADD.TEXT & "')"

MyCommand.Parameters.Add(New SqlParameter("ADDE",SqlDbType.NVarChar,1))
MyCommand.Parameters("ADD").Value = ADD.TEXT

Dim xCon as New OleDbConnection(ConfigurationSettings.AppSettings("conStringAccNw"))
Dim xCmd as New OleDbCommand(xSQL, xCon)
Dim xCid as New OleDbCommand ("Select Max(BSNO) From BBSXPF", xCon)
Dim yCounter as Integer

xCon.OPEN()
xCmd.ExecuteNonQuery()
yCounter = xCid.ExecuteScalar() '最大値を取得
xCon.Close()

KeyID.Text = "得意先ID <b>" & yCounter.ToString() & "</b>を追加しました！"
End sub

«前のページへ 1|2|3

スキルアップ／キャリアアップ（JOB@IT）