Autor Tema: Conectar A Una Base En Sql 2000 (Leído 1114 veces)

zareth · « **en:** Lunes 25 de Julio de 2005, 19:45 »

hola gente

ke tal de nuevo por aki (con nuevo id, antes era desarrollo pero lo utiliza una companera) despues de unas largas vacaciones volviendo a la chamba con una pekena duda.

Tengo ke subir datos de una hoja de excel a una base que esta en un server de SQL2000 de tal manera que importe los datos y llene una tabla determinada, buske y encontre este codigo:

Código: Text

Function MySQL_ConnectionString(sServerName As String, sUserName As String, sPassword As String, Optional sDatabaseName As String = &#34;&#34;, Optional sPort As String = 3306) As String
100   MySQL_ConnectionString = &#34;&#34;
 
      On Error GoTo Err
      ' Stop
      
110   MySQL_ConnectionString = &#34;DRIVER={MySQL ODBC 3.51 Driver};&#34; & _
      &#34;SERVER=&#34; & sServerName & &#34;;&#34; & _
      &#34;UID=&#34; & sUserName & &#34;;&#34; & _
      &#34;PWD=&#34; & sPassword & &#34;;&#34; & _
      &#34;PORT=&#34; & sPort & &#34;;&#34; & _
      &#34;DATABASE=&#34; & sDatabaseName
 
      Exit Function
  
Err:
      MySQL_ConnectionString = False
      Debug.Print &#34;ERROR ConnectionString: &#34; & Err.Number & vbNewLine & Err.Description & vbNewLine & &#34;Line: &#34; & Erl
End Function
 

exactamente ke deberia tener la linea donde dice 110, porke asi como esta no se conecta o es diferente por ser sql2000??? por cierto el puerto como valor por default tiene 3306 eso tambien influye??? alguna idea o sugerencia de como deberia levantar mis datos de excel a sql2000, a la espera de sus comentarios, saludos

z4r3th

zareth

hola a todos

esto es lo ke hice CON RESPECTO A cargar una base de datos en excel a sql

Código: Text

 
Dim cn As adodb.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    
    Set cn = New adodb.Connection
    DoEvents
    
    cn.Open &#34;Provider=Microsoft.Jet.OLEDB.4.0;&#34; & _
        &#34;Data Source=&#34; & Text1.Text & &#34;;&#34; & _
        &#34;Extended Properties=Excel 8.0&#34;
        
    'Importo usando Jet Provider.
        strSQL = &#34;SELECT * INTO [ODBC;Driver={SQL Server};&#34; & _
        &#34;Server=SERVER;Database=BASE;&#34; & _
        &#34;UID=USER01;PWD=USER01].BASEPRUEBA &#34; & _
        &#34;FROM [&#34; & Combo1.Text & &#34;]&#34;
    
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    MsgBox &#34;Números De Registros Importados : &#34; & lngRecsAff
    
    cn.Close
    Set cn = Nothing
 
 

el unico incoveniente es ke me crea siempre la tabla y no la actualiza como debe, alguna sugerencia..

z4r3th

SoloCodigo

Autor Tema: Conectar A Una Base En Sql 2000 (Leído 1114 veces)

zareth

Conectar A Una Base En Sql 2000

zareth

Re: Conectar A Una Base En Sql 2000