保存已在组合框中键入的项目

时间:2013-09-25 07:56:42

标签: vb.net

我正在尝试创建一个可以通过在组合框中键入更改来添加和更新的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

1 个答案:

答案 0 :(得分: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上有超过零行。