无法从字符串中删除最后一个字符
Cannot Remove Last Character From String
我有一个 Access 数据库,我正在查询员工 table。新员工的姓氏在末尾附加一个星号(例如:Bob Smith*)。在我的查询中,我试图删除星号并将员工姓名加载到 ComboBox 中。但是,ComboBox 仍然是空白的。如果我 运行 Access 本身的查询,它会产生预期的结果。
数据库结构:
相关代码如下:
Public Class frmMain
Dim data As DataSet
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'load data from master database
data = New DataSet
Dim a As New OleDbDataAdapter("SELECT LEFT(Last_Name_String, LEN(Last_Name_String)-1), First_Name_String FROM Basic_Employee_Information_Table", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
fileReader.ToString())
a.Fill(data, "Employees")
For Each item In data.Tables("Employees").Rows
cboEmployee.Items.Add(item("Last_Name_String") & ", " & item("First_Name_String"))
Next
End Sub
您的查询未返回任何名为 "Last_Name_string" 的内容。使用别名:
SELECT LEFT(Last_Name_String, LEN(Last_Name_String)-1) as Last_Name_String,
First_Name_String
我有一个 Access 数据库,我正在查询员工 table。新员工的姓氏在末尾附加一个星号(例如:Bob Smith*)。在我的查询中,我试图删除星号并将员工姓名加载到 ComboBox 中。但是,ComboBox 仍然是空白的。如果我 运行 Access 本身的查询,它会产生预期的结果。
数据库结构:
相关代码如下:
Public Class frmMain
Dim data As DataSet
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'load data from master database
data = New DataSet
Dim a As New OleDbDataAdapter("SELECT LEFT(Last_Name_String, LEN(Last_Name_String)-1), First_Name_String FROM Basic_Employee_Information_Table", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
fileReader.ToString())
a.Fill(data, "Employees")
For Each item In data.Tables("Employees").Rows
cboEmployee.Items.Add(item("Last_Name_String") & ", " & item("First_Name_String"))
Next
End Sub
您的查询未返回任何名为 "Last_Name_string" 的内容。使用别名:
SELECT LEFT(Last_Name_String, LEN(Last_Name_String)-1) as Last_Name_String,
First_Name_String