Programación General > Visual Basic 6.0 e inferiores

 Conectar A Una Base En Sql 2000

(1/1)

zareth:
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 = "", Optional sPort As String = 3306) As String100   MySQL_ConnectionString = ""       On Error GoTo Err      ' Stop      110   MySQL_ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _      "SERVER=" & sServerName & ";" & _      "UID=" & sUserName & ";" & _      "PWD=" & sPassword & ";" & _      "PORT=" & sPort & ";" & _      "DATABASE=" & sDatabaseName       Exit Function  Err:      MySQL_ConnectionString = False      Debug.Print "ERROR ConnectionString: " & Err.Number & vbNewLine & Err.Description & vbNewLine & "Line: " & ErlEnd 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  :comp:

zareth:
hola a todos  :hola:
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 "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=" & Text1.Text & ";" & _        "Extended Properties=Excel 8.0"            'Importo usando Jet Provider.        strSQL = "SELECT * INTO [ODBC;Driver={SQL Server};" & _        "Server=SERVER;Database=BASE;" & _        "UID=USER01;PWD=USER01].BASEPRUEBA " & _        "FROM [" & Combo1.Text & "]"        cn.Execute strSQL, lngRecsAff, adExecuteNoRecords    MsgBox "Números De Registros Importados : " & 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 :comp:

Navegación

[0] Índice de Mensajes