void
render_as_sql (GdaSqlBuilder *b)
{
GdaStatement *stmt;
GError *error = NULL;
stmt = gda_sql_builder_get_statement (b, &error);
if (!stmt) {
g_print ("Statement error: %s\n",
error && error->message ? error->message : "No detail");
if (error)
g_error_free (error);
}
else {
gchar *sql;
sql = gda_statement_to_sql (stmt, NULL, &error);
if (!sql) {
g_print ("SQL rendering error: %s\n",
error && error->message ? error->message : "No detail");
if (error)
g_error_free (error);
}
else {
g_print ("SQL: %s\n", sql);
g_free (sql);
}
g_object_unref (stmt);
}
}
static void
sql_indent_clicked_cb (G_GNUC_UNUSED GtkButton *button, QueryConsolePage *tconsole)
{
gchar *sql;
GdaBatch *batch;
if (!tconsole->priv->parser)
tconsole->priv->parser = t_connection_create_parser (tconsole->priv->tcnc);
sql = query_editor_get_all_text (tconsole->priv->editor);
batch = gda_sql_parser_parse_string_as_batch (tconsole->priv->parser, sql, NULL, NULL);
g_free (sql);
if (batch) {
GString *string;
const GSList *stmt_list, *list;
stmt_list = gda_batch_get_statements (batch);
string = g_string_new ("");
for (list = stmt_list; list; list = list->next) {
sql = t_connection_render_pretty_sql (tconsole->priv->tcnc,
GDA_STATEMENT (list->data));
if (!sql)
sql = gda_statement_to_sql (GDA_STATEMENT (list->data), NULL, NULL);
if (list != stmt_list)
g_string_append (string, "\n\n");
g_string_append_printf (string, "%s;\n", sql);
g_free (sql);
}
g_object_unref (batch);
query_editor_set_text (tconsole->priv->editor, string->str);
g_string_free (string, TRUE);
}
}
static GObject *
gda_ldap_provider_statement_execute (GdaServerProvider *provider, GdaConnection *cnc,
GdaStatement *stmt, GdaSet *params,
GdaStatementModelUsage model_usage,
GType *col_types, GdaSet **last_inserted_row, GError **error)
{
gchar *sql;
sql = gda_statement_to_sql (stmt, params, NULL);
if (sql) {
/* parse SQL:
* CREATE LDAP TABLE <table name> WITH BASE='base_dn' FILTER='filter'
* ATTRIBUTES='attributes' SCOPE='scope'
*/
gchar *ssql = sql;
SKIP_SPACES (ssql);
if (! g_ascii_strncasecmp (ssql, "CREATE", 6)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
cmde = parse_extra_sql_command (ssql, "CREATE", &lerror);
if (cmde != NOT_AN_EXTRA_SQL_COMMAND) {
GdaConnectionEvent *event = NULL;
if (cmde) {
if (gda_ldap_connection_declare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, cmde->base_dn,
cmde->filter, cmde->attributes,
cmde->scope, &lerror))
retval = (GObject*) gda_set_new (NULL);
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
extra_sql_command_free (cmde);
}
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
/* parse SQL:
* DROP LDAP TABLE <table name>
*/
else if (! g_ascii_strncasecmp (ssql, "DROP", 4)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
cmde = parse_extra_sql_command (ssql, "DROP", &lerror);
if (cmde != NOT_AN_EXTRA_SQL_COMMAND) {
GdaConnectionEvent *event = NULL;
if (cmde) {
if (cmde->other_args) {
g_set_error (&lerror, GDA_SQL_PARSER_ERROR,
GDA_SQL_PARSER_SYNTAX_ERROR,
"%s",
_("Too many arguments"));
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event,
lerror->message);
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
else {
if (gda_ldap_connection_undeclare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, &lerror))
retval = (GObject*) gda_set_new (NULL);
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
}
extra_sql_command_free (cmde);
}
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
/* parse SQL:
* ALTER LDAP TABLE <table name> [...]
* DESCRIBE LDAP TABLE <table name>
*/
else if (! g_ascii_strncasecmp (ssql, "ALTER", 5) ||
! g_ascii_strncasecmp (ssql, "DESCRIBE", 8)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
gboolean alter;
alter = g_ascii_strncasecmp (ssql, "ALTER", 5) ? FALSE : TRUE;
cmde = parse_extra_sql_command (ssql, alter ? "ALTER" : "DESCRIBE", &lerror);
if ((cmde != NOT_AN_EXTRA_SQL_COMMAND) &&
(alter || (!alter && !cmde->other_args))) {
GdaConnectionEvent *event = NULL;
if (cmde) {
const gchar *base_dn, *filter, *attributes;
GdaLdapSearchScope scope;
if (gda_ldap_connection_describe_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name,
&base_dn, &filter,
&attributes, &scope, &lerror)) {
if (cmde->other_args) {
if (! cmde->base_dn && base_dn)
cmde->base_dn = g_strdup (base_dn);
if (! cmde->filter && filter)
cmde->filter = g_strdup (filter);
if (! cmde->attributes && attributes)
cmde->attributes = g_strdup (attributes);
if (! cmde->scope)
cmde->scope = scope;
if (gda_ldap_connection_undeclare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, &lerror) &&
gda_ldap_connection_declare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, cmde->base_dn,
cmde->filter, cmde->attributes,
cmde->scope, &lerror))
retval = (GObject*) gda_set_new (NULL);
}
else {
GdaDataModel *array;
array = table_parameters_describe (base_dn, filter,
attributes, scope);
retval = (GObject*) array;
}
}
if (!retval) {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
extra_sql_command_free (cmde);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
g_free (sql);
}
/* check connection to LDAP is Ok */
if (! gda_ldap_ensure_bound (GDA_LDAP_CONNECTION (cnc), error))
return NULL;
GdaServerProviderBase *fset;
fset = gda_server_provider_get_impl_functions_for_class (parent_class, GDA_SERVER_PROVIDER_FUNCTIONS_BASE);
return fset->statement_execute (provider, cnc, stmt, params,
model_usage, col_types,
last_inserted_row, error);
}
static void
actually_execute (QueryConsolePage *tconsole, const gchar *sql, GdaSet *params,
gboolean add_editor_history)
{
GdaBatch *batch;
GError *error = NULL;
const gchar *remain;
/* if a query is being executed, then show an error */
if (tconsole->priv->currently_executing) {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("A query is already being executed, "
"to execute another query, open a new connection."));
return;
}
tconsole->priv->currently_executing = TRUE;
if (!tconsole->priv->parser)
tconsole->priv->parser = t_connection_create_parser (tconsole->priv->tcnc);
batch = gda_sql_parser_parse_string_as_batch (tconsole->priv->parser, sql, &remain, &error);
if (!batch) {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("Error while parsing code: %s"),
error && error->message ? error->message : _("No detail"));
g_clear_error (&error);
return;
}
if (add_editor_history) {
/* mark the current SQL to be kept by the editor as an internal history */
query_editor_keep_current_state (tconsole->priv->editor);
}
/* actual Execution */
const GSList *stmt_list, *list;
GTimeVal start_time;
g_get_current_time (&start_time);
QueryEditorHistoryBatch *hist_batch;
hist_batch = query_editor_history_batch_new (start_time, params);
query_editor_start_history_batch (tconsole->priv->history, hist_batch);
query_editor_history_batch_unref (hist_batch);
gboolean within_transaction;
stmt_list = gda_batch_get_statements (batch);
for (list = stmt_list; list; list = list->next) {
GdaStatement *stmt;
GObject *result;
GError *lerror = NULL;
within_transaction = t_connection_get_transaction_status (tconsole->priv->tcnc) ? TRUE : FALSE;
stmt = GDA_STATEMENT (list->data);
result = t_connection_execute_statement (tconsole->priv->tcnc, stmt, params,
GDA_STATEMENT_MODEL_RANDOM_ACCESS,
NULL, &lerror);
if (result) {
QueryEditorHistoryItem *history;
GdaSqlStatement *sqlst;
g_object_get (G_OBJECT (stmt), "structure", &sqlst, NULL);
if (!sqlst->sql) {
gchar *sql;
sql = gda_statement_to_sql (stmt, NULL, NULL);
history = query_editor_history_item_new (sql, result, lerror);
g_free (sql);
}
else
history = query_editor_history_item_new (sqlst->sql, result, lerror);
g_object_unref (result);
gda_sql_statement_free (sqlst);
history->within_transaction = within_transaction;
/* display a message if a transaction has been started */
if (! history->within_transaction &&
t_connection_get_transaction_status (tconsole->priv->tcnc) &&
gda_statement_get_statement_type (stmt) != GDA_SQL_STATEMENT_BEGIN) {
browser_window_show_notice_printf (BROWSER_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
GTK_MESSAGE_INFO,
"QueryExecTransactionStarted",
"%s", _("A transaction has automatically been started\n"
"during this statement's execution, this usually\n"
"happens when blobs are selected (and the transaction\n"
"will have to remain opened while the blobs are still\n"
"accessible, clear the corresponding history item before\n"
"closing the transaction)."));
}
query_editor_add_history_item (tconsole->priv->history, history);
query_editor_history_item_unref (history);
browser_window_push_status (BROWSER_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
"QueryConsolePage", _("Statement executed"), TRUE);
}
else {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("Error executing query:\n%s"),
lerror && lerror->message ? lerror->message : _("No detail"));
g_clear_error (&lerror);
break;
}
}
g_object_unref (batch);
tconsole->priv->currently_executing = FALSE;
}
int
main (int argc, char *argv[])
{
gda_init ();
GdaConnection *cnc;
GError *error = NULL;
GdaStatement *stmt;
GdaDataModel *model;
gchar *str;
GValue *name;
/* open connection */
cnc = open_connection ();
/* begin transaction */
if (! gda_connection_begin_transaction (cnc, NULL, GDA_TRANSACTION_ISOLATION_UNKNOWN,
&error)) {
g_print ("Could not begin transaction: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
/* execute SELECT */
stmt = gda_sql_parser_parse_string (parser, "SELECT id, name FROM customers ORDER BY id", NULL, NULL);
g_assert (stmt);
model = gda_connection_statement_execute_select (cnc, stmt, NULL, &error);
g_object_unref (stmt);
if (!model) {
g_print ("Could not execute SELECT statement: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
g_print ("** Data model is:\n");
gda_data_model_dump (model, stdout);
/*
* make sure the mete data is up to date
*/
g_print ("Computing meta data, this may take a while; in real applications, this should be cached to avoid waiting\n");
if (! gda_connection_update_meta_store (cnc, NULL, &error)) {
g_print ("Could not fetch meta data: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
/*
* Make the data model compute the modification statements which
* will actually be executed when the data model is modified
*/
if (! gda_data_select_compute_modification_statements (GDA_DATA_SELECT (model), &error)) {
g_print ("Could not compute modification statements: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
g_object_get (G_OBJECT (model), "update-stmt", &stmt, NULL);
str = gda_statement_to_sql (stmt, NULL, NULL);
g_print ("Computed UPDATE: %s\n", str);
g_free (str);
g_object_unref (stmt);
g_object_get (G_OBJECT (model), "delete-stmt", &stmt, NULL);
str = gda_statement_to_sql (stmt, NULL, NULL);
g_print ("Computed DELETE: %s\n", str);
g_free (str);
g_object_unref (stmt);
g_object_get (G_OBJECT (model), "insert-stmt", &stmt, NULL);
str = gda_statement_to_sql (stmt, NULL, NULL);
g_print ("Computed INSERT: %s\n", str);
g_free (str);
g_object_unref (stmt);
/*
* remove row 0 (1st row)
*/
g_print ("\n\n** Removing row 0\n");
if (! gda_data_model_remove_row (model, 0, &error)) {
g_print ("Could not remove row 0: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
g_print ("** Data model is now:\n");
gda_data_model_dump (model, stdout);
g_print ("** Table's contents is now:\n");
display_customers (cnc);
/*
* add a row: the row's values is a list of GValue pointers
* (or NULL pointers where the default value should be inserted
*/
GList *list;
g_print ("\n\n** Adding a row\n");
list = g_list_append (NULL, NULL);
g_value_set_string ((name = gda_value_new (G_TYPE_STRING)), "Hiro");
list = g_list_append (list, name);
if (gda_data_model_append_values (model, list, &error) == -1) {
g_print ("Could not add a row: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
gda_value_free (name);
g_list_free (list);
g_print ("** Data model is now:\n");
gda_data_model_dump (model, stdout);
g_print ("** Table's contents is now:\n");
display_customers (cnc);
/*
* alter row 2
*/
g_print ("\n\n** Modifying row 2\n");
g_value_set_string ((name = gda_value_new (G_TYPE_STRING)), "Tom");
if (! gda_data_model_set_value_at (model, 1, 2, name, &error)) {
g_print ("Could not modify row 2: %s\n",
error && error->message ? error->message : "No detail");
exit (1);
}
gda_value_free (name);
g_print ("** Data model is now:\n");
gda_data_model_dump (model, stdout);
g_print ("** Table's contents is now:\n");
display_customers (cnc);
/* rollback transaction */
gda_connection_rollback_transaction (cnc, NULL, NULL);
gda_connection_close (cnc);
return 0;
}
