数据库数据编辑演示程序,在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 
|