Visual Basic – Pristup SQL Server-u

 –  aลพurirano:  –  

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