level 9
dl_会飞的青蛙
楼主
Option ExplicitPublic appdisk As StringPublic conn As New ADODB.ConnectionPublic Rs As New ADODB.RecordsetPublic db As StringPrivate sSQL As StringPrivate iPage As IntegerPrivate Sub cmdNext_Click() If iPage + 1 = Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount Else Rs.AbsolutePage = iPage + 1 iPage = iPage + 1 End IfEnd SubPrivate Sub Command1_Click() If iPage - 1 = 0 Then Rs.AbsolutePage = iPage Else Rs.AbsolutePage = iPage - 1 iPage = iPage - 1 End IfEnd SubPrivate Sub Form_Load() iPage = 1 Dim i As Integer On Error GoTo Err appdisk = Trim(App.Path) If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\" db = appdisk db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "db1.mdb" conn.CursorLocation = adUseClient conn.Open db Rs.Open "select * from pump4", conn, adOpenDynamic, adLockOptimistic Rs.PageSize = 10 Set DataGrid1.DataSource = Rs DataGrid1.Columns(0).Width = 15 * 7 * 3 DataGrid1.Columns(1).Width = 15 * 7 * 10 DataGrid1.Columns(2).Width = 15 * 7 * 8 DataGrid1.Columns(3).Width = 15 * 7 * 7 DataGrid1.Columns(4).Width = 15 * 7 * 7 DataGrid1.Columns(5).Width = 15 * 7 * 7 DataGrid1.Columns(6).Width = 15 * 7 * 7 DataGrid1.Columns(7).Width = 15 * 7 * 7 DataGrid1.Columns(8).Width = 15 * 7 * 7 DataGrid1.Columns(9).Width = 15 * 7 * 7 DataGrid1.Columns(10).Width = 15 * 7 * 7 DataGrid1.Columns(11).Width = 15 * 7 * 9 DataGrid1.Columns(12).Width = 15 * 7 * 9 DataGrid1.Columns(13).Width = 15 * 7 * 9 DataGrid1.Columns(14).Width = 15 * 7 * 10 Exit SubErr: MsgBox Err.Number Unload MeEnd Sub
2008年08月21日 12点08分
1
