Lucru cu baze de date locale

Concurrency violation: the UpdateCommand affected 0 of the expected 1 records.

Yoda, on 20 aprilie 2013 - 21:25, said:

stupidcow, on 20 aprilie 2013 - 21:45, said:

Edited by Alphasebi, 20 April 2013 - 22:01.

Edited by neagu_laurentiu, 24 April 2013 - 09:20.

nexusm, on 24 aprilie 2013 - 09:16, said:

nexusm, on 24 aprilie 2013 - 09:16, said:

Edited by Alphasebi, 24 April 2013 - 22:45.

Dim connSQL As New SqlConnection(connstrSQL)
connSQL.Open()
Dim cmdSQL As New SqlCommand("DELETE FROM tblEmployees WHERE EmployeeID=" & intSelectedEmployee, connSQL)
cmdSQL.ExecuteNonQuery
connSQL.Close()

Dim daEmployees As New SqlDataAdapter("SELECT * FROM tblEmployees WHERE camp_sex=1", connstrSQL)
Dim dtEmployees As New DataTable, dr As DataRow
daEmployees.Fill(dtEmployees)

For Each dr In dtEmployees.Rows
  'aici faci calculele de care ai nevoie, sau iti creezi o colectie de valori. Numele angajatului de exemplu (presupunand ca numele campului in tabel este EmployeeName) '
  Msgbox(dr!EmployeeName)
Next

Edited by Yoda, 25 April 2013 - 11:00.

	 Dim dtDataTable As DataTable
	 Dim strDetail As String
	 Dim test As Integer
	 test = 0
	 dtDataTable = New DataTable("tblChestionare")
	 For Each row As DataRow In dtDataTable.Rows
		 If row.Item("Profesie") = "Medic" Then
			 test = test + 1
		 End If
		 strDetail = row.Item("Profesie")
	 Next row
	 Label2.Text = test

Edited by Alphasebi, 25 April 2013 - 23:17.

Dim dtDataTable As DataTable
Dim test As Integer=0 ' In felul asta poti sa scrii o singura linie de cod, in loc de doua'
Dim strDetail As String
Dim da As New SqlDataAdapter("SELECT * FROM tblChestionare", connstrSQL) 'ATENTIE: aici presupunem ca ai asignat anterior variabilei connstrSQL stringul de conectare la baza de date'
dtDataTable = New DataTable("tblChestionare")
daEmployees.Fill(dtEmployees) 'Lini asta de cod e foarte importanta, leaga continutul selectat din baza de date cu "SELECT" de datatable'
For Each row As DataRow In dtDataTable.Rows
If row!Profesie.ToString = "Medic" Then 'Am utilizat tostring pentru a evita erorile cauzate de continut NULL in campul respectiv.'
test = test + 1 'poti sa scrii un pic mai ergonomic linia asta: test +=1 '
End If
strDetail = row!Profesie.ToString 'E posibil sa fii dezamagit de ce obtii. Vei avea valoarea campului "profesie" din ultima inregistrare din DataTable. nimic altceva...'
Next row
Label2.Text = test

Edited by Yoda, 26 April 2013 - 09:39.

Yoda, on 26 aprilie 2013 - 09:37, said:

Ai uitat de DataAdapter. E foarte important, el face legatura intre baza de date si datatable.

Ca o comparatie, gandeste-te ca datatable este un cofraj iar baza de date este betoniera. Fara un furtun care sa lege betoniera de cofraj, nu poti sa torni fundatia casei.

Secventa ta de cod cu modificarile de rigoare:

Dim connstrSQL As System.Data.SqlServerCe.SqlCeConnection = New System.Data.SqlServerCe.SqlCeConnection("Data Source=D:\Users\Administrator\My Documents\Visual Studio 2010\Projects\Statistica\Statistica\Chestionare.sdf")
		connstrSQL.Open()
		Dim dtDataTable As DataTable
		Dim test As Integer = 0 ' In felul asta poti sa scrii o singura linie de cod, in loc de doua'
		Dim strDetail As String
		Dim da As New SqlDataAdapter("SELECT * FROM tblChestionare", connstrSQL) 'ATENTIE: aici presupunem ca ai asignat anterior variabilei connstrSQL stringul de conectare la baza de date'
		dtDataTable = New DataTable("tblChestionare")
		Me.TblChestionareTableAdapter.Fill(Me.ChestionareDataSet.tblChestionare) 'Linia asta de cod e foarte importanta, leaga continutul selectat din baza de date cu "SELECT" de datatable'
		For Each row As DataRow In dtDataTable.Rows
			If row!Profesie.ToString = "Medic" Then 'Am utilizat tostring pentru a evita erorile cauzate de continut NULL in campul respectiv.'
				test = test + 1 'poti sa scrii un pic mai ergonomic linia asta: test +=1 '
			End If
			strDetail = row!Profesie.ToString 'E posibil sa fii dezamagit de ce obtii. Vei avea valoarea campului "profesie" din ultima inregistrare din DataTable. nimic altceva...'
		Next row
		Label2.Text = test
		connstrSQL.Close()

Me.TblChestionareTableAdapter.Fill(Me.ChestionareDataSet.tblChestionare) 'Linia asta de cod e foarte importanta, leaga continutul selectat din baza de date cu "SELECT" de datatable'

da.Fill(dtDataTable)

Yoda, on 26 aprilie 2013 - 21:15, said:

Me.TblChestionareTableAdapter.Fill(Me.ChestionareDataSet.tblChestionare)

da.Fill(dtDataTable)

Quote

Edited by neagu_laurentiu, 01 May 2013 - 12:27.