epelpad

Codigo Fuente para conectar base de datos de VS.NET a SQL

HOLA AMIGOS T! ESTE POST VA DIRIGIDO A LOS QUE SE ESTAN INICIANDO A LA PROGRAMACION EN VISUAL STUDIO .NET SEA 2003 2005 o 2008 o mas..con base de datos SQL OJO TODO ES MIO NADA DE COPIA Y PEGA POR AI ASIKE DE ANTE MANO.. LES AVISO JEJEJE


aki les muestro un codigo fuente! de como konectar una base de datos sql 2000 2005 ,etc.


primero 1
crear una clase con cualquier nombre (ejemplo.vb) en mi caso yo lo tengo con ClsConeccion.vb

luego copia y pega este codigo fuente dentro de la klase:
/////////////////////////////////////////////////////////////////////////////////////////////////

Imports System.Data.SqlClient
Public Class ClsConeccion
Dim cnDB As SqlClient.SqlConnection
Dim dvDB As DataView
Dim cmDB As SqlClient.SqlCommand
Dim daDB As SqlClient.SqlDataAdapter
Dim dsDB As DataSet
Sub conectar(ByVal CadConectarSql As String)
cnDB = New SqlClient.SqlConnection
cnDB.ConnectionString = CadConectarSql
Try
cnDB.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub desconectar()
cnDB.Close()
End Sub
Function DevCursor(ByVal CadConsultaSql As String) As DataTable
Dim dtDB As DataTable
cmDB = New SqlClient.SqlCommand(CadConsultaSql, cnDB)
daDB = New SqlClient.SqlDataAdapter(cmDB)
dsDB = New DataSet
daDB.Fill(dsDB, "Cursor"
dtDB = dsDB.Tables("Cursor"
DevCursor = dtDB
End Function
Function conSelect(ByVal cadConsul As String) As DataTable
Dim dtTabla As New DataTable
Try
cmDB = New SqlClient.SqlCommand(cadConsul, cnDB)
daDB = New SqlClient.SqlDataAdapter(cmDB)
dtTabla = New DataTable()
daDB.Fill(dtTabla)

Catch
' // MessageBox.Show(ex.Message);
End Try
Return dtTabla
End Function
Function ConsultaRes(ByVal CadConsulta As String) As Object
cmDB = New SqlClient.SqlCommand(CadConsulta, cnDB)
Dim Aux As New Object
Aux = cmDB.ExecuteScalar()
If (Aux <> "" Then
Return (Aux)
Else
Return (""
End If
End Function
Function Archivo(ByVal Cadena As String) As String
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText(Cadena)
Archivo = fileContents
End Function
End Class

/////////////////////////////////////////////////////////////////////////////////////////////////

AHORA K NO SEPAS KOMO KREAR UNA CLASE. WA... BUSCA EN GOOGLE

se supone que hasta aqui ya tienes instalado el SQL en cualquier version y el VS.NET en cualquier version.

/////////////////////////////////////////////////////////////////////////////////////////////////
segundo 2

dentro del load o formulario principal k estas usando copia y pega esto
CadConsultaSQL = coneccion.Archivo(Path.GetFullPath("CadConeccion.txt" ))
ejemplo:
Private Sub frmprincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CadConsultaSQL = coneccion.Archivo(Path.GetFullPath("CadConeccion.txt" ))
End Sub


/////////////////////////////////////////////////////////////////////////////////////////////////
tercero 3

dentro dela ruta donde esta guardado tu proyecto haras esto:

CREARAS UN BLOOK DE NOTAS CON EL NOMBRE DE :
CadConeccion.txt

y dentro de ella copia y pega este kodigo..
Data Source="AKI NOMBRE DE TU SERVIDOR SQL"; Initial Catalog="AKI NOMBRE DE TU BASE DE DATOS" ;Integrated Security=True
ojo sin comillas eh no se webeen

luego lo guardas donde sta guardado tu proyecto komo dije anteriormente...
ejemplo

C: Documents and Settings TARINGA Mis documentos Visual Studio 2008 Projects TARINGA TARINGA_PROGRAMMING CadConeccion.txt

BIEN PASO A EXPLICAR EN EL PASO 1 ES LA KREACION DE LA KLASE PARA KONECTAR A LA BASE DE DATOS
EN EL PASO DOS EL CODIGO KE HACE UNA LLAMADA AL TXT QUE ESTA EN EL PASO 3
EN EL PASO 3 ESTA LOS DATOS DEL SERVIDOR AL KE SE VA A KONECTAR ... PORKE LO HAGO ASI ? PK NO ? KOMO OTROS ENSEÑAN PUES MAS FACIL DE MANIPULAR DATOS.. ya ke es un txt .. y secreto mio..

BIEN KON ESO IA STAS HACIENDO UNA KONECCION DE VS.NET A BD SQL AHORA EL RESTO KEDA UDS PROGRAMAR cualkier konsulta para usar guardar, editar, borrar, nuevo. avisen nomas pero eso sii solo pido k agradescas el esfuerzo si kieren les envio kualkier programex... solo manden un PVT con sus emilios hablamos

COMO SIEMPRE DIGO... EL TRABAJO DEL INFORMÁTICO ES SOLAMENTE VALORADO POR OTRO INFORMATICO

9 comentarios - Codigo Fuente para conectar base de datos de VS.NET a SQL

mash14
muy buena info de casualidad tienes un blog para consultar mas ejemplos
ipknot1
Probare este tuto espero me sea de ayuda tengo que entregar un trabajo para este sabado,
ademas te tengo una pequeña consulta.
tengo visual studio 2006 y estamos trabajando con wampserver no se si lo cnoces pero con este programa creamos la base de datos este tuto me servira? espero que si
y de antemano te agradezco tu ayud y aporte gracias.......
dinito2
muy bueno la info, pero de casualidad no tendras un ejemplo ya hecho en vb 2008, bueno, me refiereo q que subas la aplicacion ya echa y no solo postees el codigo. porfa, creo que es mas entendible de esa manera
inachoph
gracias!!! muy buena informacion!!!
KuayoFC
Muy buena informacion, me estoy iniciando en la programacion, me gustaria que sigas con un tutorial para realizar los ABM

Un saludo desde asuncion
HORACIO1234
me dice: Se esperaba una declaración.
Cuando paso por: mibd.load
y cuando paso por:
CadConsultaSQL = coneccion.Archivo(Path.GetFullPath(&quot;CadConeccion.txt&quot; ))

Help.
asgarindo
hola yo ya hice los tres pasos, pero en el el paso 2 me dice que no se han declarado las variables: CadConsultaSQL, coneccion y Path
Jharni_Neyra +2
&quot;COMO SIEMPRE DIGO... EL TRABAJO DEL INFORMÁTICO ES SOLAMENTE VALORADO POR OTRO INFORMÁTICO&quot;

Buena info.. Se agradece el esfuerzo que realizas Saludos