トップに関する質問 Excel VBA データベースのデータを更新する際のシングルコーテーションについて

編集履歴

質問編集履歴

修正

2020/08/05 05:16

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -202,178 +202,14 @@
 FINAL:
+    'ファイナル処理
+    On Error Resume Next
+    Set rs = Nothing
+    Set con = Nothing
+End Sub
 ```
-```vba
-<sheet1>
-Option Explicit
-Private Sub CommandButton1_Click()
-    UserForm1.Show
-End Sub
-<UserForm1> テキストボックスとコマンドボタンだけ
-Option Explicit
-Private Sub CommandButton1_Click() 'ボタンを押すと
-    On Error GoTo ERROR
-    Dim con As New ADODB.Connection
-    Dim rs As New ADODB.Recordset
-    Dim cmd As New ADODB.Command
-    Dim param As New ADODB.Parameter
-    Dim ds As String            'データソース定義
-    Dim user As String          'ユーザ名
-    Dim pass As String          'パスワード
-    ds = "Provider=OraOLEDB.oracle;"
-    ds = ds & "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.0.5)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XEPDB1)));"
-    ds = ds & "User ID=HTS;Password=htshts"
-    con.ConnectionString = ds
-    con.Open
-    cmd.ActiveConnection = con
-    cmd.CommandTimeout = 0
-    cmd.CommandType = adCmdText
-    cmd.CommandText = "select DJNAME ? from EDM"
-    Set param = cmd.CreateParameter("DJNAME", adVarChar, adParamInput, 20)
-    cmd.Parameters.Append param
-    cmd.Parameters("DJNAME").Value = "Avicii I'm Test"
-    rs.CursorLocation = adUseClient
-    rs.CursorType = adOpenStatic
-    TextBox1.Value = printSql(cmd) 'TextBox1に値を入れる
-    rs.Open cmd
-    GoTo FINAL
-ERROR:
-    MsgBox Erl() & "行目：" & ERROR(Err())
-FINAL:
-    'ファイナル処理
-    On Error Resume Next
-    Set rs = Nothing
-    Set con = Nothing
-End Sub
-'printSqlの処理として
-Public Function printSql(ByRef cmd As ADODB.Command) As String
-Dim p As ADODB.Parameter
-Dim vntP As Variant
-Dim inti As Integer
-Dim strR As String
-inti = 1
-ReDim vntP(cmd.Parameters.Count)
-For Each p In cmd.Parameters
-    Select Case p.Type
-        'ここはニーズに応じてタイプを追加してください
-        Case adInteger
-            vntP(inti) = p.Value
-        Case Else
-            vntP(inti) = "'" & p.Value & "'"
-    End Select
-    inti = inti + 1
-Next
-strR = cmd.CommandText
-For inti = 1 To UBound(vntP)
-    strR = Replace(strR, "?", vntP(inti), 1, 1)
-Next
-printSql = strR
-End Function
-Private Sub UserForm_Click()
-End Sub
-```

修正

2020/08/05 05:16

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -200,7 +200,17 @@
+FINAL:
+```
+```vba
-FINAL:<sheet1>
+<sheet1>
 Option Explicit
@@ -366,28 +376,4 @@
-    'ファイナル処理
-    On Error Resume Next
-    Set rs = Nothing
-    Set con = Nothing
-End Sub
 ```
-``````test
-ここに言語を入力
-```
-```

改善

2020/08/05 04:40

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -28,7 +28,7 @@
 シングルコーテーションを文字として扱う場合、SQL文のため、テキストボックスからデータを入力する際は
-A,B''cde,C,D,Eとなります。2つつける必要があるからです。[リンク内容](test.txt)
+A,B''cde,C,D,Eとなります。2つつける必要があるからです。
 これで、データベースには
@@ -200,6 +200,96 @@
+FINAL:<sheet1>
+Option Explicit
+Private Sub CommandButton1_Click()
+    UserForm1.Show
+End Sub
+<UserForm1> テキストボックスとコマンドボタンだけ
+Option Explicit
+Private Sub CommandButton1_Click() 'ボタンを押すと
+    On Error GoTo ERROR
+    Dim con As New ADODB.Connection
+    Dim rs As New ADODB.Recordset
+    Dim cmd As New ADODB.Command
+    Dim param As New ADODB.Parameter
+    Dim ds As String            'データソース定義
+    Dim user As String          'ユーザ名
+    Dim pass As String          'パスワード
+    ds = "Provider=OraOLEDB.oracle;"
+    ds = ds & "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.0.5)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XEPDB1)));"
+    ds = ds & "User ID=HTS;Password=htshts"
+    con.ConnectionString = ds
+    con.Open
+    cmd.ActiveConnection = con
+    cmd.CommandTimeout = 0
+    cmd.CommandType = adCmdText
+    cmd.CommandText = "select DJNAME ? from EDM"
+    Set param = cmd.CreateParameter("DJNAME", adVarChar, adParamInput, 20)
+    cmd.Parameters.Append param
+    cmd.Parameters("DJNAME").Value = "Avicii I'm Test"
+    rs.CursorLocation = adUseClient
+    rs.CursorType = adOpenStatic
+    TextBox1.Value = printSql(cmd) 'TextBox1に値を入れる
+    rs.Open cmd
+    GoTo FINAL
+ERROR:
+    MsgBox Erl() & "行目：" & ERROR(Err())
 FINAL:
     'ファイナル処理
