Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
突然、ひらかなの濁点で検索できなくなった
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30601#CommentId84462
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
hori
 (社会人)
投稿日時
2021/4/23 13:14:45
フォームにテキストボックスとデータグリッドビューを貼り付け、以下のコードを書きました。
=======================================================================
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DT\試作\TEST.accdb")
Dim SQLCm As OleDbCommand = Cn.CreateCommand
Dim Adapter As New OleDbDataAdapter(SQLCm)
Dim Table As New DataTable
SQLCm.CommandText = "SELECT * FROM TBL"
Try
Adapter.Fill(Table)
Catch ex As Exception
End Try
Table.Columns.Add("検索文字列", GetType(String))
For Each row As DataRow In Table.Rows
row("検索文字列") = row("名前")
row("検索文字列") &= " " & row("カナ")
Next
DataGridView1.DataSource = Table
DataGridView1.ReadOnly = True
Table.Dispose()
Adapter.Dispose()
SQLCm.Dispose()
Cn.Dispose()
End Sub
Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
If e.KeyCode = Keys.Tab Then
Dim Table As DataTable = DirectCast(DataGridView1.DataSource, DataTable)
Dim View As DataView = Table.DefaultView
View.RowFilter = "検索文字列 LIKE '%" & TextBox1.Text & "%'"
End If
End Sub
End Class
===============================================================================
データベース TEST の中身は
山田太郎 / ヤマダ タロウ
山口忠夫 / ヤマグチ タダオ
鈴木花子 / スズキ ハナコ
にしました。
[やま]で、山田太郎と山口忠夫がヒットしますが
[やまだ]では何もヒットせず
[やまた゛]で山田がヒットします。
今までは、[やまだ]で山田がヒットしていました。
僕の環境は、Windows 10 20H2、
.NET Framework 4.8 の May 2020 版のようです。
Access の何かが変わったのでしょうか?
このままでは、結構不便です。