如何编写数据库配置文件的保存按钮 [英] How do I code the save button for a database profile
问题描述
我无法对我评论过的那些行上的保存按钮进行编码
我尝试了什么:
Private Sub savebtn_Click(sender As Object,e As EventArgs)处理savebtn.Click
rs.Fields(Student ID)。Value = txtid.Text
rs.Fields(Fullname)。Value = txtname.Text
rs.Fields(DOB)。Value = DTPicker1.Value
'如果radbtnm.Checked = True那么
''rs.Fields(性别)= radbtnm.Checked
'否则
'rs.Fields(Gender)= radbtnf.caption
''结束如果
rs.Fields(Dept)。值= combo1.Text
rs.Fields(Course)。Value = combo2.Text
rs.Fields(Semester)。Value = combo3.Text
rs.Fields(地址)。值= txtaddres.Text
rs.Fields(电话号码)。值= txtphone.Text
MsgBox(数据已保存成功!!!,vbInformation)
rs.Update()
End Sub
i am failing to code the save button on those lines that i commented
What I have tried:
Private Sub savebtn_Click(sender As Object, e As EventArgs) Handles savebtn.Click
rs.Fields("Student ID").Value = txtid.Text
rs.Fields("Fullname").Value = txtname.Text
rs.Fields("DOB").Value = DTPicker1.Value
' If radbtnm.Checked = True Then
'' rs.Fields("Gender") = radbtnm.Checked
'Else
' rs.Fields("Gender") = radbtnf.caption
'' End If
rs.Fields("Dept").Value = combo1.Text
rs.Fields("Course").Value = combo2.Text
rs.Fields("Semester").Value = combo3.Text
rs.Fields("Address").Value = txtaddres.Text
rs.Fields("Phone No").Value = txtphone.Text
MsgBox("Data is saved successfully!!!", vbInformation)
rs.Update()
End Sub
推荐答案
' If radbtnm.Checked = True Then
'' rs.Fields("Gender") = radbtnm.Checked
'Else
' rs.Fields("Gender") = radbtnf.caption
'' End If
在一种情况下,你要分配一个布尔(已检查);在另一方面,一个字符串(标题);到另一个(明显的)字符串(性别)。
我希望有另一个字幕,不变;或者拼写问题。
在任何情况下,你都不能(通常)为给定的记录集字段分配2种不同的类型。
In one case, you're assigning a "bool" (checked); in the other, a "string" (caption); TO another (apparent) string ("Gender").
I expect there's "another" caption, constant; or a spelling issue.
In any case, you can't (usually) assign 2 different types to a given "record set field".
这篇关于如何编写数据库配置文件的保存按钮的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!