Microsoft Visual Basic 2005

[styx]

Evo ja cu da dam neke primere, a vi budite dobri pa dajte svoje.

Evo primera uspostavljanja konekcije sa MS SQL bazom i upisa ili brisanja podataka, za citanje podataka cu postaviti kasnije primer

Dim KonekcioniString as string
Dim Konekcija As New SqlConnection()
Dim Upit As String = " * neki sql upit * "
Dim Komanda As SqlCommand = New SqlCommand(Upit, Konekcija)
Try
Konekcija.ConnectionString = KonekcioniString
Komanda.Connection.Open()
Komanda.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Greška pri pokušaju pristupa bazi!")
End Try
Konekcija.Close()
Konekcija = Nothing
Komanda = Nothing

naravno pre svega ovoga(pre deklaracije klase) treba ukljuciti
Imports System.Data.SqlClient

[styx]

Evo ga primer za citanje i to vise podatak ili samo jednog

---citanje samo jednog podatka

Dim KonekcioniString as string
Dim Upit As String = " neki upit sa select"
Dim rezultat As Object
Dim Konekcija As New SqlConnection()
Konekcija.ConnectionString = KonekcioniString
Dim Komanda As SqlCommand = New SqlCommand(Upit, Konekcija)
Komanda.Connection.Open()
rezultat = Komanda.ExecuteScalar()
Textbox1.Text = rezultat.ToString
Konekcija.Close()
Konekcija = Nothing
Komanda = Nothing

--citanje vise podataka i smestanje u datagridview

KonekcijaX = New SqlConnection(KonekcioniString)
Dim ds As New DataSet
Dim dv As New DataView
Dim ad As New SqlDataAdapter(upit, KonekcijaX)
ad.Fill(ds, "neko proizvoljno ime")
dv.Table = ds.Tables("neko proizvoljno ime")
DataGridView1.DataSource = dv

[Highlander]

Zanimljivo
http://www.sk.co.yu/forum/showthread.php?t=430