How would I check for null fields when writing to a database with a CSV file?
$dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\,});
$dbh->{'csv_tables'}->{'info'} = { 'file' => 'cust_sum_da.csv'};
$sth = $dbh->prepare("SELECT * FROM info");
$sth->execute();
my($one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten
+, $eleven, $twelve, $thirteen, $fourteen, $fifteen, $sixteen);
$sth->bind_columns(undef, \$one, \$two, \$three, \$four, \$five, \$six
+, \$seven, \$eight, \$nine, \$ten, \$eleven, \$twelve, \$thirteen, \$
+fourteen, \$fifteen, \$sixteen);
while ($sth->fetch) {
$SqlStatement4 = ("INSERT INTO Customer_Information " .
"(CustomerNumber, Name, Address1, Address2, City, State, ZipCode, Em
+ail, DefaultPassword) " .
"VALUES ('$one', '$two', '$three', '$four', '$six', '$seven', '$eight'
+, '$nine', '$sixteen') ");
$db->Sql($SqlStatement4);
}
$db->Close();
$sth->finish();
# print $SqlStatement;
exit;
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.