怎么用数据环境与DataGrid相连？

Question

再更新子后command1也要刷新一下呀

Answer 1

首先测试一下你的数据库连接是否成功
Public Function sqlconection() '数据库连接函数
Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Password=xxx;User ID=sa;Initial Catalog=vvv;Data Source=aaa" 
Set sqlconection = cn
If cn.State = 1 Then
MsgBox ("数据库连接成功")
else
MsgBox ("数据库连接失败哦老兄！")
end if
End Function
再来绑定也不迟啊：：：
Private Sub Form_Load() '数据绑定
Dim rs As New ADODB.Recordset
Set cn = sqlconection()
rs.Open "select * from t_user", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
 DataGrid1.Refresh
End Sub