En un programa de ejemplo de terminal que estoy haciendo para aprender ya he logrado ingresar valores e imprimir, pero como se hace para
Luego mediante un lazo while mantengo en ejecución el programa mientras no ponga la sentencia "exit" que puede ser cualquier texto definido previamente.
Ahora bien INPUT no funciona (por lo menos con lo que intento hacer) con cadenas de texto en la que existan espacios ya que toma la primera palabra como una orden y las siguientes como opciones de esta.
Así que... ¿Como se hace para ingresar una sentencia SQL por ejemplo? en la que, como saben hay espacios.
Aquí el ejemplo de momento
' gambas module file
Public Sub Main()
Dim con As New Connection
Dim str As String ' Orden desde la terminal
Dim sql As String ' Sentencia SQL para "dialogar con la base de datos"
'Conexion de la base de datos y demas configuraciones pertinentes a pa operación del progrma
con.Type = "sqlite3"
'PostgreSQL "postgresql"; MySQL "mysql"; SQLite 2 "sqlite2"; SQLite 3 "sqlite3"; SQLite 2 Or SQLite 3 "sqlite"; ODBC "odbc"
While str <> "exit"
str = Command()
Select Case str
Case "--sql"
Print "Intruduzca la sentencia SQL"
Input sql
' Aquí se dialoga con la base de datos
Print sql
End Select
Wend
End
Public Function Command() As String
Dim str As String
Input str
Return str
End
Public Sub Main()
Dim con As New Connection
Dim str As String ' Orden desde la terminal
Dim sql As String ' Sentencia SQL para "dialogar con la base de datos"
'Conexion de la base de datos y demas configuraciones pertinentes a pa operación del progrma
con.Type = "sqlite3"
'PostgreSQL "postgresql"; MySQL "mysql"; SQLite 2 "sqlite2"; SQLite 3 "sqlite3"; SQLite 2 Or SQLite 3 "sqlite"; ODBC "odbc"
While str <> "exit"
str = Command()
Select Case str
Case "--sql"
Print "Intruduzca la sentencia SQL"
Input sql
' Aquí se dialoga con la base de datos
Print sql
End Select
Wend
End
Public Function Command() As String
Dim str As String
Input str
Return str
End
Saludos.
Albacete
