help please --- triming zero on text field 1

[lmcate2]

I am new to Perl. I have an Access DB that has a text field called AgencyID and when I use the insert command it trims the 00 and I need to have the leading zero to the left. Like 00343478 not 343478

$db2->Sql("Insert Into TempAgencyOpenClosedPortal (TransRecordID, CCRANumber, AgencyName, InventorySourceName, NumberOfNights, SellRate, PaymentCheckAmount, AgencyID)
Values ($TransRecordID, '$CCRAAgencyID', '$AgencyName', '$InventoryName', $Nights, $SellRate, $PaymentCheckAmount, $AgencyID)");

 

[TrojanWarBlade]

Silly question, but have you tried putting apostrophes around "$AgencyID"? Like thi:

$db2->Sql("Insert Into TempAgencyOpenClosedPortal (TransRecordID, CCRANumber, AgencyName, InventorySourceName, NumberOfNights, SellRate, PaymentCheckAmount, AgencyID)
                Values ($TransRecordID, '$CCRAAgencyID', '$AgencyName', '$InventoryName', $Nights, $SellRate, $PaymentCheckAmount, [red]'[/red]$AgencyID[red]'[/red])");

Trojan

 

[lmcate2]

thanks, again.. I told you I am new to PERL