VB.NETでコーディング、デバッグ実行中です。
「区分マスタ」テーブルには、現在５レコードのデータがありますが、先頭から２レコードしかデータを取得してくれません。
oDataReader.Read()が２回目でFalseとなってWhileが終了してしまいます。
原因お分かりの方、いらっしゃいますでしょうか？
-----------------------------------------------
Public Function getKubunAll(ByRef kubunInfo() As structKubun) As String
Const strSelectSyain As String = "SELECT * FROM 区分マスタ ORDER BY 区分コード"
Dim oConn As New OleDbConnection
Dim oCommand As New OleDbCommand
Dim oDataReader As OleDbDataReader
Dim i As Integer
Try
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "\TEST.mdb"
oCommand.Connection = oConn
oCommand.CommandText = strSelectSyain
oConn.Open()
oDataReader = oCommand.ExecuteReader()
i = -1
While oDataReader.Read()
'レコードが取得できた時の処理
i = i + 1
ReDim Preserve kubunInfo(i)
kubunInfo(i).kubunCode = CStr(oDataReader("区分コード"))
kubunInfo(i).syoriNaiyou = CStr(oDataReader("処理内容"))
End While
・
・
・
・
End Function
PHP4とpostgrs8.0を利用しています。OSはWINDOWS2000です。
$DB_SERVER="localhost";
$Port = "5432";
$DB_NAME="test";
$DB_UID="postgres";
$DB_PASS="abc";
define("DB_CONECT","host=$DB_SERVER port=$Port dbname=$DB_NAME user=$DB_UID password=\"$DB_PASS\"");
という設定で
pg_connect(DB_CONECT)
の接続でエラーが発生します。
Warning: pg_connect(): Unable to connect to PostgreSQL server: FATAL: password authentication failed for user "postgres" in c:\*****.php on line 12
なぜでしょうか？
pg_hba.confの設定で
host all all 127.0.0.1/32 md5
を
host all all 127.0.0.1/32 trust
に変更すると接続できるのですが。
それは問題ないのでしょうか？
またレンタルサーバーのpostgresを利用する場合、
その設定も個人で変更できるのでしょうか？
よろしくお願い致します。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1345496に関連して・・・
テーブル名：項目名
部屋：科目、部屋
教科書：科目、値段
上記のようなテーブルがあり、以下のようなSelect文によりデータを
データセットに取得したいのですが、
コンパイルは通り、実行するとFillメソッドでエラーになります。
try～catchをしてエラーの内容を見てみると「FROM句の構文エラー」と出ています。
Fillメソッドの２つめのパラメータにどちらのテーブル名を入れても、
同じエラーになります。
UNION句でつないだSelect文をAdapterに設定した場合、
２つ目のパラメータは一体なんなのでしょうか。
Fillメソッドのパラメータがおかしいのでなければ、
SELECT文のどこがおかしいでしょうか。
教えてください。よろしくお願いいたします。
----------------------------------------------------------------
Dim oleCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim dataSet = New DataSet
oleCn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;"～
Dim oDataAdapter As New OleDb.OleDbDataAdapter("SELECT 科目 FROM 部屋" & _
"UNION SELECT 科目 FROM 教科書 WHERE (値段 > 1000)", oleCn)
oDataAdapter.Fill(dataSet)
