我如何搜索名称（阿拉伯语） [英] How can I search for name(arabic)

问题描述

我有DB2数据库我通过vb.net连接到它所有thimg都可以

但是当我想通过名字搜索一个Employee时它不起作用

这里的代码是有用的，如果gname.text清除显示所有的emplyee



我尝试过：

i have DB2 database i connect to it by vb.net all thimg is ok
but when i want to search for an Employee by by name it is not work
here code it work if gname.text is clear show all emplyee

What I have tried:

Dim s As String = "SELECT GEMPNO, GNAME, GTERM  FROM qgpl.testz where gname like '% " & gname.Text & " %' ORDER BY RNAME  "
 dim selectCMD As OdbcCommand = New OdbcCommand(s, MyODBCConnection)
  Dim Adapter As OdbcDataAdapter = New OdbcDataAdapter(selectCMD.CommandText, MyODBCConnection)
            Dim ds As DataSet = New DataSet
            ds.Clear()
            Adapter.Fill(ds, "MyTable")
            Dim Row As DataRow
            Dim listItem1 As New ListViewItem()
            For Each Row In ds.Tables(0).Rows
                If Not IsDBNull(Row.Item(0)) Then
                    listItem1 = New ListViewItem(Row.Item(0).trim.ToString)
                Else
                    listItem1 = New ListViewItem("")
                End If
                If Not IsDBNull(Row.Item(1)) Then
                    listItem1.SubItems.Add(Row.Item(1).ToString.Trim)
                Else
                    listItem1.SubItems.Add("")
                End If
                If Not IsDBNull(Row.Item(2)) Then
                    listItem1.SubItems.Add(Row.Item(2).ToString)
                Else
                    listItem1.SubItems.Add("")
                End If
                ListView1.Items.Add(listItem1)
            Next
        Catch ex As Exception
        End Try
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items(i).SubItems(2).Text <> 0 Then
                ListView1.Items(i).BackColor = Color.LightBlue
            Else
                ListView1.Items(i).BackColor = Color.White
            End If
        Next
        MyODBCConnection.Close()
        MyODBCConnection.Dispose()

推荐答案

'此代码解决了我的问题



Dim s As String =SELECT EMPNO，NAME FROM lib.file

Dim selectCMD As OdbcCommand = New OdbcCommand（s，MyODBCConnection）

'启动Read循环

Dim Adapter As OdbcDataAdapter = New OdbcDataAdapter（selectCMD.CommandText，MyODBCConnection）

Dim ds As DataSet = New DataSet < br $>
ds.Clear（）

Adapter.SelectCommand = New OdbcCommand（SELECT EMPNO，NAME FROM lib.file，其中NAME喜欢？，MyODBCConnection）

Adapter.SelectCommand.Parameters.Add（@ GNAME，Odbc.OdbcType.NVarChar）.Value =％& gname.Text

Adapter.SelectCommand.ExecuteNonQuery（）

Adapter.Fill（ds，MyTable）

Dim Row As DataRow

Dim listItem1 As New ListViewItem（）

每行在ds.Tables（0）.Rows

'this code solve my problem

Dim s As String = "SELECT EMPNO, NAME FROM lib.file "
Dim selectCMD As OdbcCommand = New OdbcCommand(s, MyODBCConnection)
'start the Read loop
Dim Adapter As OdbcDataAdapter = New OdbcDataAdapter(selectCMD.CommandText, MyODBCConnection)
Dim ds As DataSet = New DataSet
ds.Clear()
Adapter.SelectCommand = New OdbcCommand("SELECT EMPNO, NAME FROM lib.file where NAME like ? ", MyODBCConnection)
Adapter.SelectCommand.Parameters.Add("@GNAME", Odbc.OdbcType.NVarChar).Value = "%" & gname.Text
Adapter.SelectCommand.ExecuteNonQuery()
Adapter.Fill(ds, "MyTable")
Dim Row As DataRow
Dim listItem1 As New ListViewItem()
For Each Row In ds.Tables(0).Rows

这篇关于我如何搜索名称（阿拉伯语）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！