基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
来源:互联网 发布:java outputstream 编辑:程序博客网 时间:2024/05/16 07:09
数据库数据编辑演示程序,在WIN98调试通过,详细请自行下载进行学习测试,程序大小29K
下载地址: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+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
- 基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑
- 基于VB6+ADO+ListView制作的一个数据库分页显示程序(完整原程序)
- 基于Winsock控件制作的一个“服务器,N客户端”通讯程序(完整原程序)
- 基于Winsock控件制作的一个“服务器,N客户端”通讯程序(完整原程序)
- 基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序)
- Adodc控件
- adodc控件问题的解决
- 编辑DataGrid控件(一)
- 编辑DataGrid控件(二)
- 基于VB6+ADO+ListView制作的一个数据库分页显示程序(
- 有关ActiveX控件ADODC和DataGrid在VC++下面的使用
- 有关ActiveX控件ADODC和DataGrid在VC++下面的使用
- 有关ActiveX控件ADODC和DataGrid在VC++下面的使用
- 一个完整的网上追捕的原程序
- ADO学习(十)DataGrid控件的使用
- VB adodc控件用法
- 用完成端口开发大响应规模的Winsock应用程序(4)
- 用完成端口开发大响应规模的Winsock应用程序(5/完)
- 使用多线程使软件界面具有较好的响应性
- 使用 Vml 制作立体柱状投票统计图的完整程序
- 基于VB6+ADO+ListView制作的一个数据库分页显示程序(完整原程序)
- 基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
- 基于Winsock控件制作的一个“服务器,N客户端”通讯程序(完整原程序)
- 一个非常简单完整的聊天室演示程序,推荐初学者下载
- 基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序)
- 贴一例:当所有图片下载完毕时,然后显示网页(有进度)
- Vml:应用阿基米德算法在网页制作动画,原程+注释
- Vml+Js算法:完成5个小球在网页运动(碰壁返回)的游戏,详细注释
- Dhtml+Js算法:5个小球运动的简化版,变通实现更简单的飞行的图片
- Vml+Dhtml:制作一个应用渐变颜色效果不错的进度条