Question

VB6 + Adodc + DataGrid +access 数据修改问题？

我在VB里 采用Adodc + DataGrid 连接数据库的形式。现在需要通过text 修改DataGrid 选定行的数据！请问应该如何操作，最好有源代码！谢谢
不是在 DataGrid 里直接修改哦，是在text里填入修改内容，修改到DataGrid 选定的行！

Answer 1

给你实例:
Text1=txtname
Text2=txtage
数据库=database.mdb
资料表=contact
字段=Name,Age

'数据库连接
Dim mode As String '宣告mode为字符串资料形态
Private Sub Form_Load()
Adodc1.CursorLocation = adUseClient
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\database.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from contact"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub

Private Sub Form_Activate()
Call LoadControls
End Sub

’新增代码
Private Sub cmdadd_Click()
mode = "Add"
End Sub

’编辑代码
Private Sub cmdedit_Click()
mode = "Edit"
End Sub

'以下为储存代码
Private Sub cmdsave_Click()
If mode = "Add" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Name") = txtname.Text
Adodc1.Recordset.Fields("Age") = txtage.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Call LoadControls
MsgBox "Saving Successful.", vbInformation + vbOKOnly
End If

If mode = "Edit" Then
Adodc1.Recordset.Fields("Name") = txtname.Text
Adodc1.Recordset.Fields("Age") = txtage.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Call LoadControls
MsgBox "Saving Successful.", vbInformation + vbOKOnly
End If
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub

'在DataGrid触动移动时，textbox内容也跟着移动
Private Sub DataGrid1_Click()
Call LoadControls
End Sub

'用于将资料库数据显示在Textbox
Sub LoadControls()
On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
txtname.Text = Adodc1.Recordset.Fields("Name")
txtage.Text = Adodc1.Recordset.Fields("Age")
End If
End Sub

Answer 2

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 超级用户表 where 用户名='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text <> Adodc1.Recordset.Fields("密码") Then
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
Else
If Text3.Text <> Text4.Text Then
MsgBox "请确认你的新密码的一致性"
Else
Adodc1.Recordset("用户名") = Text1.Text
Adodc1.Recordset("密码") = Text3.Text
Adodc1.Recordset.Update
MsgBox "密码已经修改成功"
Form3.Hide
Form2.Show
End If
End If
End If
End Sub 我运行是正确的哦!!!!

Answer 3

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 超级用户表 where 用户名='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text <> Adodc1.Recordset.Fields("密码") Then
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
Else
If Text3.Text <> Text4.Text Then
MsgBox "请确认你的新密码的一致性"
Else
Adodc1.Recordset("用户名") = Text1.Text
Adodc1.Recordset("密码") = Text3.Text
Adodc1.Recordset.Update
MsgBox "密码已经修改成功"
Form3.Hide
Form2.Show
End If
End If
End If
End Sub 我运行时是可以的哦!!!

Answer 4

Adodc1.Recordset.Fields("姓名") = Trim(Text1.Text)