Jump to content
Sign in to follow this  
pepe1970

enviar datos a sql server desde excel con vba

Recommended Posts

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
 

 

Share this post


Link to post
Share on other sites

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".

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy