VB 中数据的添加、删除、修改、查询（求教，分不够再加）

Question

（希望给个有注释的原码或给我发个例子[email protected]）问题一、如何用代码连接已有的数据库（ACCESS）中的其中一个表?
问题二、ADODC 如何添加、修改数据？小弟操作后UPDATA总报错！
问题三、ADODC 属性页里的设置
        1、通用-》生成-》数据连接属性-》提供者选那一个？高级里的访问权限应该选那一个？（完全控制可读可写的）
        2、如何关闭ADODC的连接？
        3、如何更新 ADODC 的添加、删除、修改？
        4、如何删除 ADODC 的一条纪录？
问题四、以 ADODC 为数据原的 MSHFlexGrid 的添加、删除、修改、更新应该如何操作？问题太菜，请高手们不要觉得麻烦！请高手们回答的尽量详细一点，谢谢！
如果前面的不够详细，请后面的补充，
分不够可再加！
希望能给个详细而全面的例子，谢谢！！
[email protected]

Answer 1

Dim Ldate As Date
Dim ComboContent(2) As String
Dim selstr As String
Dim MyCon As ADODB.Connection
Dim str As String
Dim msgtext As StringPrivate Sub Command1_Click()
Set MyCon = New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\issue.mdb"
MyCon.Open str
If MsgBox("Are you sure?", vbYesNo, "Comfirm") = vbYes Then
  msgtext = "insert into issue_Log (i_Title,Logged_By,Log_Date,i_priority,i_Description,i_status) values ('" & Text1.Text & "','" & Text2.Text & "','" & CDate(DTPicker1.Value) & "','" & Combo1.Text & "','" & Text4.Text & "','On')"
  MyCon.Execute msgtext
  Unload Form2
  Form2.Show
 
End If
  End SubPrivate Sub Command3_Click()
Unload Me
Form1.Show
End SubPrivate Sub Form_Load()
ComboContent(0) = "Low"
ComboContent(1) = "Medium"
ComboContent(2) = "High"
For i = 0 To UBound(ComboContent)
Combo1.AddItem ComboContent(i)
Next i
End Sub

Answer 2

编译错误Combo1.AddItem ComboContent(i)
要求对象

Answer 3

废话，你自己不往form中加combo，当然没对象了

Answer 4

（1）到http://lgxyslldw.512j.com下载一个lgxgrid控件
（2）到http://lgxyslldw.512j.com的“技术支持”论坛下载一段数据库应用的源代码
（3）静下心来，慢慢地研究他的源代码和试动行，你对怎样用ADO来进行数据库编程就应该有了初步的撑握，对于实现你的问题的功能，这时你发发觉简直是小菜一碟！！！！！！！！相信我，不会错！

Answer 5

添加、删除、修改
一般都放在存储过程中。通过dll来调用.

Answer 6

再问个关于更新视图的问题：DataGrid  里添加，修改、删除操作后Refresh  不起作用请问用什么方法更新！

Answer 7

((((再问个关于更新视图的问题：
DataGrid  里添加，修改、删除操作后
Refresh  不起作用
请问用什么方法更新)))
你要先 DATAUP (更新数据库) 或 DATA????UP (写入磁盘)后再 Refresh.
如果不是想修改的数据,可以用CANCLEDATAUP来恢复更新.

Answer 8

DataGrid 6.0 没有UPDATA
他的数据原是自定义的
Dim Cnn As ADODB.Connection
Dim RST As ADODB.RecordsetPrivate Sub Form_Load(）
Set Cnn = New Connection
    Cnn.CursorLocation = adUseClient
    Cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=MEMORY.mdb;"
    Set RST = New ADODB.Recordset
... ...
END SUB
现在想实现的功能是：
在程序中通过改变
RST.Open "SELECT * FROM BWL", Cnn, adOpenStatic, adLockOptimistic
改变DATAGIRD里显示的内容！
失败方法1：（将打开的表 BWL 更换为 RJB后 DataGird 只剩BWL的字段名，无内容。）
 RST.Close
 TabName = "uweb"
 RST.Open "SELECT * FROM RJB", Cnn, adOpenStatic, adLockOptimistic
 RST.Update
'加入
DataGrid1.Refresh
'情况依旧
用  RST.GetString  可以正确获得修改后表中的内容，
为什么 DataGrid 控件里显示的内容无法更新
？？？？？？？？？？？？？？？？？？？？
？                                 ？
？请问如何更新 DataGrid 里的显示内容 ？
？                                 ？
？？？？？？？？？？？？？？？？？？？？

Answer 9

最后提示：
    使用一个datagird控件实现多个数据表切换时不要使用检索字段，不然更新失灵！血的教训啊！！！问题全部结束，结贴！