Visual Basic – Pristup SQL Server-u

Za pristup SQL Server-u naravno možete koristiti DAO ili ADO kontrole. Ali većina korisnika preferira pristup preko čistog koda – na ovaj način ne samo da smanjujemo broj potrebnih formi i vezanih kontrola, već je to i mnogo fleksibilniji način. U sledećim redovima daćemo primer načina pristupa preko koda iz Visual Basic-a, samo da napomenemo da će vam za ovo biti potrebna biblioteka „Microsoft ActiveX Data Objects Library“, koju možete potvrditi birajući meni „Project -> References…“.

Private Sub Command1_Click()

Dim objConn As New ADODB.Connection

Dim objRS As New ADODB.Recordset

Dim objErr As ADODB.Error



objConn.Open _

„Driver=SQL Server;Server=ImeServera;Database=NazivBaze;

User ID=KorisnickoIme;Password=Lozinka“

‘Open the SQL Server connection
objConn.CursorLocation = adUseClient
If objConn.State = adStateOpen Then

‘ukoliko je sve u redu konektovaćemo se na server







	objRS.CacheSize = 10
	objRS.Open „Select * from tblRadnik“,

	objConn, adOpenStatic, adLockOptimistic

                   	‘ Otvaramo recordset objekt, birajući sve podatke

	                   ‘ iz tabele tblRadnik

	If Not objRS.EOF And Not objRS.BOF Then

                   	‘ Ukoliko nije End Of File (EOF) ili

                   	‘ Beginning Of File (BOF) -drugim rečima,

	                   ‘ ukoliko imamo neki slog…

	    MsgBox objRS.Fields(„Prezime“)

		‘ Prikaz jednog od polja samo da bi

		‘ prikazali da je sve u redu

	   objRS.Fields(„Prezime“) = 123

	   objRS.Update
	End If
	objRS.Close

	‘ Zatvaranje objekta  recordset
Else

                   ‘ Ukoliko konekcija nije uspostavljena onda…

	For Each objErr In objConn.Errors

		MsgBox objErr.Description

	Next

	‘ Prikaz poruke o greškama

End If
Set objRS = Nothing

objConn.Close

Set objConn = Nothing

End Sub

End Sub

Pratite Krstaricu na www.krstarica.com