Importantisimo visual basic [Usar variable en consulta SQL]

[kevinmg]

Hola que tal disculpen la molestia pero de casualidad alguno de ustedes me podria ayudar en un error que tengo y no e podido solucionar. este es mi codigo para insertar registros en una tabla pero el problemas es que en lugar de escribir el nombre de la tabla lo quiero hacer con una "variable" creo que si se puede hacer pero no lo e encontrado si alguno de ustedes me podria ayudar se los agradeseria mucho, y de antemano gracias. :D


Dim var As String
var = Text1.Text


cmmm.ActiveConnection = cnn
cmmm.CommandType = adCmdText
cmmm.CommandText = "INSERT INTO var " & _
"(Gastopor, Montopor, Fechadelgasto, Motivodelgasto) " & _
"VALUES ('" & _
Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "')"
cmmm.Execute

[Sashenka19]

prueba asi:

Código PHP:

  variable = Text1.Text 
cmmm.ActiveConnection = cnn 
cmmm.CommandType = adCmdText 
cmmm.CommandText = "INSERT INTO " & variable &  " & _ 
"(Gastopor, Montopor, Fechadelgasto, Motivodelgasto) " & _ 
"VALUES ('" & _ 
Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "')" 
cmmm.Execute  
   

si no funciona ponle a variable de esta forma:

Código PHP:

  variable = Chr(39) & variable & Chr(39)  
   

Saludos.

[vicentecamesella]

Dim var As String
var = Text1.Text


cmmm.ActiveConnection = cnn
cmmm.CommandType = adCmdText
cmmm.CommandText = "INSERT INTO " & var & _
" (Gastopor, Montopor, Fechadelgasto, Motivodelgasto) " & _
"VALUES ('" & _
Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "')"
cmmm.Execute