Question

如何实现从VB界面输入信息存储到Access数据库的表中？急!有代码，请帮忙调下程序！

在VB界面有学号，姓名，性别三个lable控件和三个对应的text文本框，还有一个保存command按钮，如何实现从text文本框输入的数据存储到F:\lfh\成绩管理系统中的毕业学生表中？学号能输进去，姓名，性别输不进去，只显示0，怎么调到能输入姓名，性别？？
Private Sub Command1_Click()
Dim db As Database
Dim rs1 As Recordset
Command1.Enabled = True
Command1.SetFocus
Set db = OpenDatabase("F:\lfh\成绩管理系统" & "\毕业生档案.mdb")
Set rs1 = db.OpenRecordset("毕业学生表", dbOpenDynaset)
On Error GoTo t
rs1.MoveLast
rs1.AddNew
rs1.Fields("学号") = Val(Text1.Text)
rs1.Fields("姓名") = Val(Text2.Text)
rs1.Fields("性别") = Val(Text3.Text)
rs1.Update
rs1.Close
db.Close

Exit Sub
t:
rs1.AddNew
rs1.Fields("学号") = Val(Text1.Text)
rs1.Fields("姓名") = Val(Text2.Text)
rs1.Fields("性别") = Val(Text3.Text)
rs1.Update
rs1.Close
db.Close

End Sub
原来是Text的Index没清空。现在要在Vb界面一行行显示出来输入的数据，要求是从Access里查

Answer 1

同学，你的 rs1.Fields("姓名") = Val(Text2.Text)和rs1.Fields("性别") = Val(Text3.Text)
都加了Val转换为数值，你的姓名和性别都是字符串，Val后自己变为0了，所以去掉前面的Val就行了

追问

去掉姓名，性别两个val后运行显示Text未找到方法或数据成员,您知道什么调试出来吗

追答

Private Sub Command1_Click()
Dim db As Database
Dim rs1 As dao.Recordset
Command1.Enabled = True
Command1.SetFocus
Set db = OpenDatabase("F:\lfh\成绩管理系统" & "\毕业生档案.mdb")
Set rs1 = db.OpenRecordset("毕业学生表", dbOpenDynaset)
rs1.AddNew
rs1.Fields("学号") = Val(Text1.Text)
rs1.Fields("姓名") = Text2.Text
rs1.Fields("性别") = Text3.Text
rs1.Update
rs1.Close
db.Close
End Sub

Answer 2

把你表中的姓名和性别的类型改成字符串，
rs1.Fields("姓名")=Text2.Text
rs1.Fields("性别")=Text3.Text

Answer 3

对于学习计算机编程的初学者,还是从C语言入手把!
学习linux环境下的C语言!
可以去买书学习!
然后看看linux程序设计!
再去接触另一些东西!
我相信你能比在windows学到更多的东西!
放弃学习vb吧!

Answer 4

谁有VB文件夹病毒源码？ 237112802@QQ.COM 有的发下 谢了