-2

コンボボックスに変更を入力して追加および更新できる GUI を作成しようとしています

元。

ID(combobox) 1002
Lastname:(textbox) Esteban
Firstname:(textbox) Aldus

次に、保存をクリックすると、入力したすべてがデータベースに保存されます。

私はvb.netの初心者です

これが私のコードです

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

    dt.Clear()

    sql = "SELECT * FROM tblInfo WHERE stud_id='" & cbSI.Text & "'"
    da = New OleDb.OleDbDataAdapter(sql, con)
    da.Fill(dt)

if dt.rows.count <= 0 Then

    sql = "INSERT INTO tblStud (stud_id, lastname, firstname) VALUES('"& cbSI.Text & "','" & txtLN.Text & "' , '" & txtFN.Text "');"
    da = New OleDb.OleDbDataAdapter(sql, con)
    da.Fill(dt)

    dgList.DataSource = dt

    cbSI.Clear()
    txtLN.Clear()
    txtFN.Clear()
    cbSI.Focus()
End Sub
4

1 に答える 1

1

ifステートメントを次のように変更してみてください

    if dt.rows.count >= 0 Then

    sql = "INSERT INTO tblStud (stud_id, lastname, firstname) VALUES('"& cbSI.Text & "','" & txtLN.Text & "' , '" & txtFN.Text "');"
    da = New OleDb.OleDbDataAdapter(sql, con)
    da.Fill(dt)

    dgList.DataSource = dt

    cbSI.Clear()
    txtLN.Clear()
    txtFN.Clear()
    cbSI.Focus()

したがって、おそらく dt には 0 行以上あるでしょう。

于 2013-09-27T12:41:11.463 に答える