質問編集履歴
3
文の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -52,6 +52,19 @@
|
|
|
52
52
|
Set Rs = Nothing
|
|
53
53
|
Set Cn = Nothing
|
|
54
54
|
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
End Sub
|
|
55
58
|
```
|
|
56
59
|
|
|
60
|
+
また、**「Q_m_kokyaku_shohin」は、クエリです。**
|
|
61
|
+
**ODBCでSQLserverより接続したリンクテーブルを、二つ使用して作っています。**
|
|
62
|
+
|
|
63
|
+
この**クエリをの全データの中から、任意の一文字の前方一致検索に対応するデータを
|
|
57
|
-
|
|
64
|
+
取得したい**です。
|
|
65
|
+
|
|
66
|
+
また、初めの一文字はユーザーが入力する任意の値を想定している為、「＊」を使用しています。
|
|
67
|
+
こちらも何か問題のある記述でしょうか。。。
|
|
68
|
+
ネットで調べると、「初めがAの前方一致検索」など、特定のを使う方法しか出てこないもので…。
|
|
69
|
+
細かい部分の記述の仕方がわからず困っています。
|
|
70
|
+
どうかお知恵をお貸しください。
|
2
ｄ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,7 +29,7 @@
|
|
|
29
29
|
//Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています
|
|
30
30
|
|
|
31
31
|
strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
|
|
32
|
-
strSQL =
|
|
32
|
+
strSQL = strSQL & " WHERE Q_m_kokyaku_shohin like '*%'"
|
|
33
33
|
|
|
34
34
|
Cn.ConnectionString = strConnectionString
|
|
35
35
|
Cn.Open
|
1
ｒ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,7 +25,8 @@
|
|
|
25
25
|
Dim strConnectionString As String 'SQLServer接続文字列
|
|
26
26
|
|
|
27
27
|
|
|
28
|
-
strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2"))
|
|
28
|
+
strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2"))
|
|
29
|
+
//Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています
|
|
29
30
|
|
|
30
31
|
strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
|
|
31
32
|
strSQL = sSql & " WHERE Q_m_kokyaku_shohin like '*%'"
|