Question

VB Datagrid显示数据库数据的问题

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\yansuan.mdb"
Dim strquery As String
strquery = "select * from 钢丝绳"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

为什么第一个单元格是空的啊

Answer 1

加上Adodc1.CommandType=adcmdText

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\yansuan.mdb"
Dim strquery As String
strquery = "select * from 钢丝绳"
Adodc1.CommandType=adcmdText
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Date和Items为资料栏名称
Private Sub DataGrid1_Click()
If rs.BOF = False And rs.EOF = False Then

txtdate = rs.Fields("Date")

txtitems = rs.Fields("Items")
End If
End Sub

修改资料
Private Sub Command1_click()

rs.Fields("Date") = txtdate

rs.Fields("Items") = txtitems

rs.Update

MsgBox "Successfully Edit Data", vbInformation + vbOKOnly

rs.Requery
end sub

回答：
datagrid第一个单元格空白可以直接在Access资料库输入资料。
或写以下程式以便以后资料是空时无法更新

If txtitems = "" Then

MsgBox "Please fill in items ", vbExclamation + vbOKOnly

txtitems.SetFocus

Exit Sub
End If

而锁定资料可以在Form_Load中写以下程式：
意思是程式一开始锁定表单所有文本栏。
For i = 0 To Me.Controls.Count - 1

If TypeOf Me.Controls(i) Is TextBox Then

Me.Controls(i).Locked = true

End If
Next i

或个别锁定
TextBox1.Locked = true
TextBox2.Locked = true

当按“编辑”钮时才允许用户新增
TextBox1.Locked = false
TextBox2.Locked = false

问：可以修改你添加的数据 但是不能修改数据库原本存在的数据?

答：通常修改和新增资料时，所对应的数据库一定会更动。或许你可以先行复制原资料库到别处再跟新编辑资料.