Visual Basic - De excel a Postgres

Life is soft - evento anual de software empresarial
   
Vista:

De excel a Postgres

Publicado por Camilo Otálora cotalora30@hotmail.com (1 intervención) el 23/11/2015 22:50:03
Buenas Tardes

tengo el siguiente código para cargar registros a una tabla en postgres, el problema es que el INSERT INTO sólo me carga valores, y necesito tambien cargar cadena de texto. Por favor su ayuda no se que está mal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Excel_Postgres()
 
     Dim MiRecordset As ADODB.Recordset
     Dim TXT As String
     Dim CamposEXCEL As String
 
 
 
     'PARTE 01: Inserción de los datos a la tabla
     For i = 1 To 25
        'Punto = "SRID=4326;POINT(" & Range("B" & i + 1).Value & " " & Range("B" & i + 1).Value & ")"
        TXT = "INSERT INTO " & Chr(34) & "historico_camilo" & Chr(34) & " VALUES (" & Range("AB" & i + 1).Value & ")"
 
        Set MiRecordset = ConexionBaseDatos("SERVIDOR", "5432", "BASE", "USUARIO", "CLAVE", TXT) '(****) ver descripción de esta Función"
        MiRecordset.Open
     Next
End Sub
 
 
Function ConexionBaseDatos(servidor As String, port As String, BD As String, usuario As String, clave As String, ByVal txtSQL As String) As ADODB.Recordset
 
    Dim cn As ADODB.Connection
    Dim MiRecordset As New ADODB.Recordset
    Dim TXT As String
 
    Set cn = New ADODB.Connection
 
    TXT = "Driver={PostgreSQL ODBC Driver(ANSI)};Server=" & "SERVIDOR" & ";Port=" & "5432" & ";Database=" & "BASE" & ";Uid=" & "USUARIO" & ";Pwd=" & "CLAVE" & ";"
 
    cn.ConnectionString = TXT '
    cn.Open (TXT)
 
    Set MiRecordset = New ADODB.Recordset
    MiRecordset.CursorType = adOpenStatic
    MiRecordset.CursorLocation = adUseClient
    MiRecordset.LockType = adLockOptimistic
 
    MiRecordset.Source = txtSQL
    MiRecordset.ActiveConnection = cn
 
    Set ConexionBaseDatos = MiRecordset
 
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder