暗码。

10，则封锁， rstext Else list2.ListItems(r + 1).ListSubItems.Add ， y As Single) 切换表 On Error Resume Next If list1.ListItems.Count = 0 Then Exit Sub If rs.State = 1 Then rs.Close list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear rs.Open select * from list1.SelectedItem.Text。

adLockReadOnly For i = 0 To rs.Fields.Count - 1 str1 = str1 rs.Fields(i).Name ， Now ) link1.Execute insert into 新建表 str1 (会员名。

0， ， tablename End If biaoming.MoveNext Loop Set biaoming = Nothing menu1.Enabled = True list1_MouseUp 1。

， 犯科则的名目: Exit Sub End If rs.PageSize = Text1.Text rslen = rs.RecordCount If rs.PageCount Label3.Caption = 共 rslen 笔记录， 10， 。

vbCritical。

adOpenStatic， vbExclamation， rstext Else 非首次填充下一下 If rstext Empty Then list2.ListItems(r + 1).ListSubItems.Add ， str3 = str3 rs.Fields(i).ActualSize 。

未发明记录: Exit Sub Do While Not rs.EOF i = i + 1 str1 = str1 i ： rs(0) vbCrLf rs.MoveNext Loop MsgBox str1，插手日期) values (风云舞， adOpenStatic， str2 = str2 rs.Fields(i).Type ， 10 End Sub Private Sub down_Click() 成果。

str4 = str4 rs.Fields(i).DefinedSize ， End If rs.MoveNext Next Next If c.ListCount 0 Then c.ListIndex = 0: findstr.Enabled = True Else findstr.Enabled = False Set ziduan = Nothing End Sub Private Sub menu01_Click(Index As Integer) Select Case Index Case 1: 建新演出示 str1 = 1 For i = 1 To list1.ListItems.Count If InStr(list1.ListItems(i).Text， vbExclamation，年数， 10，措施巨细29K 完整原措施下载地点: 代码欣赏： Dim link1 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim page As Integer Dim pubdatapath As String Sub opendatabase(datapath As String) 打开数据库函数 page = 1 首次界说打开时的页码为1 If link1.State = 1 Then 假如以毗连过，365， 10 End Sub ， Shift As Integer， 查询功效 - rs.RecordCount 匹配 End Sub Private Sub Form_Resize() list1.ColumnHeaders(1).Width = list1.Width - 80 list2.Width = Me.ScaleWidth - list2.Left - 30 list1.Height = Me.ScaleHeight - list1.Top - 30 list2.Height = Me.ScaleHeight - (Me.ScaleHeight - down.Top) - 150 End Sub Private Sub Form_Unload(Cancel As Integer) If rs.State = 1 Then rs.Close If link1.State = 1 Then link1.Close Set rs = Nothing: Set link1 = Nothing End Sub Private Sub list1_MouseUp(Button As Integer，插手日期) values (Lshdic，年数。

Next MsgBox 包括字段: str1 vbCrLf vbCrLf 字段范例: str2 vbCrLf vbCrLf 第一行数据巨细: _ str3 vbCrLf vbCrLf 每行数据预设容量: str4， 新建表) = 1 Then str1 = str1 + 1 Next link1.Execute create table 新建表 str1 (会员名 Text。

暗码 Varchar(8)，年数 int not null， 10 End Sub Private Sub findstr_Click() 查询数据 If InStr(Text2.Text，具体请自行下载举办进修测试。

Now ) opendatabase pubdatapath 刷新重装载列表 Case 2: 刷新重装载 opendatabase pubdatapath Case 3: 删除 If rs.State = 1 Then rs.Close link1.Execute Drop table list1.SelectedItem.Text opendatabase pubdatapath Case 4: 表属性 If rs.State = 1 Then rs.Close rs.Open select * from list1.SelectedItem.Text，18。

87654321 _ 。

重设，推荐名目)|*.mdb d.ShowOpen If d.FileName = Then Exit Sub opendatabase d.FileName End Sub Private Sub Command4_Click() str1 = InputBox(请输入一个1-5000之间的数字，上一页 page = page - 1: list1_MouseUp 1，履历值，共 rs.PageCount 页， 。

adOpenStatic，请重新查找。

0，履历值 _ integer， 10，初始化下次事务 link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear End If link1.ConnectionString = Provider=microsoft.jet.oledb.4.0;data source= datapath link1.Open pubdatapath = datapath Set biaoming = link1.OpenSchema(adSchemaColumns) 建设数据库记录集 tablename = Do Until biaoming.EOF If biaoming(table_name) tablename Then 列出所有表 tablename = biaoming(table_name) list1.ListItems.Add ， link1， vbCritical。

履历值， 0，插手日期 DateTime null) link1.Execute insert into 新建表 str1 (会员名， adLockReadOnly If Err.Number 0 Then MsgBox 该数据表不能支持的游标模式，18，在WIN98调试通过。

12345678 _ ，当前页码 page If rs.PageCount page Then down.Enabled = True Else down.Enabled = False If page 1 Then up.Enabled = True Else up.Enabled = False Set ziduan = rs.Fields 界说字段记录集 For i = 0 To ziduan.Count - 1 list2.ColumnHeaders.Add ， Text1.Text) If str1 = Text1.Text Or str1 = Then Exit Sub If IsNumeric(str1) = False Then Exit Sub If str1 5000 Or str1 Text1.Text = str1 If list1.ListItems.Count = 0 Then Exit Sub Else list1_MouseUp 1， ， link1。

0，下一页 page = page + 1: list1_MouseUp 1，暗码， 10 End Sub Private Sub Command1_Click() 打开数据库 d.DialogTitle = 打开一个数据库文件举办欣赏 d.InitDir = App.Path d.FileName = d.Filter = Access数据库(mdb后缀， 数据库数据显示演示措施，365， ziduan(i).Name 按照字段指定视图列 c.AddItem ziduan(i).Name rs.MoveFirst 记录到尾后填充下一列 rs.AbsolutePage = page 界说记录集的绝对页码 For r = 0 To rs.PageSize - 1 If rs.EOF Then Exit For rstext = rs(i) If i = 0 Then 首次直接填充第一列 list2.ListItems.Add ， 表属性 End Select End Sub Private Sub Text2_GotFocus() If Text2.Text = 查找要害字... Then Text2.Text = End Sub Private Sub Text2_LostFocus() If Text2.Text = Then Text2.Text = 查找要害字... End Sub Private Sub up_Click() 成果。

vbCritical， x As Single， 无效字符: Exit Sub If rs.State = 1 Then rs.Close rs.Open select c.Text from list1.SelectedItem.Text where c.Text like % Text2.Text %， link1， adLockReadOnly If rs.EOF Then MsgBox 没有标记条件的记录， ) 0 Then MsgBox 查询时要害字不答允包括 标记，。