ADO y vb.net

[Zeroql]

Buenas
bueno la verdad es k no hace mucho me pase a .net, no he tenido problemas con algunos codigos, y estoy muy nuevo en realizar conexiones con ADO.

Sucede lo sig, en 6.0 yo realizaba una funcion para abrir una base de datos solo la conexion, en .net he visto que tengo que agregar una consulta y la conexion, ademas que todos los manuales y ejemplos que he visto me enredas mas....

y aqui va mis inquietudes.

1. tengo el siguiente code:

Código (vbnet) [Seleccionar] Expandir

Dim strCN As String
        If CFG.isLocalServer = True Then
            strCn = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & ";Integrated Security=True;Pooling=True"
        Else
            'Se debe indicar el nombre o ip del server en Data Source
            strCN = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & "; User Id = " & CFG.UserSQL & "; Password = " & CFG.PassSQL
        End If
        Try
            CN = New SqlDataAdapter(Nothing, strCN)
            Return (True)
        Catch exSQL As SqlException
            MsgBox("Error: " & exSQL.Number & vbNewLine & exSQL.Message, MsgBoxStyle.Critical, "Error!")
            Return False
        End Try
    End Function

bueno la cadena esta bien, pero al crear la conexion ¿El

Código (vbnet) [Seleccionar] Expandir

Nothing no generara error?

2. si alguien tiene un code de conexion solo para conectar y no para consultar, por favor divulgenlo aca.

3. y si alguien conoce un manual para principiantes en ado o ilustrativo y lo publique les he de agradecer...
muchas gracias de ante mano

[seba123neo]

Zeroql.

si solo queres conectarte solamente tenes que hacer...

Código (vbnet) [Seleccionar] Expandir

            Dim vConeccion As New SqlConnection(pCadena)
            vConeccion.Open()

pues en la pagina de el guille es la mejor, esta lleno de ejemplos basicos, tiene todo lo que sea ADO.NET

saludos.

[Zeroql]

Viendo este code que me presentas, no veo tanta la diferencia con el ado de 6.0

Muchas gracias por la colaboracion, funciono de maravilla.

me imagino que para hacer la consulta a la tabla es normal

