自定义打印机页面示例

huisiming

目前正需要这个。

yjlchen

谢谢分享

zxclen

SEEEEEEEEEEEEEEEEEEEE

zhfcm

oookkkk

hwhwenha01

Private Sub Form_Load() Dim rst As ADODB.Recordset     Dim strConnect As String     Dim strSQL As String     ' 使用Microsoft Data Shaping Service for OLE DB provider连接到sql server.     strConnect = "rovider=MSDataShape;Data Provider=SQLOLEDB;" _         & "Integrated Security=SSPI;Data Source=len1060;" _         & "Initial Catalog=Northwind;user id=sa;password="     '也可以使用下面的连接字符串     'strConnect = "rovider=Microsoft.Access.OLEDB.10.0ersist Security Info=False;Data Source=len1060;User ID=sa;Password=;Initial Catalog=Northwind;Data Provider=SQLOLEDB.1"     ' 建立选择语句.     strSQL = "SELECT ContactName, CompanyName, Address, " & _         "City FROM Customers WHERE (Region = 'SP')"     ' 初始化ADO记录集.     Set rst = New ADODB.Recordset     With rst         .ActiveConnection = strConnect         .LockType = adLockOptimistic         .Open strSQL     End With     ' 设置表单记录集属性     Set Me.Recordset = rst     ' 设置ControlSource属性     ' 将表单项目与记录集字段对应.     txtContactName.ControlSource = "ContactName"     txtCompanyName.ControlSource = "CompanyName"     txtAddress.ControlSource = "Address"     txtCity.ControlSource = "City"     rst.Close End Sub

yanhantan

好东西啊，下来看下

mictiger

这个很实用，谢谢分享

dd783130

谢谢

rspring

good

zwl01

很实用的功能