Hola a todos

Quizas alguien me pueda ayudar necesito crear una clase para poder conectarme a una base de datos sql2005 pero no se como hacerlo y tampoco tengo idea de como llamar la base de datos alguien me puede ayudar por favor

__________________
Claudia Rossmery Chumpitaz Torres

Hola. Mira te paso un ejemplo de una clase que se conecta a un BD de SQLServer 2005 y extrea uno datos. Te explico rapido como funciona:

• 1.- En el construcctor de la clase inicializo mis variables
  2.- Me cree 3 metodos: conectar, desconectar y obtener datos
  3.- Declaro una instancia de mi clase en un formulario
  4.- Enlazo mis controles (TextBox) a mi DataSet y asi se muestran los datos automaticamente

Para enlazar los controles puedes hacerlo de la siguiente manera:
Me.TextBox1.DataBindings.Add("Text", DS.Clientes, "Nombre")

Espero te sirva

Saludos :smt024

Archivos Adjuntos

clasebd.txt (1,6 KB, 34 visitas)

__________________
El que teme sufrir, ya sufre el temor

Hola Claudia aca te paso una clase espero te sirva.

Public Class ClsCNN
Public Function fOpenDataBase(ByRef pObjCon As SqlClient.SqlConnection) As String
Try
Dim lsConDB As String = New String("Data Source=NombreServidor;Initial Catalog=NombreBasedeDatos;User ID=sa;Password=Password")
Dim lwConn As SqlClient.SqlConnection = New SqlConnection(lsConDB)
pObjCon = lwConn
fOpenDataBase = ""
Catch SQLExp As SqlClient.SqlException
fOpenDataBase = SQLExp.Source & " " & SQLExp.Message
End Try
End Function

Public Sub fCloseDataBase(ByVal poCon As SqlClient.SqlConnection)
If poCon.State = ConnectionState.Open Then
poCon.Close()
poCon = Nothing
End If
End Sub
End Class



y podrias usarlo tal y como sigue

private function ListaVehiculos() As String

Dim lsCadErr As String
Dim lsSql As String
Dim lObjCn As New ClsCNN
Dim cnDB As New SqlConnection

lsCadErr = lObjCn.fOpenDataBase(cnDB)
If lsCadErr.Length <> 0 Then
ListaVehiculos= lsCadErr
Exit Function
End If
lsSql = "usp_rpt_Vehiculo_Id_1 '" & mPlaca & "'"
' Cuando haya parametros seria mas conveniete usar en el command type = Text
Dim Cmd As SqlCommand = New SqlCommand(lsSql, cnDB)
Cmd.CommandType = CommandType.Text

__________________
Me gustaria formar parte de su grupo.