izmenjeno 1 put, poslednji put borcha 11.07.2007. u 00:35
Izmene poruke
- borcha11.07.2007. u 00:35zapis iz teksta poruke
Interesuje me kako da iskristim DataSet u cilju prikazivanja jednog reda u Bazi (SQL Server) a ne citave tabele. Evo koda sa kojim pokusavam to i da ucinim!!
Znaci zelim da izdvojim samo jedan red na osnovu zadatih kriterijuma!
Nadam se da ce biti jasno po kodu sta zelim da kazem!
Gde gresim?
Hvala
Code:
Dim con As New SqlClient.SqlConnection(strCon)
con.Open()
Try
'
Dim da As SqlClient.SqlDataAdapter
Dim ds As New DataSet
Dim cmd As New SqlClient.SqlCommand
Dim strIdUce As String
strIdUce = "SELECT ID_Ucenik " & _
"FROM tPodUce" & _
" WHERE ID_Skola=" & frmDialog.lblIDSkole.Text & " AND ID_Ucenik=" & frmUnoUce.cboSifUce.Text
da = New SqlClient.SqlDataAdapter(strIdUce, con)
da.Fill(ds, "tPodUce")
frmUnoUce.txtIme.Text = ds.Tables("tPodUce").rows("Ime").ToString
da.Dispose()
ds.Dispose()
con.Close()
Catch ex As Exception
MessageBox.Show("Greska!")
End Try
Dim con As New SqlClient.SqlConnection(strCon)
con.Open()
Try
'
Dim da As SqlClient.SqlDataAdapter
Dim ds As New DataSet
Dim cmd As New SqlClient.SqlCommand
Dim strIdUce As String
strIdUce = "SELECT ID_Ucenik " & _
"FROM tPodUce" & _
" WHERE ID_Skola=" & frmDialog.lblIDSkole.Text & " AND ID_Ucenik=" & frmUnoUce.cboSifUce.Text
da = New SqlClient.SqlDataAdapter(strIdUce, con)
da.Fill(ds, "tPodUce")
frmUnoUce.txtIme.Text = ds.Tables("tPodUce").rows("Ime").ToString
da.Dispose()
ds.Dispose()
con.Close()
Catch ex As Exception
MessageBox.Show("Greska!")
End Try
Znaci zelim da izdvojim samo jedan red na osnovu zadatih kriterijuma!
Nadam se da ce biti jasno po kodu sta zelim da kazem!
Gde gresim?
Hvala