- ベストアンサー
C#でDBの特定列をUpdate
Picosoftの回答
- Picosoft
- ベストアンサー率70% (274/391)
> keyのないDBでどうやってSQLを組むでしょうか。 DBの種類は何ですか？ SQL ServerとかOracleとかMySQLとかAccessとかありますよね？ 「keyのないDB」がどういう意味かよくわかりませんが、 テーブルに主キーや外部キーがなくても、SQLで特定列のみ更新できます。 例：「売上」テーブルの「売上額」をすべて1.05倍したい場合 UPDATE 売上 SET 売上額 = 売上額 * 1.05 (WHEREを省くとすべての行を更新します)
関連するQ&A
- レコードを上から順に読み込みたい
SQLを初めたばかりです。ACCESS2010を使っています。 テーブルを上から順番に読み込んで、とあるフィールドの数値に 1を足してから該当レコードを更新する単純なことがしたいのですが 上手く行きません。 現在は次のようになっています。 rs.Open "uriage", cn, , adLockOptimistic Do Until rs.EOF sql = "" sql = "UPDATE uriage SET 売上額 = 売上額 + 1" cn.Execute sql rs.MoveNext Loop これを実行すると、売上額フィールドに入っている数値に レコードの件数分の数値が足された結果となります。 例えばレコード件数が10で、売上額が1なら11、となります。 多分初歩的な事が理解できていないのだと思いますが 何故なのかがわかりません。
- 締切済み
- その他(データベース)
- VB6.0DataGridでのUpdate文で疑問？
ADOの勉強したばっかりで、あまり詳しくありませんのでよろしくお願いします。 DataGridを使ってある条件で抽出しています。その抽出したものを更新したいのですが、 Do rs!分類ID = text1 rs.Update rs.MoveNext Loop Until rs.EOF という命令を書くと、いいような気がするのですが、なぜか抽出したデータが一個おきに書き換わります。 でも、 Do rs!分類ID = text1 rs.Update rs.MoveNext if rs.EOF then rs.Previous END IF Loop Until rs.EOF と命令するとすべてのデータが書き換わります。 なぜなんでしょうか？疑問です。 VB6.0、ACCESS2000です。
- 締切済み
- その他（プログラミング・開発）
- ODBCでMoveNextがうまく動作しないようなのですが
まだＶＢ歴１年ないので説明もうまくできないかも知れませんが どなたか教えていただければ助かります。 Dim cn as ADODB.Connection Dim rs as ADODB.Recordset Set cn = New ADODB.Connection cn.IsolationLevel = adXactRepeatabelRead cn.Open ***** Set rs = New ADODB.Recordset rs.CursorType = adOpenDynamic rs.LockType = asLockPessimistic rs.ActiveConnection = cn rs.Open ***** 上記のように設定したのち データ読み込み rs.MoveFirst Do until rs.EOF aaa = rs.Fields("ID").Value 中略 rs.MoveNext Loop ファイルクローズして他の処理したのち 再びファイルオープンして rs.MoveFirst For *** Set rs = cn.Execute("UPDATE テーブル名 SET ID = ***** ") 中略 rs.MoveNext Next *** ファイルクローズ 上記のＭｏｖｅＮｅｘｔがおかしいと思うのですが 他のところかもしれませんが悩んでいます。 この内容でわかっていただけるか心配ですが よろしくお願いします。
- ベストアンサー
- Visual Basic
- Do Until rs1.EOF であるレコードをスキップしたい
ＡＣＣＥＳＳ２００７のＶＢについて教えて下さい。 テーブルをオープンし RecordSetとして、rs1、に読み込まれてきます。 あるフィールド、廃油計がゼロのときは、そのレコードに対し 処理をスキップしたいのです。 苦しまぎれに、下記のように Continue、を使うとContinueが関数とみなされてしまいます。 ある、レコードをスキップさせたいとき、 そのようにCoding、したらいいのでしょうか？ --------------------------------------- Do Until rs1.EOF If rs1![廃油計] = 0 Then continue End If ' '処理 ' rs1.MoveNext Loop ------------------------------------ よろしくお願いします。
- ベストアンサー
- Visual Basic
- ＶＢＡ ＲＥＰＬＡＣＥ関数 文字列の置換
ＡＣＣＥＳＳ ＶＢＡ ＲＥＰＬＡＣＥ関数についての質問です。 ＦＡＱテーブル（answer列） ＨＥＮＫＡＮテーブル（moji列,tag列）を用意。＿＿すべてメモ型 ＨＥＮＫＡＮテーブルのmoji列の値が、ＦＡＱテーブルのanswer列の値にある場合に、ＨＥＮＫＡＮテーブルのtag列の値と入れ替える というコードを現在かいております。 例） Private Sub a_Click() Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ANSWER FROM FAQ", dbOpenDynaset) Set rs2 = CurrentDb.OpenRecordset("SELECT moji,tag FROM HENKAN", dbOpenDynaset) Do Until rs2.EOF Do Until rs1.EOF rs1.Edit rs1!ANSWER = Replace(rs1!ANSWER, "rs2moji","rs2!tag") rs1.Update rs1.MoveNext Loop rs1.MoveFirst rs2.MoveNext Loop rs1.Close Set rs1 = Nothing rs2.Close Set rs2 = Nothing End Sub 上記コードを一先ずテスト用に作成したのですが、うまく置換されません。 REPLACE関数部分の表記をどのようにしたらよろしいでしょうか？ ご面倒おかけしますが、ご教示お願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- ACCESS ADOのMovePreviousについて
毎度お世話になっております。 ACCESS2003を使用しています。 ACCESS ADOにて、レコードセットがeofになった後、 MovePreviousをし、MoveNextをし、 さらにもう一度MovePreviousをすると、 最終レコードの一つ前に戻ってしまいます。 テーブル1 フィールド1 フィールド2 1 あ 2 い 3 う 4 え 5 お コード Sub test() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "select * from テーブル1 order by フィールド1", cn, adOpenDynamic, adLockReadOnly Do Until rs.EOF rs.MoveNext Loop rs.MovePrevious Debug.Print rs.Fields("フィールド1").Value rs.MoveNext rs.MovePrevious Debug.Print rs.Fields("フィールド1").Value rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub 一度目のdebug.printは5に、 二度目のdebug.printは4になります。 このような仕組みなのでしょうか。 ご教授お願いいたします。
- ベストアンサー
- その他(データベース)
- 【Access2003】VBAで削除のSQL実行ができない
初歩的な質問かもしれませんが・・・ ACCESS2003VBAでADOを用いて削除を実行しようとしているのですがエラー（エラーは「オーバーフローしました」です。）が出て実行できません。 ソースは以下の通りです。 Dim strSQL As String Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection strSQL = " DELETE FROM D_TB" rs.Open strSQL, cn, , adOpenStatic, adLockOptimistic '←ここでエラー Do Until rs.EOF rs.Delete rs.MoveNext Loop rs.Close cn.Close どこがおかしいのでしょうか？ 大変困っています。教えてください。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- access vbでループ処理
レコードセットでテーブルの内容をフォームのテキストボックスに表示 させたいのですが、vbの知識が無く困ってます。以下の処理をループ処理で 簡単に出来ないでしょうか。 ' PASU1 = rs!PASU ' rs.MoveNext ' PASU2 = rs!PASU ' rs.MoveNext ' PASU3 = rs!PASU ' rs.MoveNext ' PASU4 = rs!PASU ' rs.MoveNext ' PASU5 = rs!PASU ' rs.MoveNext ' PASU6 = rs!PASU レコードセットは, Do Until rs.EOF loop を用いれば繰り返し出来ると解っているのですがフォームの, PASU[1,2,3,,,]の数字の部分を指定することが出来ずにいます。 変数など駆使すれば出来ると思うのですが良くわかりません。 どなたか教えてください。
- ベストアンサー
- その他(データベース)
- 【VB】コンボボックスにデータベースから取り出した値を入れたい
VB2005です。 表題の通りですがやり方がよくわかりません。 データベースに接続し、 SQLで重複しない値を取り出すところまではできています。 SQL=SELECT DISTINCT FieldName FROM TableName VB6の時はこんなソースでした Do Until rs.EOF Combo1.AddItem.Fields("FieldName") rs.MoveNext Loop VB2005ではどう書くのでしょう？ よろしくご教授ください。
- ベストアンサー
- Visual Basic
- フォーム上のテキストボックスにテーブル値を改行代入
Access2013を使用しています。 フォーム上のテキストボックスにテーブルAの項目Bを複数レコード分を改行しながら 代入したいのです。 Set CN = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "テーブルA", CN, adOpenStatic, adLockOptimistic Do Until rs.EOF If rs!項目B <> "" Then Me!テキストボックス = rs!項目B & vbLf End If rs.MoveNext Loop 上記ですと、当たり前ですが最終レコードの項目Bのみがセットされます。 検索ワードがよくないのか、同様の問合せを見つけることができません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
SQLで言うとFETCHに相当する文です。問題はSQLの問題ではなく、C#でのやり方です。