基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑
2008-05-01 05:45
309 查看
数据库数据编辑演示程序,在WIN98调试通过,详细请自行下载进行学习测试,程序大小29K
下载地址:ADOedit.zip">http://www.lshdic.com/download/lshdic/vb_ADOedit.zip
代码浏览:
Dim dataname As String
Private Sub Command1_Click()
d.DialogTitle = "打开一个Access数据库进行编辑"
d.FileName = ""
d.InitDir = App.Path
d.Filter = "Access数据库文件MDB后缀|*.mdb"
d.ShowOpen
If d.FileName = "" Then Exit Sub
list1.Clear
Set link1 = New ADODB.Connection '创建ADO连接
link1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & d.FileName
Set tables = link1.OpenSchema(adSchemaColumns) '创建数据库记录集为了得到数据库中所有表名
oldtablename = ""
Do While Not tables.EOF
If tables("table_name") <> oldtablename Then
oldtablename = tables("table_name"): list1.AddItem oldtablename
End If
tables.MoveNext
Loop
If list1.ListCount = 0 Then MsgBox "数据库打开失败,或数据库不存在表", vbCritical, "错误": Exit Sub
dataname = d.FileName
list1.Enabled = True: Command2.Enabled = True
list1.ListIndex = 0: list1_click
End Sub
Private Sub Command2_Click()
ldc.Recordset.Update '更新ldc记录集
End Sub
Private Sub Form_Resize()
edit.Width = Me.ScaleWidth - 200
edit.Height = Me.ScaleHeight - edit.Top - 50
End Sub
Private Sub list1_click()
'ldc控件连接数据源
ldc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & dataname & ";Persist Security Info=False"
'ldc控件使用SQL命令,GET数据源数据
ldc.RecordSource = "select * from " & list1.Text
ldc.Refresh: Label1.Caption = "共" & ldc.Recordset.RecordCount & "条记录," & ldc.Recordset.Fields.Count & "个分类字段"
End Sub
下载地址:ADOedit.zip">http://www.lshdic.com/download/lshdic/vb_ADOedit.zip
代码浏览:
Dim dataname As String
Private Sub Command1_Click()
d.DialogTitle = "打开一个Access数据库进行编辑"
d.FileName = ""
d.InitDir = App.Path
d.Filter = "Access数据库文件MDB后缀|*.mdb"
d.ShowOpen
If d.FileName = "" Then Exit Sub
list1.Clear
Set link1 = New ADODB.Connection '创建ADO连接
link1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & d.FileName
Set tables = link1.OpenSchema(adSchemaColumns) '创建数据库记录集为了得到数据库中所有表名
oldtablename = ""
Do While Not tables.EOF
If tables("table_name") <> oldtablename Then
oldtablename = tables("table_name"): list1.AddItem oldtablename
End If
tables.MoveNext
Loop
If list1.ListCount = 0 Then MsgBox "数据库打开失败,或数据库不存在表", vbCritical, "错误": Exit Sub
dataname = d.FileName
list1.Enabled = True: Command2.Enabled = True
list1.ListIndex = 0: list1_click
End Sub
Private Sub Command2_Click()
ldc.Recordset.Update '更新ldc记录集
End Sub
Private Sub Form_Resize()
edit.Width = Me.ScaleWidth - 200
edit.Height = Me.ScaleHeight - edit.Top - 50
End Sub
Private Sub list1_click()
'ldc控件连接数据源
ldc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & dataname & ";Persist Security Info=False"
'ldc控件使用SQL命令,GET数据源数据
ldc.RecordSource = "select * from " & list1.Text
ldc.Refresh: Label1.Caption = "共" & ldc.Recordset.RecordCount & "条记录," & ldc.Recordset.Fields.Count & "个分类字段"
End Sub
相关文章推荐
- 基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
- 基于ADO.NET方法的数据库连接的数据发生器控件dotConnect for Oracle
- 基于宿主机制作一个简单的可启动的linux
- VC++中基于ADO操作ACCESS数据库,FLEXGRID控件的综合应用
- c#调用c++制作的基于mfc的ocx控件
- [Winform控件编程系列之一]制作一个能验证错误的文本框和ErrorProvider的复合控件
- Flash cs6 学习(一) 制作一个包含几个按钮控件的影片剪辑
- 如何制作一个基于Tile的游戏(2) Cocos2d-x 2.0.4
- 使用c#制作的一个树形下拉控件
- 自定义view学习-手把手教你制作一个可扩展日历控件
- 一个基于json+jquery+SSH2的级联制作
- 发布一个基于jquery的无限层级下拉控件
- 基于IOS的一个树形控件
- VC下制作一个类似于BCB的GroupBox的控件
- 如何制作一款基于ajax的通用分页控件
- Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件)
- 如何打印一个类的属性(例如textview里的控件等,基于oc里没有绝对的私有变量这一规则实现)
- WPF学习——制作一个简单的录入界面(2):用C#编程实现所有控件的功能
- 一个基于对话框的程序添加了许多控件,但是无法建立对应的成员变量
- 如何制作一个基于Tile的游戏 Cocos2d-x 2.0.4