Question

已经连接好了ACCESS数据库，请问怎样将文本框的内容录入到ACCESS数据库中？

我用的是VB！

Answer 1

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Command1_Click()
If LTrim$(RTrim$(Text1.Text)) = "" Then
MsgBox "学号不能为空!"
ElseIf Trim(Text2.Text) = "" Then
MsgBox "姓名不能为空为空！"
ElseIf Trim(Combo1.Text) = "" Then
MsgBox "性别不能为空！"
Else
inputuser
End If
End Sub
Private Sub inputuser() '添加学生模块
On Error GoTo ErrMsg
Dim txtSQL, i As String
txtSQL = "select * from 学生信息 where 学号='" & Trim(Text1.Text) & "'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open txtSQL, conn, 2, 2
If rs.EOF = False Then
i = MsgBox("学号已经存在！是否重新输入？", vbYesNo + vbExclamation, "警告")
If i = vbYes Then
Text1.Text = ""
Text1.SetFocus
Else
Me.Hide
Exit Sub
End If
Else
rs.AddNew
rs.Fields(0) = Trim(Text1.Text)
rs.Fields(1) = Trim(Text2.Text)
rs.Fields(2) = Trim(Combo1.Text)
rs.Fields(3) = Trim(Text4.Text)
rs.Fields(4) = Trim(Text5.Text)
rs.Fields(5) = Trim(Text6.Text)
rs.Fields(6) = Trim(Text7.Text)
rs.Fields(7) = Trim(Text8.Text)
rs.Fields(8) = Trim(Text9.Text)
rs.Update
rs.Clone
MsgBox "恭喜你添加成功！"
Me.Hide
End If
ErrMsg:
If Err.Number <> 0 Then
MsgBox CStr(Err.Number) + Err.Description, vbOKOnly + vbCritical, "错误提示"
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
'将学号设置为焦点
Text1.SetFocus
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
conn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
Set rs = Nothing
End Sub

Answer 2

不知道你用是的什么语言。
不同的语言都不一样的。
如ASP是
insert into 表名(字段1，字段2) values("&request("文本框1")&","&request("文本框2")&")而且还得根据你字段的类型来填。
如果是字符型的还得加上''.如'"&request("文本框名")&"'
如果是.NET的话其他和ASP差不多。就是把&改成+就行了。