高分求解DataGrid+ADO Data Control使用问题!!!

Sniper 2003-04-01 03:59:49
用DataGrid+ADO Data Control操作数据库,有几问题总是搞不定,请高手指点:
1.程序运行时,DataGrid左上角的单元格总是被自动清空,并导致数据库对应数据被清空;
2.总是会出现输入不进去的情况,不是输入后自动被清空,就是填入了其它单元格的东东;
3.我的表里有ID,是自动编号字段,想显示出来,但不想被编辑或输入,但同时要求其它字段可以被编辑,如何解决。

最好有例程进行说明,分不够可以加,谢谢!!!!!
...全文
21 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihonggen0 2003-04-02
  • 打赏
  • 举报
回复

你可以通过右键datagrid,进行一些属性的设置


去下载一本书看看吧,关于datagrid使用的


可以访问

www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com

和MSDN得到更多的帮助.............
chenyu5188 2003-04-02
  • 打赏
  • 举报
回复
修改数据的代码:
Private Sub cmd_cdchange_Click()
With DataGrid1
.AllowAddNew = True'允许添加
.AllowDelete = True'允行删除
.AllowUpdate = True'允许更新
End With
End Sub

保存新数据代码:
Private Sub cmd_cdsavenew_Click()
ado_information.Recordset.Update
ado_information.Refresh
With DataGrid1
.AllowAddNew = False
.AllowDelete = False
.AllowRowSizing = True
.AllowUpdate = False
End With
End Sub

删除数据代码:
Private Sub cmd_seldel_go_Click()
Dim mybookmark As Variant
For Each mybookmark In form1.DataGrid1.SelBookmarks
form1.Adodc1.Recordset.Bookmark = mybookmark
form1.Adodc1.Recordset.Delete
form1.Adodc1.Refresh
Next


realwhs 2003-04-02
  • 打赏
  • 举报
回复
手工注册以下控件
regocx32 *.ocx
Sniper 2003-04-01
  • 打赏
  • 举报
回复
楼上多位仁兄都回答的是MSFlexGrid,可是我用的是MS Data Grid。我的MSFlexGrid控件因为没有设计时授权用不起来。请问哪位有License Key
jacklg 2003-04-01
  • 打赏
  • 举报
回复
OK~
heipifeng 2003-04-01
  • 打赏
  • 举报
回复
up 吧
minajo21 2003-04-01
  • 打赏
  • 举报
回复
up一个
Cooly 2003-04-01
  • 打赏
  • 举报
回复
你用ADODB访问数据库,通过Recordset对msflexgrid进行赋值,然后处理完毕后,在写回到数据库中。

关于你的第三个问题,你只要设定MSFlexGrid响应鼠标事件的列不包含ID列即可。
Cooly 2003-04-01
  • 打赏
  • 举报
回复
'===================================
'使用MSFlexGrid + TextBox 实现对表格数据的操作
'===================================
Public fRow, fCol As Long
Private Sub Form_Load()

Text1.BorderStyle = 0
MSFlexGrid1.Rows = 20
MSFlexGrid1.Cols = 4

For i = 0 To 19
For j = 0 To 3
MSFlexGrid1.TextMatrix(i, j) = "Grid(" & i & "," & j & ")"
Next
Next

fRow = 0: fCol = 0
Text1.Text = MSFlexGrid1.TextMatrix(0, 0)

End Sub
Private Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.TextMatrix(fRow, fCol) = Text1.Text
Text1.Text = ""
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then

fRow = MSFlexGrid1.MouseRow
fCol = MSFlexGrid1.MouseCol

Text1.Left = MSFlexGrid1.ColPos(MSFlexGrid1.MouseCol) + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.RowPos(MSFlexGrid1.MouseRow) + MSFlexGrid1.Top
Text1.Height = MSFlexGrid1.CellHeight
Text1.Width = MSFlexGrid1.CellWidth
Text1.Text = MSFlexGrid1.TextMatrix(fRow, fCol)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.Visible = True
Text1.SetFocus

ElseIf Button = 2 Then
Text1.Visible = False
Text1.Text = ""
End If
End Sub
Cooly 2003-04-01
  • 打赏
  • 举报
回复
你是不是使用其它控件做模拟表格输入?
内容概要:本文档是2025年全国广播电视技术能手竞赛IPTV专业的竞赛内容大纲,旨在指导参赛选手准备比赛。竞赛分为理论和实操两大部分。理论部分涵盖基本知识、基础理论和专业知识,包括法律法规、技术标准、IPTV技术基础、信号传输与分发、网络和数据安全等。实操部分则涉及IPTV系统设备、仪器设备的操作使用和指标测量。具体内容包括IPTV系统架构、传输技术与指标、设备配置及维护、专业技能如测量工具使用、视音频指标测量、直播点播协议分析、播出网络性能测量、网络安全数据分析以及系统故障排查等。 适合人群:从事或有意从事IPTV相关工作的技术人员,尤其是有志于参加全国广播电视技术能手竞赛的专业人士。 使用场景及目标:①帮助参赛选手全面了解并掌握IPTV相关的法规文件和技术标准;②提升选手对IPTV系统架构、传输技术和设备配置的理解;③增强选手在实际操作中的测量、分析和故障排查能力;④确保选手能够熟练运用各种测量工具和分析软件进行视音频指标测量和网络安全数据分析。 阅读建议:由于文档内容详尽且专业性强,建议读者在学习过程中结合实际案例和操作练习,同时参考相关技术文献,以便更好地理解和掌握竞赛所需的知识和技能。

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