[pgsql-jp: 26680] Re: ODBC接続について（ VisualBasic6.0 ）

[junnitisibasaki]

フォームをロードした時下記のようなプログラムを実行しています。
MS-ACCESSに同じDBを作り連結した時はこのやり方で編集可能な状態になりました。
hdoというのはグリッドの名前です。

グリッドで入力出来なければMS-ACCESSの表形式フォームのような
連続してデータを入力できるフォームを作りたいと思っています。

よろしくお願いいたします。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

sql = "SELECT No,日付,t_hdo.商品コード, 商品名,規格,出庫数 " _
    & "FROM t_hdo INNER JOIN t_ms2 " _
    & "ON t_hdo.商品コード = t_ms2.商品コード " _
    & "ORDER BY No"

rs.Open sql, cn, adOpenStatic, adLockOptimistic

Set hdo.DataSource = rs
hdo.AllowAddNew = True
hdo.AllowUpdate = True
hdo.AllowDelete = True
hdo.AllowArrows = True

hdo.Columns("日付").Width = 70 * 15
hdo.Columns("商品コード").Width = 60 * 15
hdo.Columns("商品名").Width = 100 * 15
hdo.Columns("規格").Width = 100 * 15
hdo.Columns("出庫数").Width = 60 * 15


----- Original Message -----
From: "Hiroshi Inoue" <Inoue ＠ tpf.co.jp>
To: <pgsql-jp ＠ ml.postgresql.jp>
Sent: Friday, July 12, 2002 6:33 PM
Subject: [pgsql-jp: 26675] Re: ODBC接続について（ VisualBasic6.0 ）


> 井上です。
>
> js wrote:
> >
> > ご返答頂きましてありがとうございました。
> > やまざきさんにご指摘頂いた事が原因でしてSQL文に変更すると接続できまし
た。
> >
> > ただ、１レコードずつ表示する分には問題ないのですが
> > グリッドコントロールを利用して編集を行うことが出来ません。
>
> グリッドコントロールの設定はどのようにされていますか？
>
> Hiroshi Inoue
>
>