基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序(完整原程序)
2003-07-12 10:51
501 查看
数据库数据编辑演示程序,在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
下载地址: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控件制作的一个数据库编辑
- 基于VB6+ADO+ListView制作的一个数据库分页显示程序(完整原程序)
- 基于Winsock控件制作的一个“服务器,N客户端”通讯程序(完整原程序)
- 基于VB6+ADO+ListView制作的一个数据库分页显示程序(
- 偷来的(一个连接数据库完整程序可以作为模板(从csdn中获得) )
- 用Installshield制作一个完整程序实例(一)--基本设置(一)
- 基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序)
- 一个连接数据库完整程序可以作为模板(从csdn中获得)
- VC(MFC)以ADO连接数据库(基于控件ListControl)
- 基于ADO.NET方法的数据库连接的数据发生器控件dotConnect for Oracle
- 完成了一个完整的基于TimesTen的程序
- Flex中如何给DataGrid控件的项目添加一个可编辑TextArea/TextInput,单击控件内的项目时,自动进入编辑状态
- Flex中如何将NumericStepper控件作为DataGrid控件的一个编辑项目的例子
- 基于ADO.NET方法的数据库连接的数据发生器控件dotConnect for Oracle
- EdiTable-一个基于ASP.NET+AJAX开发的数据库表编辑组件
- 一个SDI程序基于CFormView视。上面放一个CStatic控件,给视图添加双击消息,运行程序后,双击视图,会有弹出消息响应。 但是双击CStatic类控件,却没有响应
- 一个基于对话框的程序添加了许多控件,但是无法建立对应的成员变量
- Flex中如何给DataGrid控件的项目添加一个可编辑TextArea/TextInput,单击控件内的项目时,自动进入编辑状态
- 在应用了皮肤的程序中制作透明的文本编辑控件(如:TcxMemo)
- 一个连接数据库完整程序可以作为模板(从csdn中获得)