Private Sub Form_Load() Dim sql As String Dim sdata(1 To 15, 1 To 14) As Variant Dim rs As New Recordset Dim cn As New ADODB.Connection cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=." sql = "Select sdatetime,data from udata" 's = "Select sdatetime,data from udata" 'Set rs = GetRs(s) rs.Open sql, cn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then Exit Sub ReDim ss(rs.RecordCount)
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......