@@ -214,4 +304,90 @@
+'printSqlの処理として
+Public Function printSql(ByRef cmd As ADODB.Command) As String
+Dim p As ADODB.Parameter
+Dim vntP As Variant
+Dim inti As Integer
+Dim strR As String
+inti = 1
+ReDim vntP(cmd.Parameters.Count)
+For Each p In cmd.Parameters
+    Select Case p.Type
+        'ここはニーズに応じてタイプを追加してください
+        Case adInteger
+            vntP(inti) = p.Value
+        Case Else
+            vntP(inti) = "'" & p.Value & "'"
+    End Select
+    inti = inti + 1
+Next
+strR = cmd.CommandText
+For inti = 1 To UBound(vntP)
+    strR = Replace(strR, "?", vntP(inti), 1, 1)
+Next
+printSql = strR
+End Function
+Private Sub UserForm_Click()
+End Sub
+    'ファイナル処理
+    On Error Resume Next
+    Set rs = Nothing
+    Set con = Nothing
+End Sub
 ```
+``````test
+ここに言語を入力
+```
+```

修正

2020/08/05 04:38

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -28,7 +28,7 @@
 シングルコーテーションを文字として扱う場合、SQL文のため、テキストボックスからデータを入力する際は
-A,B''cde,C,D,Eとなります。2つつける必要があるからです。
+A,B''cde,C,D,Eとなります。2つつける必要があるからです。[リンク内容](test.txt)
 これで、データベースには
@@ -60,6 +60,10 @@
 ```VBA
 Option Explicit

修正

2020/08/05 04:33

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -88,7 +88,7 @@
     Dim con As New ADODB.Connection
-    Dim cmd As ADODB.Command
+    Dim cmd As New ADODB.Command
     Dim rs As New ADODB.Recordset
@@ -126,43 +126,43 @@
     cmd.CommandType = adCmdText
-    cmd.CommandText = "Update EDM set DJNAME = '" & Text6.Text & "',SONGNAME = '" & Text7.Text & "',GENRE = '" & Text8.Text & "',LABEL = '" & Text9.Text & "', YEAR = '" & Text10.Text & "' where NO = '" & TextBox1.Text & "'",con
-    Set param = cmd.CreateParameter("DJNAME", varcher2, adParamInput, 40)
-    cmd.Parameters.Append param
-    Set param = cmd.CreateParameter("SONGNAME", varchar2, adParamInput, 30)
-    cmd.Parameters.Append param
-    Set param = cmd.CreateParameter("GANRE", varchar2, adParamInput, 25)
-    cmd.Parameters.Append param
-    Set param = cmd.CreateParameter("LABELE", varcher2, adParamInput, 20)
-    cmd.Parameters.Append param
-    Set param = cmd.CreateParameter("YEAR", Number, adParamInput, 4)
-    cmd.Parameters.Append param
-　　'テキストボックスに入力したものを
-　　cmd.Parameters("DJNAME").Value = "'" & Text6.Text & "'"
-    cmd.Parameters("SONGNAME").Value = "'" & Text7.Text & "'"
-    cmd.Parameters("GANRE").Value = "'" & Text8.Text & "'"
-    cmd.Parameters("LABEL").Value = "'" & Text9.Text & "'"
-    cmd.Parameters("YEAR").Value = "'" & Text10.Text & "'"
+    cmd.CommandText = "SELECT * FROM EDM WHERE DJNAME = ? AND SONGNAME = ? AND GENRE = ? AND LABEL = ? AND YEAR = ?"
+    Set param = cmd.CreateParameter("DJNAME", adVarChar, adParamInputOutput, 45)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("SONGNAME", adVarChar, adParamInputOutput, 30)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("GENRE", adVarChar, adParamInputOutput, 25)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("LABEL", adVarChar, adParamInputOutput, 20)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("YEAR", adVarNumeric, adParamInputOutput, 4)
+    cmd.Parameters.Append param
+　　'テキストボックスに取得されたもの
+　　cmd.Parameters("DJNAME").Value = Text6.Text
+    cmd.Parameters("SONGNAME").Value = Text7.Text
+    cmd.Parameters("GENRE").Value = Text8.Text
+    cmd.Parameters("LABEL").Value = Text9.Text
+    cmd.Parameters("YEAR").Value = Text10.Text
@@ -172,8 +172,14 @@
     Else
+        rs.CursorLocation = adUseClient
+        rs.CursorType = adOpenStatic
         rs.Open cmd
