13. september 2011 - 23:57Der er
6 kommentarer og 1 løsning
Slette række i DataGridview
Hej
Med nedenstående kode fylder jeg Datagridview1. Jeg ville imidlertid gerne kunne slette en valgt række OG samtidigt slette data i SQL databasens tabel. Hvordan kan det gøres?
Vh Steen
Public Class FrmHuskeliste
Function BuildCnnStr(ByVal strServer As String, _ ByVal strDatabase As String) As String
Private Sub FrmHuskeliste_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim odData As OleDb.OleDbDataAdapter Dim dtList As DataTable = New DataTable() Dim strSQL As String
'-- Create the SQL String strSQL = "Select * From Huskeliste"
'-- Set up the exception catch Try '-- Create an instance of the data adapter, and then fill the data table odData = New OleDb.OleDbDataAdapter(strSQL, BuildCnnStr("100.46.1.10", "PatientregisteretSQL3;User ID=St;Password=xxx")) odData.Fill(dtList)
DataGridView1.DataSource = dtList
Catch oexpData As OleDb.OleDbException MsgBox(oexpData.Message) End Try dtList = Nothing odData = Nothing
Det er jo nok disse der nulstillede dem: dtList = Nothing odData = Nothing
MEN selvom jeg fjernes dem fungerer det fortsat ikke.
Jeg har bl.a. prøvet dette for at teste MEN den sletter IKKE i databasen :-/:
Dim I As Long For I = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows(I).Selected Then With DataGridView1.Rows(I) ' DataGridView1.Rows(I).Cells.Clear() strSQL = "Delete from Huskeliste where Nr = '4'" odData = New OleDb.OleDbDataAdapter(strSQL, BuildCnnStr("100.46.1.100", "PatientregisteretSQL3;User ID=St;Password=xxx"))
DataGridView1.Rows.Remove(DataGridView1.CurrentRow) odData.Update(dtList) End With
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.