请教关于ADO

Question

ADO如何与DATAGRID连接？或者其他表格控件连接也可以。
好久不用VB，忘的差不多了。哪位给段图书管理程序的代码。或者其他什么进销存程序的代码也可以。(注释越多越好哦，最好有QQ可以联系)愿意另开帖赠送高分。.cn 

Answer 1

基于ADO+Adodc控件+DataGrid控件制作的一个数据库编辑程序（完整原程序）选择自 lshdic 的 Blog 数据库数据编辑演示程序，在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 Sublist1.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 SubPrivate Sub Command2_Click()
ldc.Recordset.Update    '更新ldc记录集
End SubPrivate Sub Form_Resize()
edit.Width = Me.ScaleWidth - 200
edit.Height = Me.ScaleHeight - edit.Top - 50
End SubPrivate 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

Answer 2

先建一个表，文件-新建-Microsoft access-version--选择要创建的数据库，文件名-one .然后在数据库窗口点右键选择新建表。表名称--one1.点添加字段。名称-one1,(顺序位置，验证文本，验证规则缺省值都是什么意思，该如何填写？)。建好表后。窗体上放一个ADODC控件，选中ADODC，右键ADODC属性，ADODC属性页里的记录源的命令类型是不是要选择1adcmdtext还是8adcmdunknown?ADODC属性页里点生成，数据连接属性里面的提供者选项是不是应该选microsoft jet4.0......？还是3.51那个？ADODC属性页里的身份验证有什么用？

Answer 3

还有datagrid如何跟ado连接上 ?