Private Sub btnAddNew_Click(ByVal sender As System)。对象,ByVal(作为System.EventArgs)处理SaveBtn。点击"试一试如果不是IsNumeric(txtUnit.Text)则MsgBoxStyle. MsgBoxStyle. MsgBox("输入单元号")关键,"LASAC")退出子ElseIf txtName。Text = "那么MsgBoxStyle. MsgBox("输入名称")关键,"LASAC")退出子
End If
If DataGridView1.SelectedRows.Count = 0 Then
conn.ConnectionString = constring
conn.Open()
sSQL = "INSERT INTO tblBilling(Unit,FullName) VALUES(" & CInt(txtUnit.Text) & ",'" & Replace(txtName.Text, "'", "''") & "')"
cmd = New OleDbCommand(sSQL, conn)
cmd.ExecuteReader()
conn.Close()
MsgBox("Sucessfully added", MsgBoxStyle.Information, "New")
NewBtn.PerformClick()
Else
conn.ConnectionString = constring
conn.Open()
sSQL = "UPDATE tblBilling SET FullName = '" & Replace(txtName.Text, "'", "''") & "', Unit = " & CInt(txtUnit.Text) & " WHERE 'ID = '" & DataGridView1.SelectedRows(0).Cells(0).Value & ""
cmd = New OleDbCommand(sSQL, conn)
cmd.ExecuteReader()
conn.Close()
MsgBox("Successfully Updated", MsgBoxStyle.Information, "Update")
End If
DataGridView1.Rows.Clear()
showmember()
txtName.Enabled = False
txtUnit.Enabled = False
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Save")
'End Try
End Sub
Private Sub NewBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewBtn.Click
txtName.clear()
txtUnit.Clear()
txtUnit.Enabled = True
txtName.Enabled = True
DataGridView1.ClearSelection()
End Sub
Private Sub DeleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBtn.Click
If DataGridView1.SelectedRows.Count <> 0 Then
If MsgBox("You are deleting a confidential data?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Statement Deleting") = MsgBoxResult.Yes Then
conn.ConnectionString = constring
conn.Open()
'MsgBox(DataGridView1.SelectedRows(0).Cells(0).Value)
sSQL = "DELETE FROM tblBilling WHERE ID = " & DataGridView1.SelectedRows(0).Cells(0).Value & ""
cmd = New OleDbCommand(sSQL, conn)
cmd.ExecuteReader()
conn.Close()
'MsgBox("Data successfully delete", MsgBoxStyle.Information, "DELETE")
DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
NewBtn.PerformClick()
'Else
' MsgBox("Delete Canceled")
End If
End If
showmember()
txtName.Enabled = False
txtUnit.Enabled = False
End Sub
您有一个代码来清除所有的行,但没有检索数据库
Else
conn.ConnectionString = constring
conn.Open()
sSQL = "UPDATE tblBilling SET FullName = '" & Replace(txtName.Text, "'", "''") & "', Unit = " & CInt(txtUnit.Text) & " WHERE 'ID = '" & DataGridView1.SelectedRows(0).Cells(0).Value & ""
cmd = New OleDbCommand(sSQL, conn)
cmd.ExecuteReader()
conn.Close()
MsgBox("Successfully Updated", MsgBoxStyle.Information, "Update")
End If
' you have clear all your rows here
DataGridView1.Rows.Clear()
showmember()
txtName.Enabled = False
txtUnit.Enabled = False
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Save")
'End Try