+        rs.Open "Update EDM set DJNAME = '" & Text6.Text & "',SONGNAME = '" & Text7.Text & "',GENRE = '" & Text8.Text & "',LABEL = '" & Text9.Text & "', YEAR = '" & Text10.Text & "' where NO = '" & TextBox1.Text & "'", con
         MsgBox "データを更新しました"
     End If

修正

2020/08/05 01:04

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -66,35 +66,41 @@
 Private Sub UserForm_Initialize()
-    Text1.Value = Cells(ActiveCell.Row, 1).Value
+    TextBox1.Value = Cells(ActiveCell.Row, 1).Value
-    Text2.Value = Cells(ActiveCell.Row, 2).Value
+    Text6.Value = Cells(ActiveCell.Row, 2).Value
-    Text3.Value = Cells(ActiveCell.Row, 3).Value
+    Text7.Value = Cells(ActiveCell.Row, 3).Value
-    Text4.Value = Cells(ActiveCell.Row, 4).Value
+    Text8.Value = Cells(ActiveCell.Row, 4).Value
-    Text5.Value = Cells(ActiveCell.Row, 5).Value
+    Text9.Value = Cells(ActiveCell.Row, 5).Value
-    Text6.Value = Cells(ActiveCell.Row, 6).Value
+    Text10.Value = Cells(ActiveCell.Row, 6).Value
 End Sub
-Private Sub CommandButton1_Click()　フォームのデータ更新ボタン
+Private Sub CommandButton1_Click()  'データ更新
     On Error GoTo ERROR
     Dim con As New ADODB.Connection
+    Dim cmd As ADODB.Command
     Dim rs As New ADODB.Recordset
-    Dim ds As String
+    Dim param As ADODB.Parameter
+    Set cmd = New ADODB.Command
+    Dim ds As String            'データソース定義
-    Dim user As String
+    Dim user As String          'ユーザ名
-    Dim pass As String
+    Dim pass As String          'パスワード
@@ -112,13 +118,61 @@
-    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then
+　　'ここから追記したもの
+　　cmd.ActiveConnection = con
+    cmd.CommandTimeout = 0
+    cmd.CommandType = adCmdText
+    cmd.CommandText = "Update EDM set DJNAME = '" & Text6.Text & "',SONGNAME = '" & Text7.Text & "',GENRE = '" & Text8.Text & "',LABEL = '" & Text9.Text & "', YEAR = '" & Text10.Text & "' where NO = '" & TextBox1.Text & "'",con
+    Set param = cmd.CreateParameter("DJNAME", varcher2, adParamInput, 40)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("SONGNAME", varchar2, adParamInput, 30)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("GANRE", varchar2, adParamInput, 25)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("LABELE", varcher2, adParamInput, 20)
+    cmd.Parameters.Append param
+    Set param = cmd.CreateParameter("YEAR", Number, adParamInput, 4)
+    cmd.Parameters.Append param
+　　'テキストボックスに入力したものを
+　　cmd.Parameters("DJNAME").Value = "'" & Text6.Text & "'"
+    cmd.Parameters("SONGNAME").Value = "'" & Text7.Text & "'"
+    cmd.Parameters("GANRE").Value = "'" & Text8.Text & "'"
+    cmd.Parameters("LABEL").Value = "'" & Text9.Text & "'"
+    cmd.Parameters("YEAR").Value = "'" & Text10.Text & "'"
+    If TextBox1.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Then
         MsgBox "データをすべて入力してください"
     Else
-        rs.Open "Update EDM set A = '" & Text1.Text & "',B = '" & Text2.Text & "%',C = '" & Text3.Text & "',D = '" & Text4.Text & "', E = '" & Text5.Text & "' where F = '" & Text6.Text & "'", con
+        rs.Open cmd
         MsgBox "データを更新しました"
@@ -132,13 +186,13 @@
 ERROR:
-    MsgBox Erl() & "?s??F" & ERROR(Err())
+    MsgBox Erl() & "行目" & ERROR(Err())
 FINAL:
-    '?t?@?C?i??????
+    'ファイナル処理
     On Error Resume Next

修正

2020/08/04 07:15

投稿

EDM

スコア30

test CHANGED Viewed

	@@ -1 +1 @@
1	- Excel VBA データベースのデータを更新する際
1	+ Excel VBA データベースのデータを更新する際のシングルコーテーションについて

test CHANGED Viewed

File without changes

誤字

2020/08/04 03:36

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -30,9 +30,9 @@
 A,B''cde,C,D,Eとなります。2つつける必要があるからです。
-これで、シートには
+これで、データベースには
-A,B'cde,C,D,E　このように表示されます。
+A,B'cde,C,D,E　として追加され、シートに表示されるときもこのように表示されます。

誤字

2020/08/04 03:12

投稿

EDM

スコア30

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -22,7 +22,7 @@
 その際のシングルコーテーションについて
-データ追加の時、このようなデータを入力したとします。
+データ追加の時、このようなデータを追加したいとします。
 A,B'cde,C,D,E（,はそれぞれのテキストボックスにという意味です）