|
|
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 '如果以连接过，则关闭，初始化下次事务
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=" amp; 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 , , tablename
End If
biaoming.MoveNext
Loop
Set biaoming = Nothing
menu1.Enabled = True
list1_MouseUp 1, 0, 10, 10
End Sub
Private Sub Command1_Click() '打开数据库
d.DialogTitle = "打开一个数据库文件进行浏览"
d.InitDir = App.Path
d.FileName = ""
d.Filter = "Access数据库(mdb后缀,推荐格式) *.mdb"
d.ShowOpen
If d.FileName = "" Then Exit Sub
opendatabase d.FileName
End Sub
Private Sub Command4_Click()
str1 = InputBox("请输入一个1-5000之间的数字", "重设", Text1.Text)
If str1 = Text1.Text Or str1 = "" Then Exit Sub
If IsNumeric(str1) = False Then Exit Sub
If str1 > 5000 Or str1 < 1 Then Exit Sub
Text1.Text = str1
If list1.ListItems.Count = 0 Then Exit Sub Else list1_MouseUp 1, 0, 10, 10
End Sub
Private Sub down_Click() '功能，下一页
page = page + 1: list1_MouseUp 1, 0, 10, 10
End Sub
Private Sub findstr_Click() '查询数据
If InStr(Text2.Text, "'") <> 0 Then MsgBox "查询时关键字不允许包含 ' 符号", vbCritical, "无效字符": Exit Sub
If rs.State = 1 Then rs.Close
rs.Open "select " amp; c.Text amp; " from " amp; list1.SelectedItem.Text amp; " where " amp; c.Text amp; " like '%" amp; Text2.Text amp; "%'", link1, adOpenStatic, adLockReadOnly
If rs.EOF Then MsgBox "没有符号条件的记录,请从新查找", vbCritical, "未发现记录": Exit Sub
Do While Not rs.EOF
i = i + 1
str1 = str1 amp; i amp; " ： " amp; rs(0) amp; vbCrLf
rs.MoveNext
Loop
MsgBox str1, vbExclamation, "查询结果 - " amp; rs.RecordCount amp; "匹配"
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（未完）
|
|
 |
关键字:
|
|
|
|
| 杀毒软件免费随便用
瑞星全功能安全软件2009 基于“云安全”策略和“智能主动防御”技术开发.
www.rising.com.cn
|
|
|
|
