Question

vb中Text文本框中的文本内容如何保存进Access数据库中，已经连接上accesd2010

Answer 1

1、在Access或SQL Server中建好表；
2、在开始->运行中输入 odbcad32 打开建立odbc数据源，例如建立SQLserver的数据源，数据源名为:tmpDS，SQLServer的用户口令均为sa，链接的数据库名为tmpDB;
3、编写ASP代码
（1）联系数据库，可建立一个专门的数据库连接文件，如：commsql.inc
文件内容如下：
<% datanet = "DSN=tmpDS;uid=sa;pwd=sa;database=tmpDB"
set conn=server.createobject("adodb.connection")
Conn.Open datanet

Set rs=server.createobject("Adodb.recordset")
%>

(2)编写一般语句
如login.asp

<!--#include file="commsql.inc"-->
<%

dim usa
dim psw

pwd=request("password")
usa=request("username")

'查询用户密码是否正确
sql="select * from UserInfo where UserName='"&usa&"'"
rs.open sql,Conn,1,1
if rs.eof then
rs.close
conn.close
response.write "<script> alert('用户名不存在!');history.back(-1); </script>"
response.end
elseif trim(rs("UserPsd")) <> pwd then
rs.close
conn.close
response.write "<script> alert('密码错误!'); history.back(-1);</script>"
response.end
end if

'记录登录时间
SQL = "Update UserInfo set LastVisitTime='"&now()&"'" where UserName ='"&usa&"'"
rs.open sql,Conn,1,3
'关闭连接
conn.close
%>

追问

我是单机版桌面程序，不涉及网络，不用asp,有些代码看不懂。