问题具体如下:
在ip为X.X.X.X的web服务器的主目录下有一个名为user的access数据库,其中有一个名为user的表,现想在vb里对该表进行操作(查询,更新),该如何做?急!在线等!先谢各位了!
在ip为X.X.X.X的web服务器的主目录下有一个名为user的access数据库,其中有一个名为user的表,现想在vb里对该表进行操作(查询,更新),该如何做?急!在线等!先谢各位了!
解决方案 »
- 关于数组中string类型或者double类型的数据转换为byte格式的问题
- access函数NZ问题
- 关于一个VB中的调用问题??
- 急问。。VSFLEXGRID控件怎么控制某一列输入数据的长度?
- 请教一段程序错误原因,是VB连接SQL数据库语句中的一个错误!
- 劫持网址中的自定义字符串
- 这段代码要怎样写???(新手问题)
- 菜鸟问题(别拍砖):如何改变目录(cd)
- 函数调用问题 ~~
- printer的问题...........为什么我定义了打印机纸张可是还是无法全部打印数据?????快来看看啊....看了就有分啊...呵呵...我是老山啊...
- RGB(RED,GREEN,BULE)能返回一个LONG,那么,有没有一个函数能使一个LONG型值返回(RED,GREEN,BLUE)呢?
- 用VB如何实现在两台机之间传输文件。。。?
'以下是判断数据是否正确提交 Dim strretval As String Dim ResponseXml As DOMDocument Set ResponseXml = New DOMDocument Set ResponseXml = httpRequest.ResponseXml strretval = ResponseXml.selectSingleNode("//retval").Text MsgBox strretvalEnd Sub 3)多条数据上传putinfo.asp<%@ Language=VBScript %><!--#include file="adovbs.inc"--><%Response.ContentType = "text/xml" set conn=Server.CreateObject("ADODB.connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("web.mdb") dim rs on error resume next Set rs = Server.CreateObject("ADODB.Recordset") dim xmldom ' set xmldom = Server.CreateObject("Microsoft.XMLDOM") set xmldom = Server.CreateObject("MSXML.DOMDocument") xmldom.load Request dim sid,name,price,catagory,pdate Set xmlNode = xmlDom.documentElement Set objRetValNode = xmlDom.documentElement For i = 0 To xmlNode.childNodes.length - 1 sid = xmlnode.childNodes(i).childNodes(0).Text name = xmlnode.childNodes(i).childNodes(1).Text price = xmlnode.childNodes(i).childNodes(2).Text catagory = xmlnode.childNodes(i).childNodes(3).Text pdate = xmlnode.childNodes(i).childNodes(4).Text strsql="insert into test(sid,name,price,catagory,pdate) values('"& sid &"','"& name &"','"& price &"','"& catagory &"','"& pdate &"')" 'response.write strsql conn.execute strsql next if err.number=0 then retval="数据成功提交" else retval="数据提交失败,请检查你的数据" end if set conn=nothing%><?xml version="1.0" encoding="gb2312"?><Response> <retval><%=retval%></retval></Response> 相应的vb客户端代码Private Sub Command2_Click()Dim rs1 As New ADODB.Recordsetrs1.CursorLocation = adUseClientrs1.CursorType = adOpenKeysetrs1.LockType = adLockBatchOptimistic rs1.Open "select * from test", conn, adOpenDynamic, adLockPessimistic '由于RequestXml所包含的东西过多,我们直接生成xml文件'直接使用了数据库字段,没有使用中文命名Dim strXMLDim fmstrXML = "<xml>"rs1.MoveFirstDo While Not rs1.EOFstrXML = strXML & "<row>"For Each fm In rs1.FieldsstrXML = strXML & "<" & fm.name & ">" & fm.Value & "</" & fm.name & ">"NextstrXML = strXML & "</row>"rs1.MoveNextLoopstrXML = strXML & "</xml>"Set rs1 = Nothing Dim httpRequest As New MSXML.XMLHTTPRequesthttpRequest.Open "POST", "http://localhost/webxml/putinfo.asp", FalsehttpRequest.send strXML If httpRequest.Status <> 200 Then MsgBox httpRequest.statusText, , httpRequest.Status Exit SubEnd If Set rs = New ADODB.Recordset'重新加载rs.Open "http://localhost/webxml\getinfo.asp"Set DataGrid1.DataSource = rs '以下是判断数据是否正确提交 Dim strretval As String Dim ResponseXml As DOMDocument Set ResponseXml = New DOMDocument Set ResponseXml = httpRequest.ResponseXml strretval = ResponseXml.selectSingleNode("//retval").Text MsgBox strretval End Sub 结束语:这个例子充分的体现了HTTP和XML的优势。对于客户来说,可以订制自己的xml格式,清晰易懂。安全性大大的提高。而且可以在不同的应用服务器上加以扩展使用。如果要提高性能和加大安全性,在服务端可以使用COM组件来扩展ASP,以达到最好的效果。
'以下是判断数据是否正确提交 Dim strretval As String Dim ResponseXml As DOMDocument Set ResponseXml = New DOMDocument Set ResponseXml = httpRequest.ResponseXml strretval = ResponseXml.selectSingleNode("//retval").Text MsgBox strretvalEnd Sub 3)多条数据上传putinfo.asp<%@ Language=VBScript %><!--#include file="adovbs.inc"--><%Response.ContentType = "text/xml" set conn=Server.CreateObject("ADODB.connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("web.mdb") dim rs on error resume next Set rs = Server.CreateObject("ADODB.Recordset") dim xmldom ' set xmldom = Server.CreateObject("Microsoft.XMLDOM") set xmldom = Server.CreateObject("MSXML.DOMDocument") xmldom.load Request dim sid,name,price,catagory,pdate Set xmlNode = xmlDom.documentElement Set objRetValNode = xmlDom.documentElement For i = 0 To xmlNode.childNodes.length - 1 sid = xmlnode.childNodes(i).childNodes(0).Text name = xmlnode.childNodes(i).childNodes(1).Text price = xmlnode.childNodes(i).childNodes(2).Text catagory = xmlnode.childNodes(i).childNodes(3).Text pdate = xmlnode.childNodes(i).childNodes(4).Text strsql="insert into test(sid,name,price,catagory,pdate) values('"& sid &"','"& name &"','"& price &"','"& catagory &"','"& pdate &"')" 'response.write strsql conn.execute strsql next if err.number=0 then retval="数据成功提交" else retval="数据提交失败,请检查你的数据" end if set conn=nothing%><?xml version="1.0" encoding="gb2312"?><Response> <retval><%=retval%></retval></Response> 相应的vb客户端代码Private Sub Command2_Click()Dim rs1 As New ADODB.Recordsetrs1.CursorLocation = adUseClientrs1.CursorType = adOpenKeysetrs1.LockType = adLockBatchOptimistic rs1.Open "select * from test", conn, adOpenDynamic, adLockPessimistic '由于RequestXml所包含的东西过多,我们直接生成xml文件'直接使用了数据库字段,没有使用中文命名Dim strXMLDim fmstrXML = "<xml>"rs1.MoveFirstDo While Not rs1.EOFstrXML = strXML & "<row>"For Each fm In rs1.FieldsstrXML = strXML & "<" & fm.name & ">" & fm.Value & "</" & fm.name & ">"NextstrXML = strXML & "</row>"rs1.MoveNextLoopstrXML = strXML & "</xml>"Set rs1 = Nothing Dim httpRequest As New MSXML.XMLHTTPRequesthttpRequest.Open "POST", "http://localhost/webxml/putinfo.asp", FalsehttpRequest.send strXML If httpRequest.Status <> 200 Then MsgBox httpRequest.statusText, , httpRequest.Status Exit SubEnd If Set rs = New ADODB.Recordset'重新加载rs.Open "http://localhost/webxml\getinfo.asp"Set DataGrid1.DataSource = rs '以下是判断数据是否正确提交 Dim strretval As String Dim ResponseXml As DOMDocument Set ResponseXml = New DOMDocument Set ResponseXml = httpRequest.ResponseXml strretval = ResponseXml.selectSingleNode("//retval").Text MsgBox strretval End Sub 结束语:这个例子充分的体现了HTTP和XML的优势。对于客户来说,可以订制自己的xml格式,清晰易懂。安全性大大的提高。而且可以在不同的应用服务器上加以扩展使用。如果要提高性能和加大安全性,在服务端可以使用COM组件来扩展ASP,以达到最好的效果。
vb通过xml与之交户