enviar datos a sql server desde excel con vba

[pepe1970]

hola tengo una conexión a un servidor sql server y una planilla en excel con un formulario VBA, en el cual tengo textbox y combobox en total unos 20 mas o menos pero al momento de enviar la data cargada al servidor sql server, me da un error como si tuviera mas columnas para insertar que las declaradas, revise todo y para mi poco entender esta todo ok. si reduzco la cantidad de datos a enviar los inserta sin problemas en el servidor sql server es decir 10 datos uno por columna. pero si agrego aunque sea un dato mas (una columna mas me da error).

 les copio el scrip

muchas gracias

Private Sub CommandButton1_Click()

Dim SQL As String
    Dim Connected As Boolean
 
    
    SQL = "insert into recepcion (Fecha_recep,Rto_nro,Cliente,Ciudad,Zona,kilos_real,Cajas_total,Estado,Direccion) values('" & (TextBox9) & "'," & TextBox10 & ",'" & TextBox35 & "','" & TextBox3 & "','" & TextBox5 & "'," & TextBox13 & "," & TextBox29 & ",'" & ComboBox5 & "','" & TextBox1 & "');"

 
    
    Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")
 
    If Connected Then
        
        Call Query(SQL)
        Call Disconnect
    Else
        
        MsgBox "Could Not Connect!"
    End If
   
    'Limpiar cajas de texto
    UserForm2.TextBox9.Value = ""
    UserForm2.TextBox10.Value = ""
    UserForm2.TextBox35.Value = ""
    
    UserForm2.TextBox1.Value = ""
    UserForm2.TextBox3.Value = ""
    UserForm2.TextBox2.Value = ""
    UserForm2.TextBox4.Value = ""
    UserForm2.TextBox5.Value = ""
    UserForm2.TextBox6.Value = ""
    UserForm2.TextBox7.Value = ""
    UserForm2.TextBox8.Value = ""
    UserForm2.TextBox9.Value = ""
    UserForm2.TextBox11.Value = ""
    UserForm2.TextBox12.Value = ""
    UserForm2.TextBox13.Value = ""
    UserForm2.TextBox33.Value = ""
    UserForm2.TextBox34.Value = ""
    UserForm2.ComboBox3.Value = ""
    
    
    UserForm2.ComboBox4.Value = ""
    
    UserForm2.TextBox19.Value = ""
    UserForm2.TextBox20.Value = ""
    UserForm2.TextBox21.Value = ""
    UserForm2.TextBox22.Value = ""
    UserForm2.TextBox23.Value = ""
    UserForm2.TextBox24.Value = ""
    UserForm2.TextBox25.Value = ""
    UserForm2.TextBox26.Value = ""
    UserForm2.TextBox27.Value = ""
    UserForm2.TextBox51.Value = ""
    UserForm2.TextBox38.Value = ""
    UserForm2.TextBox37.Value = ""
    UserForm2.TextBox36.Value = ""
    
    
    
    
        
    
   
   
   
   
End Sub
 

 

[Abraham Valencia]

Hola

No se te entiende bien ¿la macro que pones da algún error o no? Ahí usas nueve campos ¿la tabla cuántos campos tiene? En estricto ¿cuándo da error? Por cierto, no olvides enseñar tu macro llamada "Query".

[pepe1970]

con nueve campos funciona bien, con 10 me da error. si a la tabla la dejo en 9 funciona perfecto. el error es 

there are fewer columns in the insert statement than values specified in the values clause. the number of values in the values clause must match the number of columna specified in the insert staments

y esta es la funcion Query

muchas gracias

 

 

Function Query(SQL As String)
 
    Dim RS As ADODB.Recordset
    Dim Field As ADODB.Field
 
    Dim Col As Long
 
    
    Set RS = New ADODB.Recordset
    RS.Open SQL, CN
    RS.Open "SELECT * FROM recepcion", CN
 
    If RS.State Then
        Col = 1
        
        For Each Field In RS.Fields
            Cells(1, Col) = Field.Name
            Col = Col + 1
        Next Field
        
        Cells(2, 1).CopyFromRecordset RS
        Set RS = Nothing
    End If
End Function

 

[Antoni]

SQL = "insert into recepcion (Fecha_recep,Rto_nro,Cliente,Ciudad,Zona,kilos_real,Cajas_total,Estado,Direccion,otracolumna) values('" & (TextBox9) & "'," & TextBox10 & ",'" & TextBox35 & "','" & TextBox3 & "','" & TextBox5 & "'," & TextBox13 & "," & TextBox29 & ",'" & ComboBox5 & "','" & TextBox1 & "," & otrotextbox & "');" y así sucesivamente.

Recuerda que los valores de las columnas definidas como texto en la BD deben ir encerrados entre comillas simples, por ejemplo para insertar PEPE debes poner 'PEPE' en la sentencia SQL.

[pepe1970]

'" & TextBox35 & "' de esta forma esta bien o deberia ir solo con comillas simples?

[pepe1970]

existe algo mal en las macros?

[Abraham Valencia]

Estimado, sigues sin enviar la cadena SQL del error. Igual si ves bien lo que envía Antoni, en el Insert Into, la cantidad de campos debes ser igual a los valores (Values) enviados, el mensaje de error que mencionas pues da a entender que no estás colocando la misma cantidad, es decir, posiblemente cambias a 10 los campos, pero dejas 9 valores solamente.

[Antoni]

Hace 39 minutos , avalencia dijo:

Estimado, sigues sin enviar la cadena SQL del error. Igual si ves bien lo que envía Antoni, en el Insert Into, la cantidad de campos debes ser igual a los valores (Values) enviados, el mensaje de error que mencionas pues da a entender que no estás colocando la misma cantidad, es decir, posiblemente cambias a 10 los campos, pero dejas 9 valores solamente.

Y además, por lo que se deduce del nombre de las variables, no tiene en cuenta el tipo de dato de la definición de la columna en la tabla de la BD.

[pepe1970]

muchas gracias reviso el scrip y les informo como me fue

[nickmartinez]

En 30/9/2019 at 11:29 , pepe1970 dijo:

con nueve campos funciona bien, con 10 me da error. si a la tabla la dejo en 9 funciona perfecto. el error es 

there are fewer columns in the insert statement than values specified in the values clause. the number of values in the values clause must match the number of columna specified in the insert staments

y esta es la funcion Query

muchas gracias

 

 

Function Query(SQL As String)
 
    Dim RS As ADODB.Recordset
    Dim Field As ADODB.Field
 
    Dim Col As Long
 
    
    Set RS = New ADODB.Recordset
    RS.Open SQL, CN
    RS.Open "SELECT * FROM recepcion", CN
 
    If RS.State Then
        Col = 1
        
        For Each Field In RS.Fields
            Cells(1, Col) = Field.Name
            Col = Col + 1
        Next Field
        
        Cells(2, 1).CopyFromRecordset RS
        Set RS = Nothing
    End If
End Function

 

Hola saludos puedes decir porfavor cual fue la cadena de conexion que utilizaste para conectarte desde excel con sqlserver?saludos