Question

VB利用Recordset从数据库读取到DataGridView1的问题？

设想：利用Recordset从数据库里读取数据，然后在DataGridView1中显示，然后我可以对选中的记录行，做更新、删除等操作。下面是我的代码，但是DataGridView1不显示任何数据。请高手帮我看看
'代码开始
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作
Conn = New ADODB.Connection '数据库对象的实例化
Rst = New ADODB.Recordset '记录集对象的实例化
Dim MainConnect As String
'Dim Sql As String
MainConnect = "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"
conn = New ADODB.Connection
Conn.Open(MainConnect)
'Sql = "select * from WA_PRWorkNum"
Rst.Open("select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn)
DataGridView1.DataSource = Rst
DataGridView1.Refresh()
MsgBox(" 连接成功", vbExclamation + vbOKOnly)
'代码结束

Answer 1

Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Conn.Open "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"
Rst.Open "select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn, 1, 1
DataGridView1.DataSource = Rst
DataGridView1.Refresh
MsgBox "连接成功", vbExclamation + vbOKOnly

不要乱用括号。方法（或者把函数当作方法来使用时）的参数是不能加括号的。