|
分類:[VB.NET/VB2005 以降]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String
Dim da As New OracleDataAdapter
Dim ds As New DataSet
Dim parm As New OracleParameter
Dim item As ComboLeagueItem
Dim item1 As ComboLeagueItem3
item = DirectCast(ComboBox2.SelectedItem, ComboLeagueItem)
item1 = DirectCast(ComboBox1.SelectedItem, ComboLeagueItem3)
parm = cmd.Parameters.Add("pKydid", item.kydid)
parm = cmd.Parameters.Add("ppojsyonid", item1.pojsyonid)
sql = ""
sql = sql & " select kydid, "
sql = sql & " kydnm, "
sql = sql & " from mcskydmst "
cmd.CommandText = sql
da.InsertCommand = cmd
da.Fill(ds, "term")
cmd.Parameters.Clear()
Select Case MessageBox.Show("これでよろしいですか？", "確認画面", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Case DialogResult.No
End Select
End Sub
このコード内に、入力された選手をデータベースに登録したいのですが、どういった文をかけばいいのかわかりません。
指導の程、よろしくお願いします
|
