By writing scripting procedure in the TCL we can connect to the database and we can test data base and queries.

The exact proccess should be:

1)connect to the database

db_connect("query1",DRIVER={drivername};SERVER=server_name;

UID=uidname;PWD=password;DBQ=database_name ");

2)Execute the query

db_excecute_query("query1","write query u want to execute");

-Condition to be mentioned-

3)disconnect the connection

db_disconnect("query");