|
a/samples/mysqldb.tcl |
|
b/samples/mysqldb.tcl |
1 |
#!/bin/sh
|
1 |
#!/usr/bin/env wish
|
2 |
# A script connecting to mysql's db table. This is just to show how
|
|
|
3 |
# you can specify the field setup by listing the columns
|
|
|
4 |
# You just need to change the database and table names and the list
|
|
|
5 |
# of columns if you want to connect to another test table
|
|
|
6 |
|
|
|
7 |
# The following nonsense is required because mysqlwish dumps core when
|
|
|
8 |
# SQLDBTYPE is ODBC, reason unknown.
|
|
|
9 |
# The following lines are executed by sh, not by wish because of the
|
|
|
10 |
# backslashes... Puke loudly
|
|
|
11 |
#\
|
|
|
12 |
case "A$SQLDBTYPE" in
|
|
|
13 |
#\
|
|
|
14 |
A|AMYSQL) exec mysqlwish "$0" "$@";;
|
|
|
15 |
#\
|
|
|
16 |
*) exec wish "$0" "$@";;
|
|
|
17 |
#\
|
|
|
18 |
esac
|
|
|
19 |
|
|
|
20 |
package require sqlsc
|
2 |
package require sqlsc
|
21 |
|
3 |
|
22 |
# Things that you may want to change
|
4 |
# Things that you may want to change
|
23 |
set username ""
|
5 |
set username ""
|
24 |
set hostname ""
|
6 |
set hostname ""
|