说明: Dim cn As New ADODB.Connection Dim sr As New ADODB.Recordset Dim jibie As Integer cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表);Data Source=(你的服务器名字)" sr.Open "select * from TABLE1 w h <wangdi521385> 上传 | 大小:115kb
说明: Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As Integer, temp As Integer Private Sub Command1_Click() For i = 1 To 5 For j = 1 To 5 <d4039399> 上传 | 大小:225byte