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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.