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