请问怎样向DataGrid添加、删除、修改及获取每一个单元格的值呢?谢谢!!
解决方案 »
- VB WebBrowser点击网页跳转的SESSION(或cookies)问题
- 请问系统找不到指定的模块怎么办?
- 怎样取得文件的后缀名?谢谢了!
- 我vb从sql server 7取值(是中文)怎么是乱码 要怎么转换 才可正常显示
- 如果程序如何打开程序目录下的帮助文件,比如文件名为help.chm
- VB下如何实现网络的流量监视
- vb中如何实现多线层?
- 问题:我用VB做的软件的文本筐里的文字为什么是乱码呀??急!!急!!急!!!
- 急求VBA(WORD)高手。。。
- 我以前用VB4.0做了一个程序,不知为何现在oc25.DLL,vb40016.dll调用时出错?
- 同学问我个问题,若到晚上还弄不出来,就死拉死拉的,help me!!!
- 我做了一个半透明的PNG图片,如何把它做成窗口
dim rs as new adodb.recordset添加 rs.addnew 然后在网格中间写你要的东西
删除 rs.delete
修改 直接上面修改如果再不懂,就找本书看去
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码,就把Jet OLEDB:Database Password=1234;这段去掉 Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
'赋值给 DataGrid 表
Set DataGrid1.DataSource = adoRS
'表刷新
DataGrid1.Refresh
'添加事件和保存
adoRS.AddNew
'保存
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll'删除
adoRS.Delete
'重新赋值给表
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh '其他相关操作:
'上一条
If Not adoRS.BOF Then adoRS.MovePrevious
If adoRS.BOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveFirst
End If
'下一条
If Not adoRS.EOF Then adoRS.MoveNext '下一条
If adoRS.EOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveLast
End If
'第一条
If Not adoRS.BOF Then adoRS.MoveFirst
'最末
If Not adoRS.EOF Then adoRS.MoveLast
xvalue=datagrid1.cloumns(i).value