Conexion a base de datos

[leliCabello]

qtal amigos, ps quiero que me ayuden en esto de conexion con base de datos sql2005, este es mi codigo, pero no logro conectar, ya que deberia boterme un mensaje si lo haria. Ayudenme pleaseeeeeee

Código [Seleccionar] Expandir


Public cn As ADODB.Connection
_____________________________________________________________

Public Sub Main()
Dim Y As String
Dim X As String
Dim n As String
Dim AdoErr As ADODB.Error
banderatipocambio = False
banderatipocambio2 = False
Set cn = New ADODB.Connection
On Error GoTo TrataError
Y = "servidorticom"
X = "ticom"
n = "sa"
With cn
   .Provider = "SQLOLEDB"
   Beep
   For Each AdoErr In cn.Errors
       MsgBox AdoErr.Description
   Next
   .ConnectionString = "Data Source=" & Y & ";" & _
                           "Initial Catalog=" & X & ";" & _
                           "User Id=" & n & ";" & _
                           "Password="
       .Open
End With
MsgBox "Conexión Conforme a " & Y
TrataError:
mdiPrincipal.Show
'frmNum2Let.Show
End Sub


[e500]

Tienes instalado el SQL Server 2005?
Tienes Creada la Base de Datos SQL?

Saludos

[BlackZeroX]

Te diré una cosa a mi no me gusta para nada estar invocando a cada rato en cada botón y en cada acción la conexión tal cual la realizas en el sub main()

Actualmente ya no trato con vb6 (me pase a .NET por que me lo exigieron y como no es mucha la diferencia...).

Este es un Modulo de Clase tal cual manejo en mis conexiones (Sirve para modo Multi-Hilos que es como lo trabajo)

Código (vbnet) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////

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 = "127.0.0.1"                  '   //  Predeterminado Default
   Private Const PREDBUser As String = "root"                           '   //  Predeterminado Default
   Private Const PREDBPass As String = "root"                           '   //  Predeterminado Default
   Private Const PREDBIni As String = "Integra"                         '   //  Predeterminado

   '   //  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 = 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(ByVal SqlQuery As String, 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 = SqlQuery
               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

End Class




PD.: Se que esta no es la sección de .Net ya. pero e visto muchos códigos de esta manera de hecho donde laboro los programadores hace los mimo (Con alter-ego y código desorganizado (Todo en los formularios y botones... pero bueno)) y bueno viendo que .NET no es mucha la diferencia te puse algo mas o menos igual... solo son equivalencias todo es lo mismo por ejemplo DataSet seri en vb6 el DaraRecord/RecordSet o algo asi era xP...!¡.

Sangriento Infierno Lunar!¡.

[leliCabello]

si e500 tengo todo instalado lo q no entiendo es xq no se conecta <<-----------ayudamee----------------->>

[Angeldj27]

Lo que veo es que no le estas pasando la password..

Intenta con este otro codigo

Código (vb) [Seleccionar] Expandir


'para abrir
Public Sub Open_cn()
On Error GoTo errhandler
    Set cmd = New ADODB.Command
    Set cn = New ADODB.Connection
 
    With cn
        .Provider = "MSDASQL;DRIVER={SQL Server};SERVER=" & strServer & ";trusted_connection=no;user id= " & strUID & ";password=" & strPWD & " ;database=" & strDatabase & ";"
        .Open
       
    End With
    cnOpen = True
   
   
Exit Sub
errhandler:
Call MsgBox("Error.", vbOKOnly, "Error")

strServer = ""


cnOpen = False

End Sub

'Para cerrar
Public Sub Close_cn()
     If cnOpen = True Then
     
         cn.Close
         Set cn = Nothing       
         cnOpen = False
    End If
     
End Sub

[43H4FH44H45H4CH49H56H45H]

si e500 tengo todo instalado lo q no entiendo es xq no se conecta <<-----------ayudamee----------------->>

Podria ser que Sql Server 2005 no esta en:

Código [Seleccionar] Expandir

Mixed Mode (Windows Authentication and SQL Server Authentication)

en ese caso trata de conectar con una "Autenticación de Windows", prueba con este enlace para saber si hiciste todo bien con las referencias.

http://www.elguille.info/vb/bases/ADO/SQLServer2005_Visual_Basic_6.htm

Además instala el Microsoft SQL Server Management Studio Express y prueba desde ahí, para saber si tu usuario y contraseña pueden conectarse sin problemas.