- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2011-4-5 10:33:15
|
显示全部楼层
以下是往字段里插入数据的asp代码,你只要在VB的网络控件中传值到这个页面即可
<%
fwq = Request("fwq")'服务器名
jsm = Request("jsm") '角色名
DBPath = "你的数据库名.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
On Error Resume Next '如果出错,继续执行代码
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
If Err.Number <> 0 Then
Err.Clear
Set conn = Nothing
Response.Write("数据库连接错误")
End If
rs.open "select * from 用户库 where fwq='" & fwq & "' and jsm='"& jsm &"'",conn,1,1
If rs.eof Then'找不到符合条件的记录,则创建新记录
sql="Insert Into 用户库(服务器,角色名,备注) Values('"&fwq&"','"&jsm&"','新用户')"
conn.Execute(sql)
else''若找到则更新这条记录
'这里写更新记录的语句
End If
rs.Close
set rs = Nothing
%>
添加字段的话,应该也不难吧,我也菜只能写这么些了 |
|