7,785
社区成员




Dim myrs As ADODB.Recordset
Set myrs = New ADODB.Recordset
With myrs
Set .ActiveConnection = gobjCnn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '"
end with
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
myrs.close
set myrs = nothing