RS as new  sqlCommand("SELECT * FROM ...)
no

y gracias por lo del guille ahi estuve buscando un ratico, vi algo pero pense que era de 6.0.
gracias.

[seba123neo]

claro, si en realidad es parecido, obvio tiene mas propiedades y demas...pero es parecido.

[Zeroql]

Ok muchas gracias por la info

[[D4N93R]]

Zeroql, para ser, digamos, nuevo en .Net, veo que tienes buen orden en tu código y captas muy bien las respuestas que se te dan. Veo un buen usuario Experto en .Net acercándose!

Ah se me olvidaba!, las cadenas de conexión las puedes meter en el Web Config.. a mi me gusta más xD

[Zeroql]

Jejeje graicas D4N93R, me siento alagado, pero debo decir que eso lo parendi al programar en vb 6.0 donde no existe jerarquia y un manejador de errores muy eficiente...
Bueno la web Config no la he manejado aun... xD

Pero buneo, señores necesito otra colaboracion con la siguiente cadena para una conexion a una base de datos access, mmm nose que tengo mal o que carajos sucede con esto: y dice lo siguiente

Código (vb.net) [Seleccionar] Expandir

Public CNAcess As OleDbConnection

'Abrir la base de datos de acceso
Public Function OpenAccess() As Boolean
     Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Data\UsrAcs.mdb" & ";Persist Security Info=True; Password=" & cfg.DBACSPASS
     Try
          CNAcess = New OleDbConnection(strCN)
          CNAcess.Open()
          Return (True)
    Catch exOleDb As OleDbException
          MsgBox("Error: " & exOleDb.ErrorCode & vbNewLine & exOleDb.Message, MsgBoxStyle.Critical, "Error!")
          Return (False)
    End Try
End Function

al intentar correr este modulo me sale el siguiente error:

No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.

y hasta donde yo se  no tengo abierta la base de datos, me pueden decir como soluciono este inconveniente???

[BlackZeroX]

.
Te dejo mi modulo de clase seguro te sirve, lo cree cuando estaba trabajando en una chorrada qué se podía optimizar Exasperada-mente para los qué ya estaban... pero qué hacia un proceso X por qué los demás querían gastarle al HD en lugar de hacerlo por Memoria ya qué el resultado tenia qué ser actualizado!¡. (Ya no lo querían Re-Hacer y ponían Demasiados peros xP espero no seas así!¡.)...


OJO: Esta diseñado para trabajar con Hilos, y esta de forma PRE para MySQL!¡.

CLS_Ado.vb

Código (vbnet) [Seleccionar] Expandir



Option Explicit On

Imports MySql.Data.MySqlClient

Public Class Cls_Ado

   '   //  Constantes de conexión a MySQL por ADO .NET!¡.
   Private Const PreStrConexion As String = "Server=(ip);Database=(db);user id=(u);password=(p);Connect Timeout=30;"
   Private Const PREDBIpServer As String = "localhost"                 '   //  Predeterminado Default
   Private Const PREDBUser As String = "root"                          '   //  Predeterminado Default
   Private Const PREDBPass As String = "PYP" '"argetniPYP123"          '   //  Predeterminado Default
   Private Const PREDBIni As String = "information_schema"             '   //  Predeterminado Default

   '   //  Otros.
   Private StrConexion As String
   Private MySQLConnectionString As String

   '   //  .||.
   Private MyDataAdapter As MySqlDataAdapter
   Private MyCommandBuilder As MySqlCommandBuilder

   '   //  .||.
   Private DBIpServer As String
   Private DBUser As String
   Private DBPass As String
   Private DBIni As String

   Private PrivDataSet As DataSet
   Private PrivSqlQuery As String
   Private PrivTable As String
   Private PrivThisTheardTag As String

   Event ErrorEvent(ByVal Ex As Exception, ByVal Cancel As Boolean)
   Event Finish()

   Public Property StringConection() As String
       Get
           Return StrConexion
       End Get
       Set(ByVal value As String)
           StrConexion = value
       End Set
   End Property

   Public Property This_Theard_Tag() As String
       Get
           Return PrivThisTheardTag
       End Get
       Set(ByVal value As String)
           PrivThisTheardTag = value
       End Set
   End Property

   Public Property ServerIP() As String
       Get
           Return DBIpServer
       End Get
       Set(ByVal value As String)
           DBIpServer = value
       End Set
   End Property

   Public Property ServerDataBase() As String
       Get
           Return DBIni
       End Get
       Set(ByVal value As String)
           DBIni = value
       End Set
   End Property

   Public Property ServerPassword() As String
       Get
           Return DBPass
       End Get
       Set(ByVal value As String)
           DBPass = value
       End Set
   End Property

   Public Property ServerUserName() As String
       Get
           Return DBUser
       End Get
       Set(ByVal value As String)
           DBUser = value
       End Set
   End Property

   Public Function OpenDBMySql(ByVal pServidorIPDNS As String, ByVal pDBuser As String, ByVal pDBPass As String, _
                                ByVal pBDD As String, ByVal SqlQuery As String, ByVal MySQLConnectionString As String) _
   As MySql.Data.MySqlClient.MySqlConnection

       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection

       If StrConexion = Nothing And MySQLConnectionString = Nothing Then
           MySQLConnectionString = PreStrConexion
       Else
           If MySQLConnectionString = Nothing Then
               MySQLConnectionString = StrConexion
           End If
       End If
       If pServidorIPDNS = Nothing And DBIpServer = Nothing Then
           pServidorIPDNS = PREDBIpServer
       Else
           If pServidorIPDNS = Nothing Then
               pServidorIPDNS = DBIpServer
           End If
       End If
       If pDBuser = Nothing And DBUser = Nothing Then
           pDBuser = PREDBUser
       Else
           If pDBuser = Nothing Then
               pDBuser = DBUser
           End If
       End If
       If (pDBPass = Nothing And DBPass = Nothing) Then
           pDBPass = PREDBPass
       Else
           If pDBPass = Nothing Then
               pDBPass = DBPass
           End If
       End If
       If pBDD = Nothing And DBIni = Nothing Then
           pBDD = DBDataBaseIni 'PREDBIni
       Else
           If pBDD = Nothing Then
               pBDD = DBIni
           End If
       End If

       MySQLConnectionString = MySQLConnectionString.Replace("(ip)", pServidorIPDNS). _
                               Replace("(db)", pBDD).Replace("(u)", pDBuser).Replace("(p)", pDBPass)

       If Not MyDataAdapter Is Nothing Then
           MyDataAdapter = Nothing
       End If
       If Not MyCommandBuilder Is Nothing Then
           MyCommandBuilder = Nothing
       End If

       Try
           MyADOConnection = New MySql.Data.MySqlClient.MySqlConnection(MySQLConnectionString)
           MyDataAdapter = New MySqlDataAdapter(SqlQuery, MyADOConnection)
           MyCommandBuilder = New MySqlCommandBuilder(MyDataAdapter)
           Return MyADOConnection
       Catch ex As Exception
           Dim Cancel As Boolean
           RaiseEvent ErrorEvent(ex, Cancel)
           Return Nothing
       End Try

   End Function

   Public Function ExecuteQuery(Optional ByVal SqlQuery As String = "", Optional ByVal Tabla As String = "") As Boolean
       Dim MyComandoMysql As New MySqlCommand
       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       If Not SqlQuery = "" Then
           PrivSqlQuery = SqlQuery
       End If
       If Tabla = "" Then
           PrivTable = Tabla
       End If
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyComandoMysql.Connection = MyADOConnection
               MyComandoMysql.CommandType = CommandType.Text
               MyComandoMysql.CommandText = PrivSqlQuery
               MyComandoMysql.ExecuteNonQuery()
               MyADOConnection.Close()
               RaiseEvent Finish()
               Return True
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               Return False
           End Try
       Else
           RaiseEvent Finish()
           Return False
       End If
   End Function

   Public Function GetDataSet(Optional ByVal SqlQuery As String = "", Optional ByVal Tabla As String = "") As DataSet
       Dim tmpDataSet As New DataSet
       Dim MyComandoMysql As New MySqlCommand
       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       If Not SqlQuery = "" Then
           PrivSqlQuery = SqlQuery
       End If
       If Not Tabla = "" Then
           PrivTable = Tabla
       End If
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyComandoMysql.Connection = MyADOConnection
               MyComandoMysql.CommandType = CommandType.Text
               MyComandoMysql.CommandText = PrivSqlQuery
               MyComandoMysql.ExecuteNonQuery()
               MyDataAdapter.Fill(tmpDataSet, PrivTable)
               MyADOConnection.Close()
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               If Cancel Then
                   RaiseEvent Finish()
                   Return Nothing
               End If
               tmpDataSet = Nothing
           End Try
           PrivDataSet = tmpDataSet
           RaiseEvent Finish()
           Return tmpDataSet
       Else
           RaiseEvent Finish()
           Return Nothing
       End If
   End Function

   Public Property This_DataBase() As DataSet
       Get
           Return PrivDataSet
       End Get
       Set(ByVal value As DataSet)
           PrivDataSet = value
       End Set
   End Property

   Public Property This_SqlQuery() As String
       Get
           Return PrivSqlQuery
       End Get
       Set(ByVal value As String)
           PrivSqlQuery = value
       End Set
   End Property

   Public Property This_Table() As String
       Get
           Return PrivTable
       End Get
       Set(ByVal value As String)
           PrivTable = value
       End Set
   End Property

   Public Function UpdateFromDataSet(Optional ByVal pDataSet As DataSet = Nothing, _
                                     Optional ByVal SQLQuery As String = "", _
                                     Optional ByVal Tabla As String = "") _
   As Boolean

       If Not pDataSet Is Nothing Then
           PrivDataSet = pDataSet
       End If
       If Not SQLQuery = "" Then
           PrivSqlQuery = SQLQuery
       End If
       If Not Tabla = "" Then
           PrivTable = Tabla
       End If

       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyDataAdapter.Update(PrivDataSet, PrivTable)
               MyADOConnection.Close()
               RaiseEvent Finish()
               Return True
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               RaiseEvent Finish()
               Return False
           End Try
       Else
           RaiseEvent Finish()
           Return False
       End If
   End Function

   Public Sub New()

   End Sub

End Class



P.D.: Se puede Optimizar xP

Sangriento Infierno Lunar!¡.

[Zeroql]

Jeje, esta muy interesante tu Clase, la estudiare de cerca.... muchas gracias.