rezankh
پنج شنبه 24 بهمن 1387, 00:43 صبح
با سلام
من اين عمل آپديت رو بوسيله دستورات SQL روي داده ها انجام دادم ولي تا موقعي كه از فرم خارج نشم ويرايش انجام شده در Vsflexgrid8 نشون داده نميشه بعبارتي رفرش نميشه
If Text9.Text = "" Then
Dim f As New ADODB.Command
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text7.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = Text7.Text
Else
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text8.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = ""
End If
چطوري ميشه همزمان با عمل آپديت VSFlexGrid8 هم آپديت بشه؟
من اين عمل آپديت رو بوسيله دستورات SQL روي داده ها انجام دادم ولي تا موقعي كه از فرم خارج نشم ويرايش انجام شده در Vsflexgrid8 نشون داده نميشه بعبارتي رفرش نميشه
If Text9.Text = "" Then
Dim f As New ADODB.Command
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text7.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = Text7.Text
Else
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text8.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = ""
End If
چطوري ميشه همزمان با عمل آپديت VSFlexGrid8 هم آپديت بشه؟