使用 OleDb 将 ID 自动递增到 excel
Auto increment ID using OleDb to excel
我想在 excel 文件中添加新数据时自动增加 ID。这段代码有什么问题错误说 "Syntax error (missing operator) in query expression 'MAX [ID]'"
Dim Value As Integer
cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "C:\Users\Barbatos\Desktop\Book3.xlsx " + ";Extended Properties=Excel 12.0;")
cm = New OleDbCommand("SELECT MAX [ID] FROM [Sheet1$]", cn)'error here
cn.Open()
Dim dr As OleDbDataReader = cm.ExecuteReader()
If dr.HasRows Then
dr.Read()
Value = dr(0)
Else
End If
dr.Close()
MAX
是一个函数,因此您需要在括号中包含参数:
SELECT MAX([ID]) FROM [Sheet1$]
我想在 excel 文件中添加新数据时自动增加 ID。这段代码有什么问题错误说 "Syntax error (missing operator) in query expression 'MAX [ID]'"
Dim Value As Integer
cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "C:\Users\Barbatos\Desktop\Book3.xlsx " + ";Extended Properties=Excel 12.0;")
cm = New OleDbCommand("SELECT MAX [ID] FROM [Sheet1$]", cn)'error here
cn.Open()
Dim dr As OleDbDataReader = cm.ExecuteReader()
If dr.HasRows Then
dr.Read()
Value = dr(0)
Else
End If
dr.Close()
MAX
是一个函数,因此您需要在括号中包含参数:
SELECT MAX([ID]) FROM [Sheet1$]