Ayuda con una programacion

[vicentecamesella]

Sres colegas y profesionales todos aver quien me puede orientar en cuanto a un procedimiento me explico:

Tengo un textbox que es programable por el usuario colocar una formula ejemplo

select * from inventario LEFT JOIN movimiento on movimieto.codigo=inventario.codigo

ok hasta hay bien

todo esto escrito en un textbox

debajo de la linea superior

esto

precio = precio*cxund " estos son campos"

y que al darle un boton me ejecute todo esto hay alguna manera supongo que si pero la desconosco

gracias de antemano

[David]

No entendí muy bien. Para ejecutar esa consulta SQL lo primero que necesitas es una conexión con una base de datos y a partir de ahí realizar la consulta, ¿ya tienes una conexión?

[vicentecamesella]

Ok eso fue un ejemplo si ya tengo la conexion osea quiero escribir como un pequeño programa en un text box y luego ejecutar el contenido de ese textbox no se si me explico gracias

[seba123neo]

Hola, algo asi?

Código vb:

Private Sub Command1_Click()
    Dim vDatos() As String
    Dim vSQL As String
    Dim i As Integer
    
    vDatos = Split(Text1.Text, vbNewLine)
    
    For i = 0 To UBound(vDatos)
        vSQL = vSQL & " " & vDatos(i)
    Next i
    
    rs.Open vSQL
End Sub
 

saludos.

[dwin]

bueno, yo estoy usando otra conexion diferente

y seria algo asi

Public Cxn As ADODB.Connection
Public AdoS As ADODB.Recordset
Public CxnFac As String



Function conectar()
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Option=131072;S tmt=;Database=dwin;Uid=root;Pwd=123456;"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
End Function

Private Sub XPButton1_Click()
Dim ex As String

Call conectar 'llamo a la funcion anterior

' aqui en text1.text es la parte donde va la consulta que seria la q ingresaste en text1, se concatena
AdoS.Open "&text1.text &", Cxn, adOpenStatic, adLockOptimistic


End Sub

[vicentecamesella]

Ok excelente me funciono bien gracias.. Ahora bien si me voy mas alla osea quiero colocar que eso me ejecute gustamente algo como esto hay manera...

Private Sub Command1_Click()
Dim vDatos() As String
Dim vSQL As String
Dim i As Integer
vDatos = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(vDatos)
vSQL = vSQL & " " & vDatos(i)
Next i
rs.Open vSQL
End Sub

Gracias