首先建一个连接SQL Server数据库的链接表或查询,包含窗体要用到的字段,然后,把这表或查询作为窗体的数据源
然后,在窗体设计模式,选择字段,拖拽到窗体上,排列好,之后,删除窗体的数据源
再在窗体的加载事件中指定窗体的记录集属性,例如:
Private Sub Form_Load()
Dim ors As New ADODB.Recordset
Dim oConn As New ADODB.Connection
' SQLServer 数据库ADO连接
oConn.Open "Provider=Microsoft.Access.OLEDB.10.0;Data Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=(Local)\SQLExpress;Initial Catalog=ShipsManager;User ID=*****;Password=*************"
' 打开ADO记录集
ors.Open "Select * FROM dbo.tSend", oConn, adOpenKeyset, adLockOptimistic
' 绑定到窗体
Set Me.Recordset = ors
End Sub
请注意连接字符串,必须这样“Provider=Microsoft.Access.OLEDB.10.0;Data Provider=SQLOLEDB.1;”,窗体才能真正编辑数据。