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

[hzy111]

（希望给个有注释的原码或给我发个例子[e-mail]）

问题一、如何用代码连接已有的数据库（ACCESS）中的其中一个表?
问题二、ADODC 如何添加、修改数据？小弟操作后UPDATA总报错！
问题三、ADODC 属性页里的设置
1、通用-》生成-》数据连接属性-》提供者选那一个？高级里的访问权限应该选那一个？（完全控制可读可写的）
2、如何关闭ADODC的连接？
3、如何更新 ADODC 的添加、删除、修改？
4、如何删除 ADODC 的一条纪录？
问题四、以 ADODC 为数据原的 MSHFlexGrid 的添加、删除、修改、更新应该如何操作？

问题太菜，请高手们不要觉得麻烦！

请高手们回答的尽量详细一点，谢谢！
如果前面的不够详细，请后面的补充，
分不够可再加！
希望能给个详细而全面的例子，谢谢！！
[e-mail]

[hzy111]

也许是我太笨

[dongge2000]

http://www.applevb.com/art/sql.htm

[笨笨兔兔兔兔兔]

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 String



Private 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 Sub

Private Sub Command3_Click()
Unload Me
Form1.Show
End Sub





Private 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

[B_S]

.^.^.^.

[hzy111]

自己顶

[笨笨兔兔兔兔兔]

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

[lgxysl]

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

相信我，不会错！

[任何风]

VB程序有个外接程序的菜单,下面有个数据窗体向导,你用一下就会用,它会自动生成你想要的那些代码,自己参考看看就行了

[hzy111]

如何更新显示数据的控件的显示内容！！！

[hzy111]

自己up

[maxwu]

要另油

[Free_Windy]

问题一个一个来，，说的太多不知如何帮你哦。

[James_ht]

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

[hzy111]

再问个关于更新视图的问题：

DataGrid 里添加，修改、删除操作后

Refresh 不起作用

请问用什么方法更新！

[Abyss-Xu]

所有问题都发到你的邮箱了

[hzy111]

DataGrid 6.0 没有UPDATA
他的数据原是自定义的
Dim Cnn As ADODB.Connection
Dim RST As ADODB.Recordset

Private 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 里的显示内容 ？
？ ？
？？？？？？？？？？？？？？？？？？？？

[zxy_py]

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

[hzy111]

自己 顶

[hzy111]

最后提示：
使用一个datagird控件实现多个数据表切换时不要使用检索字段，不然更新失灵！

血的教训啊！！！

问题全部结束，结贴！

[therockdelt]

给偶加积分 ,偶都没分了