基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)

原创 2003年07月12日 10:51:00

数据库数据编辑演示程序,在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控件制作的一个数据库编辑

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:45
  • 141

[原创]使用datagrid控件显示数据

在datagrid中使用了input checkbox控件。分页的效果以下是源程序:DataGrid1.aspx页面代码: DataGrid1 ...
  • web718
  • web718
  • 2005年06月07日 13:54
  • 1401

VB.net数据库编程中DataGrid控件的使用技巧

如何用同一个DataGrid显示不同的数据表;如何用DataGrid显示主表/明细表的内容;如何用DataGrid分页显示或编辑数据表的记录。这些技巧在开发数据库程序中很实用。 DataGrid是VB...
  • jxjxlc
  • jxjxlc
  • 2016年11月10日 11:25
  • 2400

datagrid控件使用技巧大集合

引用自:http://www.cnblogs.com/iCeSnaker/archive/2004/07/31/29017.aspx  1、DataGrid的正反双向排序 http://dev.csd...
  • mengyao
  • mengyao
  • 2007年02月17日 08:49
  • 8484

DataGrid控件用法详解

转自:http://www.vckbase.com/document/viewdoc/?id=1164 作者:万建华 下载源代码 写在前面   刚写这个题目,就觉得肩上...
  • banrixianxin
  • banrixianxin
  • 2014年05月16日 00:23
  • 4470

Flex4之DataGrid增删改同步数据库及页面数据示例

fx:Script>                          import com.adobe.serialization.json.JSON;               i...
  • z7152008
  • z7152008
  • 2011年12月05日 05:16
  • 828

VC DataGrid控件使用总结

MS CDataGrid控件用法详解 本文示例源代码或素材下载 。DataGrid控件是VC方便地用来显示数据的一个极好的网格控件,我不否认网上还有期它不少优秀的网格控件,但我总喜欢使用微...
  • bcbobo21cn
  • bcbobo21cn
  • 2016年04月01日 18:37
  • 1754

vs2008 MFC使用DataGrid控件绑定数据库

1、首先在对话框上点击右键,选择插入ActiveX控件,向下拖拉,找到MicrosoftDataGrid Control 6.0(SP6)(OLEDB),点击确定,在界面上会新增一个控件。 2、...
  • dafenqie
  • dafenqie
  • 2016年12月23日 09:23
  • 842

ACTIVEX控件的制作

1,新建MFC ACTIVEX CONTROLWIZARD工程,名为Clock,选择空的工程 ,新建一个Clock.cpp源文件2.再CClockCtrl类中添加WM_CREATE和WM_TIMERA...
  • ct_hero0902
  • ct_hero0902
  • 2007年04月05日 16:00
  • 750

DataGrid控件属性全解

 DataGrid控件DataGrid控件在一个表格中显示一个数据源的字段 属性说明AllowCustomPaging获取或设置指示是否启用自定义分页的值。AllowPaging获取或设置指示是否启用...
  • wk122348545
  • wk122348545
  • 2008年09月24日 17:06
  • 1802
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
举报原因:
原因补充:

(最多只允许输入30个字)