代码是这样的
Dim strsql As String
Dim AdoRc As New ADODB.Recordset
Dim amount As Double
Dim department As String
Dim datetime As Date
Dim name As String
Dim UserID As String
strsql = "select UserID,[Name],Department,Amount ,[Date] from SalesInfo(nolock)"
AdoRc.Open strsql, mobjConn, adOpenStatic, adLockReadOnly
amount = IIf(IsNull(Val(AdoRc.Fields("Amount").Value)), "", Val(AdoRc.Fields("Amount").Value))
department = IIf(IsNull(AdoRc.Fields("Department")), "", AdoRc.Fields("Department"))
datitime = IIf(IsNull(AdoRc.Fields("Date")), "", AdoRc.Fields("Date"))
name = IIf(IsNull(AdoRc.Fields("Name")), "", AdoRc.Fields("Name"))
UserID = IIf(IsNull(AdoRc.Fields("UserId")), "", AdoRc.Fields("UserId"))
我现在需要把这个变量的值传递给打印机,请问下怎么写才能实现效果!请高手不吝指教!急急急!谢谢啊,在线等
|