perl - perl/dbi/ODBCを使用してAccess dbでタイプMEMOのフィールドを持つテーブルを作成する際の問題

Question

パール5.8.9

みんなこんにちは、

DBI/DBD/ODBC を使用して、既存の Access 2003 (.mdb) データベースに次の文字列で新しいテーブルを作成することに成功しました: $q = "CREATE TABLE memoTestA (name TEXT, addr TEXT)"; #作品

しかし、タイプ MEMO のフィールドを追加する方法がわかりません。つまり、 $q = "CREATE TABLE memoTestB (name TEXT, addr TEXT, desc MEMO)"; です。# 構文エラーをスローします

方法があるはずです - トリックは何ですか?

DBD::ODBC を使用してフォームを Win32::OLE に切り替えると、->Execute stmt によってスローされる「不正な構文」エラーを回避できますが、Access データベース内に実際に作成されたテーブルは表示されません。うーん。

#-------------------------------
sub setUpDatasourceLocalAccessC($)
{ my $debug = 0;
  my ( $dbFile) = @_;

  #Choose appropriate version of Jet for your system
  my $Jet = Win32::OLE->CreateObject('DAO.DBEngine.36') or die "Can't create Jet database engine.";

  my $dbh = $Jet->OpenDatabase( $dbFile);
  return $dbh;
 }
#-------------------------------
sub createMemoTablePrepareC($)
{
  my ($dbh_vdms) = @_;

  print "entering createMemoTablePrepareC\n" if $debug;

  my $errorHit = 0;
  my @table_arry = ();
  my @goodtable_arry = ();

  my $q   = undef;
  if( !defined( $dbh_vdms)) {
    _pushErrorMsg("db connection failed - ".$DBI::errstr);
    $errorHit = 1;
  } else {
    $q = "CREATE TABLE memoTestC (name TEXT, addr TEXT)";    # works
    $q = "CREATE TABLE memoTestC (name TEXT, addr TEXT, desc MEMO)";  #seems to work, no errmsg but dont see table appear in database
    $dbh_vdms->Execute( $q);
    if( my $errorMsg = $dbh_vdms->errstr ) {
      _pushErrorMsg("create statement failed - ".$errorMsg);
      $errorHit = 1;
    }
    $dbh_vdms->close();
    $dbh_vdms->disconnect();
  }

  print "exiting  createMemoTablePrepareC with errorHit=".$errorHit."\n" if $debug;
  return $errorHit;
 }

ティア、

まだまだ勉強中のスティーブ