level 2
疋亣皇太子丿呉
楼主
语法错误 (操作符丢失) 在查询表达式 *S_ YclcjNm* 中。
代码如下 去掉后面几个项目是对的 加上就错了
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlc As String = "select S_Yclid as 原材料编号,S_YclNm as 原材料名称,S_Yclpic as 原材料单价￥,S_ YclcjNm as 原材料厂商，S_ Yclrktime as 入库日期 S_ Yclbzq as 原材料保质期（月） from 原材料库存表"
Dim dataAdapter As OleDbDataAdapter = New OleDbDataAdapter(sqlc, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\yr\Desktop\X系统\stgl.accdb")
Dim dst As New DataSet
Dim dt As New DataTable
crs.Open()
dataAdapter.Fill(dst)
dt = dst.Tables(0)
DataGridView1.AutoGenerateColumns = True *自动创建列
DataGridView1.DataSource = dt
crs.Close()
2014年10月09日 11点10分
1
代码如下 去掉后面几个项目是对的 加上就错了
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlc As String = "select S_Yclid as 原材料编号,S_YclNm as 原材料名称,S_Yclpic as 原材料单价￥,S_ YclcjNm as 原材料厂商，S_ Yclrktime as 入库日期 S_ Yclbzq as 原材料保质期（月） from 原材料库存表"
Dim dataAdapter As OleDbDataAdapter = New OleDbDataAdapter(sqlc, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\yr\Desktop\X系统\stgl.accdb")
Dim dst As New DataSet
Dim dt As New DataTable
crs.Open()
dataAdapter.Fill(dst)
dt = dst.Tables(0)
DataGridView1.AutoGenerateColumns = True *自动创建列
DataGridView1.DataSource = dt
crs.Close()
