> I am about done with the first vision of where I want PerlSQL to go.
> With a little more addition to preferences, entering sql statements, and
> updating data with popup windows I will then give it a version 1.0
> rating. Until then I am just going to stick to dates.
>
> --
> Michael Kangas
> [EMAIL PROTECTED]
I have just two simple changes :
On lines 238 and 239 you probably meant
$username = undef if (!($username = $userTextfield->Text()));
$password = undef if (!($password = $passTextfield->Text()));
instead of
$username = 'undef' if (!($username = $userTextfield->Text()));
$password = 'undef' if (!($password = $passTextfield->Text()));
And then in function Load_TBLs you should have this :
my $DSNstring;
if ($username) {
if ($password) {
$DSNstring = "DSN=$DSN;UID=$username;PWD=$password"
} else {
$DSNstring = "DSN=$DSN;UID=$username"
}
} else {
$DSNstring = $DSN;
}
$db = new ODBC($DSNstring);
instead of
$db = new ODBC("DSN=$DSN;UID=$username;PWD=$password");
With your code I was unable to connect to MS SQL data sources using
trusted connection (without explicit username and password).
Jenda
== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==
The phenomenon of UFO doesn't say anything about
the presence of intelligence in space.
It just shows how rare it is here on the earth.
A.C.Clarke
