也可在其相应的列失去焦点后UPDATE着条记录 如: 如果第一列被修改过: UPDATE TAB SET COL1=“NEWVALUE” WHERE ID=“主观件字”
定义一个动态数组,在每次修改的时候记录下你所做的改动,保存时统一保存dim strSql() as string dim intNum as int... '纪录 redim preserve strSql(0 to intNum) strSql(intNum)=......... intNum=intNum+1.......'保存dim i as int for i=0 to intNum-1 cn.execute(strSql(i)) next
Private Sub UpdateDatabase() Dim mCon As New ADODB.Connection Dim mRec As New ADODB.RecordsetmCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\0.mdb;Persist Security Info=False"With MSHFlexGrid1 For i = 0 To .Cols - 1 mCon.Execute "update 表1 set 字段1='" & .TextMatrix(mrow, i) & "' where 字段2='" & .TextMatrix(mRow1, i) & "';" '当然字段2必须能做关键字才行,不过,最好用DataGrid控件 Next End With End Sub
insert update等等。
就是差添加那部分,
我也想不用啊,但是, 没其他的了
用LISTVIEW呀,很灵活的呀!!
如:
如果第一列被修改过:
UPDATE TAB SET COL1=“NEWVALUE” WHERE ID=“主观件字”
dim intNum as int...
'纪录
redim preserve strSql(0 to intNum)
strSql(intNum)=.........
intNum=intNum+1.......'保存dim i as int
for i=0 to intNum-1
cn.execute(strSql(i))
next
Dim mCon As New ADODB.Connection
Dim mRec As New ADODB.RecordsetmCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\0.mdb;Persist Security Info=False"With MSHFlexGrid1
For i = 0 To .Cols - 1
mCon.Execute "update 表1 set 字段1='" & .TextMatrix(mrow, i) & "' where 字段2='" & .TextMatrix(mRow1, i) & "';"
'当然字段2必须能做关键字才行,不过,最好用DataGrid控件
Next
End With
End Sub
mRec.Close
Set mRec=Nothing
mCon.Close
Set mCon=Nothing