Populate select field

hello,
I have a populates the perl script using DBI, well i am now trying to do it with ADO, My array doesn't return anything, I was wondering if i was missing something here. Please suggest me as were i am going wrong,
thank you

#!F:\iw-home\iw-perl\bin\iwperl.exe

use Win32: Smiley Surprised

LE;
$RS = Win32: Smiley Surprised

LE->new("ADODB.Recordset");
$Conn = Win32: Smiley Surprised

LE->new("ADODB.Connection");

my $dsn = 'PROVIDER=SQLOLEDB;Server=blcmssql02;database=gpoi;uid=application;pwd=g3mba11a';
$Conn->open($dsn);

if (!$Conn)
{
die "Could not open connection to DSN because of [$!]";
}
$RS->{ActiveConnection} = $Conn;
$RS->{Source} = "SELECT NAME FROM V_MBR_AFFILIATE_LIST";
$RS->Open;
$RS = $Conn->Execute("SELECT NAME FROM V_MBR_AFFILIATE_LIST");

my @id;
while(my @row = $RS -> fetchrow_array()){
#push (@name, $row[0]);
push (@id, $row[1]);
print "<option label=\"$row[0]\" value=\"$row[1]]\" />\n" ;
$RS->MoveNext;
}

#print "<substitution>\n";
#print "<option selected=\"t\" label=\"All\" value=\"All\" />\n";
$RS->Close;
$Conn->Close;

Thanks

Find more posts tagged with

Comments

Nicholas

Is Win32:

LE installed properly?
What error msg you are getting?
TS and other details?

Bhargav Coca

here is my improved code, I can execute this code from the command window and it returns all the values, But if i load the DCT, it doesn't. I says that the "Value" is not defined. please suugest.

Thank you

#!E:\iw-home\iw-perl\bin\iwperl.exe

use Win32: Smiley Surprised

LE;

$RS = Win32: Smiley Surprised

LE->new("ADODB.Recordset");
$Conn = Win32: Smiley Surprised

LE->new("ADODB.Connection");

my $dsn = 'PROVIDER=SQLOLEDB;Server=blcmssql02;database=gpoi;uid=teamsite;pwd=purple';
$Conn->open($dsn);

if (!$Conn)
{
die "Could not open connection to DSN because of [$!]";
}

$RS->{ActiveConnection} = $Conn;
$RS->{Source} = "SELECT TOP 5 [ID], [NAME] FROM V_MBR_AFFILIATE_LIST ORDER BY [NAME]";
$RS->Open;

if(!$RS)
{
$Errors = $Conn->Errors();
print "Errors: \n";

foreach $error (keys %$Errors)
{
print $error->{Description}, "\n";
}
die "Could not execute SQL";
}

print "<substitution>\n";
print "<option selected=\"t\" label=\"All\" value=\"All\" />\n";

while ( !$RS->EOF )
{
if ($RS && $RS->Fields(0) && $RS->Fields(1))
{
my($ID, $Name) = ($RS->Fields(0)->value, $RS->Fields(1)->value );
print "<option label=\"$Name\" value=\"$ID\" />\n";
}
else
{
print "<option label=\"Error\" value=\"Error\" />\n";
}

$RS->MoveNext;
}

print "</substitution>\n";

$RS->Close;
$Conn->Close;

jeetu

Hi,

I am using TS6.5 and i am also getting the error "Value" is not defined.

Did you get any workaround on this issue.

In fact i am using
$document = Win32: Smiley Surprised

LE->GetObject("D:\\mydata\\Help.doc");
Value in $document come null though the doc file is in its correct location.

Pls provide any solution

Regards
Jitendra

Bhargav Coca

Check you DNS connection, Its very vague, But do you have a SQL Client instance on the Box? It will help to resolve this when populating from Database. Try that.
Thanks