7/26/2019 Conexion a vb.net con sql server

1/1

(Visual Basic .Net) Modulo de Conexin Dinmica a SQL ServerEste mdulo nos ermite conectarnos a una !ase de datos alo"ada en #MS S$lServer#.Contiene % &unciones' una ara conectar a la !ase de datos' ara e"ecutarsentencias una $ue cierra la conexion.La &uncin de e"ecucion de sentencias aceta como armetro la sentencia en &ormadestring. *dems cuenta con una so!recar+a $ue ermite enviar el datasetal $ue sevolcarn los datos $ue devuelva dic,a sentencia.01 ImportsSystem.Data.SqlClient

02 Imports

System.Data.SqlClient

03 Module

Conexion

04 FrienddbSQConn !sSqlConne"tion# dbSQComm !sSqlCommand#

dbSQ!dapter !sSqlData!dapter

0

$

%ubli"

Sub

Cone"tarSQ&'ptional

(y)al

Ser*er !s

Strin+

, -&lo"al/SQ

%SS-# 'ptional(y)alD( !sStrin+, -master-

0

dbSQConn , e5SqlConne"tion&-Ser*er,-6 Ser*er 6-7Database,-6

D( 6 -7Inte+rated Se"urity,true-08 9ry

0: dbSQConn.'pen&

0; Cat"

ds!s

DataSet

!sInte+er

1; dbSQComm , e5SqlCommand&Query# dbSQConn

20 dbSQ!dapter , e5

SqlData!dapter&dbSQComm

21 Dimbuild !se5SqlClient.SqlCommand(uilder&dbSQ!dapter

22 dbSQ!dapter.?pdateCommand , build.@et?pdateCommand

23 eturndbSQ!dapter.?pdate&ds

24 ndFun"tion

2$ %ubli"

Sub

Des"one"tarSQ&

2 dbSQConn.Close&

28 ndSub

2: ndModule